MyCity » Visual Studio -> Visual Basic » timer (kako se postavlja?)

timer (kako se postavlja?)

Napisano na dan: 27.10.2007

timer (kako se postavlja?)
Sledeća strana Pagination

Idi na vrh

Poslao: 27 Okt 2007 15:52
Idi na vrh
offline
  • Pridružio: 03 Jun 2005
  • Poruke: 72

Pozdrav,

Za malu vezbu, treba da nacrtam semafor i na tom semaforu treba jedno (bilo koje) svetlo da menja boju, na primer neka to bude zuto. Medjutim, ja neznam kako da postavim timer koji ce svake sekunde menjati zuto-crno itd.

Public Class Form1     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click         Dim papir1 As Graphics         papir1 = PictureBox1.CreateGraphics()         Dim cetkaCrna As Brush = Brushes.Black         Dim cetkaZuta As Brush = Brushes.Yellow         Dim cetkaZelena As Brush = Brushes.Green         Dim olovkaSiva As Pen = New Pen(Color.Gray)         Dim cetkaCrvena As Brush = Brushes.Red         papir1.DrawRectangle(olovkaSiva, 1, 17, 110, 220)         papir1.FillRectangle(cetkaCrna, 2, 18, 109, 219)         papir1.FillEllipse(cetkaCrvena, 20, 20, 70, 70)         papir1.FillEllipse(cetkaZuta, 20, 92, 70, 70)         papir1.FillEllipse(cetkaZelena, 20, 164, 70, 70)     End Sub End Class

Kontam da treba da se napravi jos jedan crni krug preko zutog, i samo da se izmenjuju svakog intervala, tako da kad se pojavi crni nevidi se krug, nego izgleda kao da se zuta ugasila.

Moze mala pomoc oko ovoga? Embarassed

Dopuna: 27 Okt 2007 15:52



Registruj se da bi učestvovao u diskusiji. Registrovanim korisnicima se NE prikazuju reklame unutar poruka.
Poslao: 29 Okt 2007 15:34
Idi na vrh
offline
  • Pridružio: 13 Maj 2004
  • Poruke: 166
  • Gde živiš: Banja Luka

Ja bih to rjesio ovako:
napravio bih tri kruga (crveni, zuti i zeleni) i mjenjao bi njihov property visible.

Znaci kad treba da se upali crveno svjetlo islo bi ovako:
ZeleniKrug.Visible = False ZutiKrug.Visible = False CrveniKrug.Visible = True

, a timer na dogadjaju Form_Load postavis da je

timer1.Interval = 1000 ' 1000 ms = 1 sec

onda

Private Sub Timer1_Timer() ' kod koji ovdje stavimo izvrsavace se  svake sekunde (jer smo 'gore postavili na 1000) End Sub

Probaj nesto napraviti, ako zapnes vichi.
pozdrav



MyCity » Visual Studio -> Visual Basic » timer (kako se postavlja?)

Ko je trenutno na forumu
 

Ukupno su 1222 korisnika na forumu :: 141 registrovanih, 9 sakrivenih i 1072 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 3466 - dana 01 Jun 2021 17:07

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: 100ka, A.R.Chafee.Jr., aleksmajstor, Alexa77, AndrejPetar, Apok, aramis s, arezina, Bane5, Belac91, bgs, bobomicek, bojan581, bokisha253, boxbole, bpop, bufanje, Cian, cvrle312, dankisha, Deki Duga Devetka, deLacy, DH, Djota1, dok80, Dorcolac, esko_hz, Fabius, Feller, filip1326, Flanker-G, FOX, Futurama, Gerilac, Gogi_avio, goranvas, gregorxix, Hardenberg, Heisenberg99, Hitri, Holy Saber, Ir, istina, Istman, JankoS, jarovitt, Josef, K-1A, Kanader, Kolimator, kolle.the.kid, koom0001, Kubovac, kunktator, lafa008, Lester Freamon, LjubisaR, LostInSpaceandTime, M74AB3, macak44, MarijaC84, markomacii9, mat, MB120mm, mercedesamg, Mercury, Metanoja, Mi lao shu, Milan Miscevic, Milometer, milos.cbr, mir, mist-mist, mix1, Mićko, monomah, Motocar, N.e.m.a.nj.a., narandzasti, Ne doznajem se u oružje, neko iz mase, neutrino, nevjerna beba, nisamBot, nnnnnnnnnn, novator, opt1, Orc, paja69, Paklenica, panzerwaffe, PlayerOne, precan, PrincipL, proka89, Rothmans, S94, Sagotolio, samocitam, Sančo, sekretar, Shadow soldier, Shinobi, silikon, Sir Budimir, Sirius, Sićko, spalev, Srky Boy, strn, styg, synergia, Tas011, tenkiasta71, theNedjeljko, Token, Tribal, tubular, tvlada, vasa.93, vathra, veljkovicdani, vensla, vidra1, Vlad000, vladetije, Volkhov-M, VOŽD, Weah88, wolf431, Woya, XBMC, Yugol33, zafon031, Zdilar, ZetaMan, zlatkoa987, zokizemun, Zorge, Zrcalo, šumar bk2