Názory ke článku VB - 4. lekce – Programujte.com
 x   TIP: Přetáhni ikonu na hlavní panel pro připnutí webu
Reklama

Názory ke článku VB - 4. lekce – Programujte.comNázory ke článku VB - 4. lekce – Programujte.com

 

Názory ke článku VB - 4. lekce

Anonymní uživatel   NOVÝ
15. 6. 2005

Zatím stále srozumitelné a bez problémů

sammael   NOVÝ
2. 11. 2006

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

medy75   NOVÝ
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 :(

Anonymní uživatel   NOVÝ
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

Pokca   NOVÝ
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.

Pokca   NOVÝ
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

juro   NOVÝ
9. 2. 2008

chcem sa opytat ako sa daju do kalkulacky odmocniny a take veci ako je sinus, na druhu a take??

DanQo   NOVÝ
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

Přidej svůj názor

×Vložení zdrojáku

×Vložení obrázku

Vložit URL obrázku Vybrat obrázek na disku
Vlož URL adresu obrázku:
Klikni a vyber obrázek z počítače:
 
Podporujeme Gravatara.
Zadej URL adresu Avatara (40 x 40 px) nebo e-mailovou adresu pro použití Gravatara.
Email nikam neukládáme, po získání Gravatara je zahozen.
-
Reaguješ na příspěvek:
Pravidla pro psaní příspěvků, používej diakritiku. ENTER pro nový odstavec, SHIFT + ENTER pro nový řádek.
Sledovat nové názory e-mailem (pouze pro přihlášené)
Sleduj názory ke článku a v případě přidání nového příspěvku o tom budeš vědět mezi prvními.



Hostujeme u Českého hostingu       ISSN 1801-1586       ⇡ Nahoru Webtea.cz logo © 20032016 Programujte.com
Zasadilo a pěstuje Webtea.cz, šéfredaktor Lukáš Churý