Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: W czym jest problem?
gibcio




Typ: neutral
Postów: 39
Zarejestrowany: Oct 2004
W czym jest problem?

Mam coś takiego:

Dim Czas As Integer
Const Limit1 = 7200 'co odpowiada 2 godzinom

Private Sub Timer1_Timer()
Czas = Czas + 1
If Czas = Limit Then
End If
If var100 = var100 Then
Label5.Caption = "Moja energia to: " & var100 & "%"
Timer1.Enabled = False
Timer2.Enabled = True
End If
End Sub

Interval mam ustawiony na 1000
I jak włącze program to tekst w Label5 wyskakuje mi po 1 sekundzie, a ja chce żeby wyskoczył po 2 godzinach. Co robię nie tak?

24-11-2004 00:34
Pokaż profil gibcio  Wyślij email do gibcio        1654622
Knight Lore''FC




Typ: neutral
Postów: 240
Zarejestrowany: Jan 2003

po pierwsze : If Czas = Limit Then
powinno byc : If Czas = Limit1 Then
tylko dla czego zaraz konczysz ten warunek end if

nastepne... warunek if var100=var100 then jest BEZ SENSU bo ZAWSZE Var100=Var100

24-11-2004 15:13
Pokaż profil Knight Lore  Wyślij email do Knight Lore        1065423
gibcio




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

Zmieniłem
If Czas = Limit Then
na
If Czas = Limit1

i dalej napis na labelu wyskakuje po sekundzie a nie po 2 godzinach.

24-11-2004 16:35
Pokaż profil gibcio  Wyślij email do gibcio        1654622
Viper87



Typ: neutral
Postów: 490
Zarejestrowany: Oct 2002

Człowieku!

1.) Co to jest zmienna var100? W przytoczonym kodzie nie jest ani zadeklarowana, ani nie jest do niej przypisana żadan wartość. Jak ktoś ma Ci pomóc jak nie piszesz do czego ona jest?

2.) If czas=Limit1 Then - po tym fragmencie kodu nic nie ma. Co chciałeś, żeby tam zostało wykonane?

Pomijając zmienne o których nie wiem do czego mają służyć, to Twój kod powinien wyglądać tak:

Dim Czas As Integer
Const Limit1 = 7200 'co odpowiada 2 godzinom

Private Sub Timer1_Timer()
Czas = Czas + 1
If Czas = Limit1 Then
Label5.Caption = "Moja energia to: " & var100 & "%"
Timer1.Enabled = False
End If
End Sub







_____________________________________________
Viper

"Savoir c`est prevoir, prevoir c`est prevenir". 
(Wiedzieć to przewidzieć, przewidzieć to zapobiegać) 


24-11-2004 16:42
Pokaż profil Viper87  Wyślij email do Viper87   Odwiedź stronę Viper87  
marcin_an
Forumowicz




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

Wyjasnię to wprost:
1) Bo jeśli warunek sprawdzający, czy nie upłynął limit czasu jest prawdziwy - nic nie jest wykonywane (w środku jest pusto).
2) Bo wpisywanie tekstu do Labela jest umieszcozne w warunku, który jest zawsze prawdziwy - var100 zawsze równa się var100 (pod warunkiem, że var100 ro zmienna, a nie funkcja).


_____________________________________________
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

24-11-2004 17:35
Pokaż profil marcin_an  Wyślij email do marcin_an   Odwiedź stronę marcin_an  
gibcio




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

Już sobie z tym poradziłem ale wielkie dzięki

24-11-2004 18:50
Pokaż profil gibcio  Wyślij email do gibcio        1654622
Knight Lore''FC




Typ: neutral
Postów: 240
Zarejestrowany: Jan 2003

marcin_an - zastanow sie...


Wyjasnię to wprost:
1) Bo jeśli warunek sprawdzający, czy nie upłynął limit czasu jest prawdziwy - nic nie jest wykonywane (w środku jest pusto).

nie ma znaczenia czy czas minal czy jeszcze nie - i tak program w tym miejscu NIC nie robi



2) Bo wpisywanie tekstu do Labela jest umieszcozne w warunku, który jest zawsze prawdziwy - var100 zawsze równa się var100 (pod warunkiem, że var100 ro zmienna, a nie funkcja).


jesli ten warunek jest ZAWSZE prawdziwy to PO CO robic ten warunek ? hehe

25-11-2004 01:33
Pokaż profil Knight Lore  Wyślij email do Knight Lore        1065423
Wszystkich odpowiedzi: 6 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1