Új hozzászólás Aktív témák

• #109 Victorius tag

  Új Válasz 2004-12-29 11:43:32 #109

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Victorius

  tag

  Az a helyzet, hogy én is az voltam eddig
  
  Kipróbáltam ezt itt alant, és a stop gombra megállt!
  
  Szóval:
  
  Private Sub Indit_Click()
  Dim a As Long
  Dim b As Long
  Dim c As Long
  Dim openforms
  
  Do
  a = 0: b = 0: c = 0
  If megall = True Then Exit Do
  Do
  b = 0: c = 0
  a = a + 1
  If a = 1000000000 Then Exit Do
  If megall = True Then Exit Do
  sz1.Caption = Str(a)
  Do
  c = 0
  b = b + 1
  If megall = True Then Exit Do
  If b = 1000000000 Then Exit Do
  sz2.Caption = Str(b)
  Do
  c = c + 1
  If c = 1000000000 Then Exit Do
  If megall = True Then Exit Do
  sz3.Caption = Str(c)
  If c Mod 1000 = 0 Then openforms = DoEvents()
  Loop
  Loop
  Loop
  Loop
  
  vege:
  End Sub
  
  
  Hmm, hát ha azt mondod, kicsit eltúloztam a ciklusok számát, nyilván igazad van... (meg biztosan nem is túl szép a kód).
  
  Tehát ez volt az indítógomb eljárása. A megállító csak annyit tartalmaz, mint a tiéd (átállítja igazra a megall változót).
  
  Apropó megall változó. Hiányolhatod, hogy hol deklaráltam. Létrehoztam egy külön modult csak ennek a kedvéért:
  
  Public megall as boolean
  
  Ez azért van így, mert csak itt lehet globálisan deklarálni egy változót. Persze elképzelhető, hogy nem kell ennyire túlbonyolítani, de nálam csak így akaródzott menni.
  
  Szóval ez a bizonyos DoEvents() utasításként is alkalmazható, de függvény formájában kell meghívni (és jelen esetben tökmindegy, mivel tér vissza).
  
  Jó munkát!

Új hozzászólás Aktív témák