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

• #105 sonar addikt

  Új Válasz 2004-12-23 00:13:59 #105

  Ú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

  

  sonar

  addikt

  Helló!
  
  Nos kicsit előbbre jutottam miközben a könyvet lapozgattam.
  Rájöttem, hogy a Do Loop ciklus helyett a While --wend páros nekem a megfelelőbb. És arra is rájöttem, hogy miért nem reagált semmire se a start se a stop gomb. A megoldás egyszerű: létre kell hozni egy eljárást (add procedure) és a start/stop rutin végére oda kell bigyeszteni ennek az eljárásnak a nevét és akkor már frankó lesz. De még mindig van egy kis gondom: hogy ugye nekem a start lenyomása után a stopra már nem reagál, mert bent ragad a while wend ciklusban. Szerintem a gomb vmelyik tulajdonságának megváltoztatásával lehetne ezt orvosolni v nem?
  Így néz ki a progi:
  (Értelmet ne keressetek benne, csak otthon tanulok programozni!)
  
  Dim X As Double, Y As Double, z As Double, ala As Boolean
  
  Private Sub Command1_Click()
  
  ala = True
  Szamol
  
  End Sub
  
  Private Sub Command2_Click()
  
  ala = False
  Szamol
  
  End Sub
  
  Public Sub Szamol()
  
  While ala = True
  For X = 1 To 793479731 Step 0.1
  Y = X * X
  z = 2 * X - Y * 1.5
  Next
  Wend
  
  End Sub
  
  Azt kérdem még, hogy a következő Button tulajdonságok pontosan mit is jelentenek:
  Cancel :True/False
  CausesValidation
  TabIndex
  Tabstop
  Tag
  Előre is köszönök újfent minden hasznos információt.
  >>>I wish you a Merry Christmas!<<<

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