Релиб / Программирование / Visual Basic / ПРЕДЛОГАЮ ЗАРОБОТАТЬ ГОЛОВОЙ / Latest Posts

RE: ПРЕДЛОГАЮ ЗАРОБОТАТЬ ГОЛОВОЙ

Anton ff — Wed, 21 Feb 2007 19:58:01 GMT

Все сделал! Вот тока вопрос возник а как сделать так чтобы цвета не рандомом были а только красный, желтый и зеленый?

RE: ПРЕДЛОГАЮ ЗАРОБОТАТЬ ГОЛОВОЙ

Anton ff — Wed, 21 Feb 2007 19:52:34 GMT

Собрал работает тока временые параметры не работают там цвет и форма меняеться очень быстро не взерая на то сколько поставил!

Private Sub Command1_Click()
Timer1.Interval = 5 Вот тут я менял.
Timer1.Enabled = True
Timer2.Interval = 15 Вот тут я менял.
Timer2.Enabled = True
End Sub

RE: ПРЕДЛОГАЮ ЗАРОБОТАТЬ ГОЛОВОЙ

CepbIu — Wed, 21 Feb 2007 13:47:30 GMT

PictureBox, в ToolBox-е он с кактусом в пустыне

RE: ПРЕДЛОГАЮ ЗАРОБОТАТЬ ГОЛОВОЙ

Anton ff — Wed, 21 Feb 2007 12:15:13 GMT

Я вкурсе того что на форме элементы надо создавать кнопки и таймеры я зделал а вот

i = 1
Picture1.ScaleMode = 3
Picture1.FillStyle = 0

А это какой элемнт????

RE: ПРЕДЛОГАЮ ЗАРОБОТАТЬ ГОЛОВОЙ

bazile — Wed, 21 Feb 2007 10:05:59 GMT

Anton ff, темам надо давать нормальные названия и не писать все заглавными буквами. В следующий раз тему с подобным названием я сразу удалю независимо от наличия ответов.

RE: ПРЕДЛОГАЮ ЗАРОБОТАТЬ ГОЛОВОЙ

CepbIu — Wed, 21 Feb 2007 09:42:32 GMT

элемнты Picture1, Command1, Command2, Command3, Timer1 и Timer2 надо самостоятельно создать на форме.

RE: ПРЕДЛОГАЮ ЗАРОБОТАТЬ ГОЛОВОЙ

Anton ff — Wed, 21 Feb 2007 00:20:21 GMT

Private Sub Form_Load()
i = 1
Picture1.ScaleMode = 3
Picture1.FillStyle = 0
Вот тут не заработало или я к форме присоединил либо напильник у меня плохой . Блин расскажите в чем косяк???

RE: ПРЕДЛОГАЮ ЗАРОБОТАТЬ ГОЛОВОЙ

CepbIu — Tue, 20 Feb 2007 23:25:15 GMT

один из вариантов:

[code]

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
[/code]

p/s: если не будет работать, то обработай напильником

ПРЕДЛОГАЮ ЗАРОБОТАТЬ ГОЛОВОЙ

Anton ff — Tue, 20 Feb 2007 20:35:21 GMT

Предлагаю заработать головой. Мне срочно нужно сделать прогу на VB.

Прога очень простая там два таймера 1й отвечает чтобы через 5 секунд фигура на форме изменяла свою геометрическую форму (круг , квадрат, треугольник,) а 2й отвечает за то чтобы каждые 10 секунд цвет фигуры менялся не зависемо от ее формы.

Есть еще 3 кнопки: Стоп, Пуск, и Выход.

Форма есть скину на мыло!!!!

Оплата договорная либо по wmz либо на моб скину.