Pomoc oko Timer-a u VB 6

Pomoc oko Timer-a u VB 6

offline
  • Marko Radukin
  • Mikro-X
  • Pridružio: 21 Nov 2008
  • Poruke: 29
  • Gde živiš: Novi Sad

Pozdrav svima,
Napravio sam program u VB 6, koji ima dva button-a, na jednom pise Otvoti CD, a na drugom Zatvori CD. Pitanje je Da li bi moglo da se nemesti, naprimer kada se pokrene program, pomocu tajmera da se za 1 sekundu pritisne dugme Otvori CD, a za 3 sekunde komanda Zatvori CD i to stalno da ponavlja- da neprestaje? Zakacio sam primer, preuzmite pa vidite da li mi ima pomoci Smile
HVALA UNAPRED Surprised
mycity.rs/must-login.png



Registruj se da bi učestvovao u diskusiji. Registrovanim korisnicima se NE prikazuju reklame unutar poruka.
offline
  • Pridružio: 08 Jan 2010
  • Poruke: 101

ne znam sta ti znace te 3 sekunde ali moze. napravi program ovako:
form_load {    startuj timer1 } timer1(jedna sekunda) {    otvori cd-rom    startuj timer2 } timer2(tri sekunde){    zatvori cd-rom    startuj timer1 }



offline
  • Marko Radukin
  • Mikro-X
  • Pridružio: 21 Nov 2008
  • Poruke: 29
  • Gde živiš: Novi Sad

Ne znam zasto, ali ne radi Sad
Ako sam dobro uradio, stavio sam u tu formu 1 timer i u njega upisao kod koji si mi naveo, ne znam gde gresim, u svakom slucaju Hvala Na Pomoci! Najveci problem je to sto uopste ne znam kako se koristi timer, a moja sadasnji program izgleda ovako:
mycity.rs/must-login.png
Ako ti nije problem, uradi mi taj program pa okaci, jos jednom HVALA UNAPRED!

offline
  • Pridružio: 08 Jan 2010
  • Poruke: 101

hahaha, slatko me nasmeja LOL
taj kod sto sam ti ja napisao nisam mislio bukvalno da ga kopiras, dao sam ti samo ideju kako da resis problem

Private Sub Form_Load()    Timer1.Enabled = False    Timer2.Enabled = False    'vreme je u milisekundama    Timer1.Interval = 1000    Timer2.Interval = 3000    Timer1.Enabled = True End Sub Private Sub Timer1_Timer()    retvalue = mciSendString("set CDAudio door open", returnstring, 127, 0)    Timer2.Enabled = True    Timer1.Enabled = False End Sub Private Sub Timer2_Timer()    retvalue = mciSendString("set CDAudio door closed", returnstring, 127, 0)    Timer1.Enabled = True    Timer2.Enabled = False End Sub

ovako bi otprilike trebalo da se uradi, samo dodaj 2 timer kontrole, nisam siguran da li treba ovoliko paljenja gasenja timer-a i da li oni sami stave sebi stanje enabled = false kad odrade svoje. kucao sam u tekst editoru i nemam kompajler za VB na linuxu tako da nisam ni siguran da li ce kod raditi. secam se kada sam ja pravio slicnu stvar, samo ja sam radio bez timer-a

Private Sub Form_Load()    Call Otvori() End Sub Private Sub Otvori()    retvalue = mciSendString("set CDAudio door open", returnstring, 127, 0)    Call Zatvori() End Sub Private Sub Zatvori()    retvalue = mciSendString("set CDAudio door closed", returnstring, 127, 0)    Call Otvori() End Sub

dobijes takozvani infinite loop, odnosno program koji se nikada nece zavrsiti (tip: spremi task manager odma za ubijanje procesa Wink )

offline
  • Pridružio: 06 Maj 2007
  • Poruke: 241
  • Gde živiš: Beograd

Private Declare Function mciSendString Lib "winmm.dll" Alias _ "mciSendStringA" (ByVal lpstrCommand As String, ByVal _ lpstrReturnString As String, ByVal uReturnLength As Long, _ ByVal hwndCallback As Long) As Long Private Sub Command1_Click()     'Otvori CD     retvalue = mciSendString("set CDAudio door open", returnstring, 127, 0) End Sub Private Sub Command2_Click()     'Zatvori CD     retvalue = mciSendString("set CDAudio door closed", returnstring, 127, 0) End Sub Private Sub Form_Unload(Cancel As Integer)     End End Sub Private Sub Timer1_Timer()     Call Command1_Click     Timer2.Enabled = True     Timer1.Enabled = False End Sub Private Sub Timer2_Timer()     Call Command2_Click     Timer1.Enabled = True     Timer2.Enabled = False End Sub

offline
  • Marko Radukin
  • Mikro-X
  • Pridružio: 21 Nov 2008
  • Poruke: 29
  • Gde živiš: Novi Sad

Hvala puno, RADI Wink

Ko je trenutno na forumu
 

Ukupno su 1366 korisnika na forumu :: 41 registrovanih, 5 sakrivenih i 1320 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: _Rade, aleksmajstor, babaroga, BlekMen, Brana01, cemix, darionis, darios, draganca, FileFinder, goxin, Griffon vulture, ILGromovnik, kikisp, kolle.the.kid, Kubovac, kybonacci, ljuba, Mcdado, Mercury, Mihajlo, milenko crazy north, Milos ZA, nebkv, nemkea71, nikola287, pein, Ripanjac, RJ, ruma, Seeker, solic, Srle993, Vlad000, vladaa012, VP6919, W123, YU-UKI, zillbg, zzapNDjuric99, Čivi