Kako da se dugme samo pritisne... :)

Kako da se dugme samo pritisne... :)

offline
  • Pridružio: 04 Maj 2008
  • Poruke: 181
  • Gde živiš: Prijepolje

Pravim neki program i zanima me kako mogu da postavim jedan tajmer i
dugme ... i da posle nekog odredjenog vremena dugme se samo pritisne...? Laughing Very Happy



Registruj se da bi učestvovao u diskusiji. Registrovanim korisnicima se NE prikazuju reklame unutar poruka.
offline
  • Pridružio: 26 Okt 2008
  • Poruke: 1560
  • Gde živiš: Sremski Mihaljevci

Ja bih to ovako uradio:
Prvo deklarises promenljivu BrojacSekunde

Private BrojacSekunde As Integer = 0

Postavis timer1 i kazes u svojstvu:
Interval=1000
Enabled=True

I u tajmeru napises sledeci kod:

BrojacSekunde = (BrojacSekunde + 1)
If BrojacSekunde = 5 Then ' Napisi umesto "5" posle koliko sekundi hoces da ti se aktivira dugme
>>Ovde treba da bidne kod koji pises za dugme<<
End If

Dopuna: 27 Jan 2009 20:51

Shvatio????



offline
  • Pridružio: 04 Sep 2003
  • Poruke: 24135
  • Gde živiš: Wien

@Slavko
I gde tu u tvom kodu pozivas pritiskanje nekog dugmeta sa forme?

offline
  • Pridružio: 18 Apr 2003
  • Poruke: 8134
  • Gde živiš: U kesici gumenih bombona...

Ne znam za VB6, ali u .NETu postoji button.PerformClick().

offline
  • Pridružio: 26 Okt 2008
  • Poruke: 1560
  • Gde živiš: Sremski Mihaljevci

Pa u tajmeru pises kod koji treba da napises u dugme

If BrojacSekunde = 5 Then ' Napisi umesto "5" posle koliko sekundi hoces da ti se aktivira dugme
>>Ovde treba da bidne kod koji pises za dugme<<
End if
Tako da ti tajmer pokrene taj kod

offline
  • Pridružio: 14 Feb 2008
  • Poruke: 12391

Dim Sekunde as integer Form_Load() Sekunde = 0 End Sub Timer1.Timer() Sekunde = Sekunde + 1 If Sekunde = 10 then CommandButton_Click End If End Sub

Gde pise Sekunde = 10 tu stavi posle koliko sekunde da se pritisne. Tajmer stavi na Enabled = True i postavi interval na (priblizno) jednoj sekundi tj 1000. Kod sam pisao bez vb tj nisam radio dok sam pisao. Srecno

Ako 'oces da se ponavlja svake pet sekunde onda dodaj ovo :

Timer1_Timer() Sekunde = Sekunde + 1 If Sekunde = 10 then CommandButton_Click S = 0 End If End Sub

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

Ne moze tako. Kod koriscenja tajmera preko svojstva interval se ukljucuje iskljucuje tajmer(kada je nula se iskljucuje). Svojstvo interval je u milisekundama tako da je 1000 milisekundi jedna sekunda.
Dogadjaj clik dugmeta je u stvari metoda i moze se kao i svaka metoda pozvati ali posto je to privatni dogadjaj forme moze se pozvati samo iz te forme sa Call Command1_Click.

Mnogo je bolje definisati unutar modula sa Public Sub procedura, neku javnu proceduru, koju mozemo pozvati i u okviru dogadjaja dugmeta ali i bilo gde i iz bilo koje forme. U praksi je ovo mnogo bolje i treba izbegavati pozive dogadjaja kontrola jer su private.


Private Sub Command1_Click()     'Neke komande End Sub Private Sub Form_Load()     'Za jednu sekundu     Timer1.Interval = 1000 End Sub Private Sub Timer1_Timer()     Static DugmeJePritisnuto As Boolean     If DugmeJePritisnuto = False Then         DugmeJePritisnuto = True         Call Command1_Click         Print "Prosla je jedna sekunda, automatski je pritisnut je command1."     End If End Sub

https://www.mycity.rs/must-login.png

offline
  • Pridružio: 04 Sep 2003
  • Poruke: 24135
  • Gde živiš: Wien

Jovanovic Slavko ::Pa u tajmeru pises kod koji treba da napises u dugme

If BrojacSekunde = 5 Then ' Napisi umesto "5" posle koliko sekundi hoces da ti se aktivira dugme
>>Ovde treba da bidne kod koji pises za dugme<<
End if
Tako da ti tajmer pokrene taj kod

Pao bi na ispitu kod vecine profesora ukoliko pises kod tako da ti se jedan te isti kod ponavlja na vise mesta.
Ako je neki kod vec pisan u Click metodi nekog dugmeta, onda jedino sto treba je da pozove click metodu tog dugmeta, a ne da duplira kod.

Ko je trenutno na forumu
 

Ukupno su 1376 korisnika na forumu :: 36 registrovanih, 12 sakrivenih i 1328 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: A.R.Chafee.Jr., bankulen, Battlehammer, bojank, cenejac111, Dannyboy, doktor123, dushan, flash12, FOX, HrcAk47, jackreacher011011, janbo, kjkszpj, laurusri, MB120mm, mercedesamg, Metanoja, mikrimaus, milutin134, mocnijogurt, mustangkg, ozzy, Petarvu, procesor, radoznao, raptorsi, Romibrat, Srle993, stegonosa, TheBeastOfMG, Webb, wizzardone, Zoca, |_MeD_|, šumar bk2