Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: Jaka procedurka?
gibcio




Typ: neutral
Postów: 39
Zarejestrowany: Oct 2004
Jaka procedurka?

Const Limit = 7200 'Czas do odniżenie energii życia
Private Sub Form_Load()
Form1.Caption = "Łukasz"
Czas = 0
End Sub

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If Text1.Text = "Energia" Then
Call Energia_zycia
End If
End Sub

Private Sub Timer1_Timer()
Label2 = Time
End Sub
Private Sub Timer2_Timer()
Dim Czas As Integer
Czas = Czas + 1 'Co sekundę dodaj 1 sek.
If Czas = Limit Then 'Jeżeli upłynięty czas jest równy limitowi, to ...

Jaką tutaja mam wstawić procedurkę żeby odejmowała od 100% energi 25%.

End If
Timer1.Enabled = False '...i przestań zliczać
End Sub
Private Sub Eneriga_zycia()
If Eneria = 0 Then
Label1.Caption = "Jestem na wykończeniu!"
End If
End Sub
Gdy uruchomię program to chciałbym żeby po wpisaniu w Text1 słowa "Energia" program wykonał procedurę w
Private Sub Energia_zycia()


09-11-2004 19:13
Pokaż profil gibcio  Wyślij email do gibcio        1654622
marcin_an
Forumowicz




Typ: neutral
Postów: 1265
Zarejestrowany: Mar 2004

1. eneria = eneria * 0.75
2.
Private Sub Text1_Change()
    If Text1.Text = "Energia" Then Energia_zycia
End Sub


3. Tworzysz komputerowe Tamagotchi?


_____________________________________________
Jedzonko dla Google'a:
Forum na temat Visual Basic, C, C++, Pascal, Programowanie, API, PHP, VBA, VB.NET, QBasic, VBScript, Komputery
Moja strona o wszystkim

09-11-2004 20:56
Pokaż profil marcin_an  Wyślij email do marcin_an   Odwiedź stronę marcin_an  
gibcio




Typ: neutral
Postów: 39
Zarejestrowany: Oct 2004

Tak chciałbym stworzyć coś w rodzaju komputerowego tamagotchi

09-11-2004 22:56
Pokaż profil gibcio  Wyślij email do gibcio        1654622
Wszystkich odpowiedzi: 2 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1