Case 2
g.DrawImage(img_r, r)
Case 3
g.DrawImage(img_o, r)
Case 4
g.DrawImage(img_g, r)
Case 5
g.DrawImage(img_b, r)
Case 6
g.DrawImage(img_y, r)
End Select
Select Case mas(4)
Case 1
g.DrawImage(img_w, t)
Case 2
g.DrawImage(img_r, t)
Case 3
g.DrawImage(img_o, t)
Case 4
g.DrawImage(img_g, t)
Case 5
g.DrawImage(img_b, t)
Case 6
g.DrawImage(img_y, t)
End Select
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click с вправо
mas_t(0) = mas(3)
mas_t(1) = mas(0)
mas_t(2) = mas(1)
mas_t(3) = mas(2)
mas_t(4) = mas(4)
mas_t(5) = mas(5)
mas(0) = mas_t(0)
mas(1) = mas_t(1)
mas(2) = mas_t(2)
mas(3) = mas_t(3)
mas(4) = mas_t(4)
mas(5) = mas_t(5)
Me.Refresh()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
‘ кнопка влево
mas_t(0) = mas(1)
mas_t(1) = mas(2)
mas_t(2) = mas(3)
mas_t(3) = mas(0)
mas_t(4) = mas(4)
mas_t(5) = mas(5)
mas(0) = mas_t(0)
mas(1) = mas_t(1)
mas(2) = mas_t(2)
mas(3) = mas_t(3)
mas(4) = mas_t(4)
mas(5) = mas_t(5)
Me.Refresh()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
‘ кнопка вверх
mas_t(0) = mas(5)
mas_t(1) = mas(1)
mas_t(2) = mas(4)
mas_t(3) = mas(3)
mas_t(4) = mas(0)
mas_t(5) = mas(2)
mas(0) = mas_t(0)
mas(1) = mas_t(1)
mas(2) = mas_t(2)
mas(3) = mas_t(3)
mas(4) = mas_t(4)
mas(5) = mas_t(5)
Me.Refresh()
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
‘ кнопка вниз
mas_t(0) = mas(4)
mas_t(1) = mas(1)
mas_t(2) = mas(5)
mas_t(3) = mas(3)
mas_t(4) = mas(2)
mas_t(5) = mas(0)
mas(0) = mas_t(0)
mas(1) = mas_t(1)
mas(2) = mas_t(2)
mas(3) = mas_t(3)
mas(4) = mas_t(4)
mas(5) = mas_t(5)
Me.Refresh()
End Sub
End Sub
End Class
Задача №25
ТРЕБУЕТСЯ: |
1. Создать программу, рисующую на форме круг, разделенный на 20 секторов по 30 градусов каждый. Каждый сектор закрасить в свой цвет. 2. Обеспечить динамическую смену цветов (вращение по часовой стрелке) данного круга. |
ОГРАНИЧЕНИЯ: |
· Обеспечить отображение изображения при возможных манипуляциях с формой (изменение размеров, свертывание и др.) · Язык программирования – Visual Basic .Net или C # (по выбору) |
На форму необходимо добавить элемент Timer
Объявляем переменную:
Public n_color As Integer = 11
В обработчик события Timer1_Tick записываем:
Dim PointFont() As System.Drawing.Brush = {New SolidBrush(Color.Цвет1), New SolidBrush(Color.Цвет2), New SolidBrush(Color. Цвет3),
New SolidBrush(Color. Цвет4), New SolidBrush(Color. Цвет5), New SolidBrush(Color. Цвет6), New SolidBrush(Color. Цвет7), New SolidBrush(Color. Цвет8),New SolidBrush(Color. Цвет9), New SolidBrush(Color. Цвет10), New SolidBrush(Color. Цвет11), New SolidBrush(Color. Цвет12)}
Dim g As Graphics
Dim i, k As Integer
g = Me.CreateGraphics
For i = 0 To 11
k = (i + n_color)
k = k Mod 12
g.FillPie(PointFont(k), 50, 50, 200, 200, i * 30, 30)
Next
n_color -= 1
If n_color = -1 Then n_color = 11
Задача №26
ДАНО: |
Набор графических файлов формата .JPG, содержащихся в некоторой папке на компьютере. |
ТРЕБУЕТСЯ: |
1. Создать программу, реализующую функции слайд-шоу из файлов, содержащихся в данной папке c помощью элемента PictureBox. |
ОГРАНИЧЕНИЯ: |
· Программа должна обеспечивать функции выбора папки, выбора скорости показа с помощью элемента ComboBox, оптимального подбора размеров PictureBox. · Программа должна предусматривать наличие кнопок «Старт» и «Стоп», по которым начинается и останавливается показ файлов. Эти кнопки не должны быть доступными одновременно. · Программа должна предусматривать наличие кнопок «Вперед» и «Назад», с помощью которых должна быть обеспечена возможность просмотра файлов по одному. В режиме слайд-шоу эти кнопки не доступны. По достижении первого и последнего файла соответствующие кнопки также должны быть недоступны. · Язык программирования – Visual Basic .Net или C # (по выбору) |
Уважаемый посетитель!
Чтобы распечатать файл, скачайте его (в формате Word).
Ссылка на скачивание - внизу страницы.