Pomoc oko Timer-a u VB 6

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Uloguj se preko Facebooka da bi skinuo fajl:

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
HVALA UNAPRED
mycity.rs/must-login.png

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

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 }

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Uloguj se preko Facebooka da bi skinuo fajl:

Ne znam zasto, ali ne radi
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!

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

hahaha, slatko me nasmeja
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 )

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

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

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Hvala puno, RADI