Visual Basic (TIMER)

MuKkY

zdar prosim vas ako mam vo VB spravit aby mi blikali obrazky ...
chcem aby modry a cerveny stvorcek blikali tak aby raz blikol jeden stvorcek (1sekunda) a potom aby druhy blikol

dik za radu
Obrázok

JurijRubanov

Najjednoduchsie je zadefinovat si celocislenu premennu a pomocou nej vytvorit takpovediac 4 rozne stavy. Pokial by sa mali jednoduchsie striedat, tak sa da prvy a treti stav vynechat.
1 - obidva stvorce su zobrazene
2 - cerveny je zobrazeny, modry nie
3 - obidva su zobrazene
4 - modry je zobrazeny, cerveny nie

zdrojak v deklaracnej casti kodu

Kód: Vybrať všetko

dim stav as integer

zdrojak v Private Sub Form_Load()

Kód: Vybrať všetko

stav=1

zdrojak v Private Sub Timer1_Timer()

Kód: Vybrať všetko

if stav=1 then
 shape_modry.visible=true
 shape_cerveny.visible=true
 stav=2
elseif stav=2 then
 shape_modry.visible=false
 shape_cerveny.visible=true
 stav=3
elseif stav=3 then
 shape_modry.visible=true
 shape_cerveny.visible=true
 stav=4
elseif stav=4 then
 shape_modry.visible=true
 shape_cerveny.visible=false
 stav=1
end if