Názory ke článku VB - 4. lekce
![](img/tr.png)
chtěl bych se zeptat jeslti Timer může přičítat hodnoty už v proměné-chci aby mi program zobrazil v msgboxu postupné přičítání hodnot
něco jako
Private Sub Form_Load()
dim a as string
a = 10
end sub
Private Sub Timer1_Timer()
a = a + 1
end sub
Private Sub Command1_Click()
msgbox a 'a v tomto msgboxu aby se mi zobrazilo postupné přičítání k proměné a
End Sub
jeslti mě někdo pochopil jde něco takového vytvořit??abych neviděl jak se čísla přičítají ale viděl třeba jen výsledek po 10s
23. 9. 2007
nevim proc ale asi 6x uz sem tenhle clanek precetl a porad se mi nedari udelat domaci ukol ... proste to nejak nechce fungovat :(
28. 10. 2007
To medy75: No mohlo by to být třeba takto... Pokud něčemu neporozumíč tak mi napiš.
Public a As Byte
Private Sub Form_Load()
Timer1.Enabled = False
Timer1.Interval = 1000
a = 10
tlacitko = MsgBox("Vypnout ručně?", vbYesNo)
If tlacitko = 6 Then
End
Else
Timer1.Enabled = True
End If
End Sub
Private Sub Timer1_Timer()
a = a - 1
Label1.Caption = "Vypínání: " & a
If a = 0 Then
MsgBox "Konec"
End
ElseIf a < 6 Then
Beep
End If
End Sub
28. 10. 2007
To medy75: Jo a ještě sem zapoměl. Jelikož kód v timer1_timer se provede až po uplynutí intervalu tak za a musíš dosadit číslo o 1 menší. Takže 9(ovšem to je pro přápad, že se program vypne za 10 sekund.
28. 10. 2007
To sammael: Tohle ti nebude fungovat, protože máš deklarovanou proměnou "a" pouze jako lokalní pro Form_load, takže oprava by byla takhle:
Dim a As String
Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 1000 'Pro případ, že chceš aby se přičítalo po sekundě
a = 10
End Sub
Private Sub Timer1_Timer()
a = a + 1
End Sub
Private Sub Command1_Click()
MsgBox a
End Sub
9. 2. 2008
chcem sa opytat ako sa daju do kalkulacky odmocniny a take veci ako je sinus, na druhu a take??
15. 4. 2008
Tak na sinus a cosinus su funkcie sin() a cos() v tvare
premenna = sin(text1.text)
a ked chces na druhu tak je to trebars
Private Sub Command1_Click()
Label1.Caption = Text1.Text * Text1.Text
End Sub
kde command1 je tlacitko pre mocninu