|
|
|
новичок
участник
Last Login: 23.02.2007 12:44
Сообщ.: 5,
Visits: 22
|
|
Предлагаю заработать головой. Мне срочно нужно сделать прогу на VB. Прога очень простая там два таймера 1й отвечает чтобы через 5 секунд фигура на форме изменяла свою геометрическую форму (круг , квадрат, треугольник,) а 2й отвечает за то чтобы каждые 10 секунд цвет фигуры менялся не зависемо от ее формы. Есть еще 3 кнопки: Стоп, Пуск, и Выход. Форма есть скину на мыло!!!! Оплата договорная либо по wmz либо на моб скину.
|
|
|
|
|
Supreme Being
участник
Last Login: 26.10.2007 16:04
Сообщ.: 159,
Visits: 1 042
|
|
один из вариантов:Private Declare Function FloodFill Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long, ByVal crColor As Long) As Long
Dim i As Integer
Private Sub Command1_Click()
Timer1.Interval = 5000
Timer1.Enabled = True
Timer2.Interval = 10000
Timer2.Enabled = True
End Sub
Private Sub Command2_Click()
Timer1.Enabled = False
Timer2.Enabled = False
End Sub
Private Sub Command3_Click()
Unload Me
End Sub
Private Sub Form_Load()
i = 1
Picture1.ScaleMode = 3
Picture1.FillStyle = 0
End Sub
Private Sub Timer1_Timer()
Picture1.Cls
Select Case i
Case 1
Picture1.Line (20, 20)-(200, 200), 0
Picture1.Line -(20, 200), 0
Picture1.Line -(20, 20), 0
i = 2
Case 2
Picture1.Circle (110, 110), 90
i = 3
Case 3
Picture1.Line (20, 20)-(200, 200), 0, B
i = 1
End Select
FloodFill Picture1.hdc, 100, 110, 0
End Sub
Private Sub Timer2_Timer()
Randomize Timer
Dim r As Integer, g As Integer, b As Integer
r = Int(Rnd(1) * 255)
g = Int(Rnd(1) * 255)
b = Int(Rnd(1) * 255)
Picture1.FillColor = RGB(r, g, b)
FloodFill Picture1.hdc, 100, 110, 0
End Sub
p/s: если не будет работать, то обработай напильником
|
|
|
|
|
новичок
участник
Last Login: 23.02.2007 12:44
Сообщ.: 5,
Visits: 22
|
|
Private Sub Form_Load()
i = 1
Picture1.ScaleMode = 3
Picture1.FillStyle = 0
Вот тут не заработало или я к форме присоединил либо напильник у меня плохой . Блин расскажите в чем косяк???
|
|
|
|
|
Supreme Being
участник
Last Login: 26.10.2007 16:04
Сообщ.: 159,
Visits: 1 042
|
|
| элемнты Picture1, Command1, Command2, Command3, Timer1 и Timer2 надо самостоятельно создать на форме.
|
|
|
|
|
Supreme Being
модератор
Last Login: 04.05.2008 13:32
Сообщ.: 7 240,
Visits: 65 445
|
|
| Anton ff, темам надо давать нормальные названия и не писать все заглавными буквами. В следующий раз тему с подобным названием я сразу удалю независимо от наличия ответов.
|
|
|
|
|
новичок
участник
Last Login: 23.02.2007 12:44
Сообщ.: 5,
Visits: 22
|
|
| Я вкурсе того что на форме элементы надо создавать кнопки и таймеры я зделал а вот i = 1
Picture1.ScaleMode = 3
Picture1.FillStyle = 0 А это какой элемнт????
|
|
|
|
|
Supreme Being
участник
Last Login: 26.10.2007 16:04
Сообщ.: 159,
Visits: 1 042
|
|
| PictureBox, в ToolBox-е он с кактусом в пустыне
|
|
|
|
|
новичок
участник
Last Login: 23.02.2007 12:44
Сообщ.: 5,
Visits: 22
|
|
| Собрал работает тока временые параметры не работают там цвет и форма меняеться очень быстро не взерая на то сколько поставил! Private Sub Command1_Click()
Timer1.Interval = 5 Вот тут я менял.
Timer1.Enabled = True
Timer2.Interval = 15 Вот тут я менял.
Timer2.Enabled = True
End Sub
|
|
|
|
|
новичок
участник
Last Login: 23.02.2007 12:44
Сообщ.: 5,
Visits: 22
|
|
| | |