Проблема написания в Microsoft Visual Basic программы
Добавлено: Ср дек 17, 2008 19:12
Кто знает Microsoft Visual , а то возникла проблема в написании программы
нужно создать програму чтоб выбиралось 2D рисунок и 3D рисунок, при это таймером чтоб сменялась окраска, огромная пробелема сдать работу надо завтра ((
вот начало , надо только 2 дейтвия типа написать
Private Sub EndPr_Click()
End
End Sub
Private Sub м9_Click()
MsgBox "Виконав студент групи ПЦБ-11 Іванов І. І. Варіант № 1", _
vbInformation, "Про програму"
End Sub
Private Sub Draw_Click()
If D2.Value = True Then
D2Draw
Else
D3Draw
End If
End Sub
Private Sub м5_Click()
Draw_Click
End Sub
Private Sub м2_Click()
D2.Value = True
End Sub
Private Sub м3_Click()
D3.Value = True
End Sub
Private Sub Timer1_Timer()
D2Draw
End Sub
Для создания 2 переключателей сначало создаем Frame. В свойствах Frame Properties Задаеться: Caption – Тип об’єкта. дальше в Frame добваляем 2 переключателя Options Button, их свойствах: вервого - Caption – 2D об’єкт, Name – D2, второго - Caption – 3D об’єкт, Name – D3.
на рисунке показана форма с 2 команадми, для их создания создаем элемент Command Button, В свойствах кнопок: верхней - Caption – Вихід, Name – EndPr, нижней - Caption – Малювати, Name – Draw.
Рисование фигур выполняеться в PictureBox, размещеном в Frame. В свойствах: Frame Properties – Caption – Креслення об’єкта, PictureBox Properties - Name – P, AutoRedraw – True.
Для создвания эфекта смены цвета линий или закраски фигур добавляем Timer. В свойствах таймера: Enabled – False, Interval (інтервал срабатывания) – 100 мілісекунд. После програмирования таймер включаеться при включении 2 Д режима и выключаеться при включении 3 Д режима.
[mod="Злобный"]Подредактировал малость.[/mod]
нужно создать програму чтоб выбиралось 2D рисунок и 3D рисунок, при это таймером чтоб сменялась окраска, огромная пробелема сдать работу надо завтра ((
вот начало , надо только 2 дейтвия типа написать
Private Sub EndPr_Click()
End
End Sub
Private Sub м9_Click()
MsgBox "Виконав студент групи ПЦБ-11 Іванов І. І. Варіант № 1", _
vbInformation, "Про програму"
End Sub
Private Sub Draw_Click()
If D2.Value = True Then
D2Draw
Else
D3Draw
End If
End Sub
Private Sub м5_Click()
Draw_Click
End Sub
Private Sub м2_Click()
D2.Value = True
End Sub
Private Sub м3_Click()
D3.Value = True
End Sub
Private Sub Timer1_Timer()
D2Draw
End Sub
Для создания 2 переключателей сначало создаем Frame. В свойствах Frame Properties Задаеться: Caption – Тип об’єкта. дальше в Frame добваляем 2 переключателя Options Button, их свойствах: вервого - Caption – 2D об’єкт, Name – D2, второго - Caption – 3D об’єкт, Name – D3.
на рисунке показана форма с 2 команадми, для их создания создаем элемент Command Button, В свойствах кнопок: верхней - Caption – Вихід, Name – EndPr, нижней - Caption – Малювати, Name – Draw.
Рисование фигур выполняеться в PictureBox, размещеном в Frame. В свойствах: Frame Properties – Caption – Креслення об’єкта, PictureBox Properties - Name – P, AutoRedraw – True.
Для создвания эфекта смены цвета линий или закраски фигур добавляем Timer. В свойствах таймера: Enabled – False, Interval (інтервал срабатывания) – 100 мілісекунд. После програмирования таймер включаеться при включении 2 Д режима и выключаеться при включении 3 Д режима.
[mod="Злобный"]Подредактировал малость.[/mod]