| Vorheriges Thema anzeigen :: Nächstes Thema anzeigen |
| Autor |
Nachricht |
Thyll Niebergall
Mini JLI'ler
Anmeldedatum: 25.11.2004
Beiträge: 3
Medaillen: Keine
|
 Verfasst am: 04.12.2004, 13:42 Titel: API Sleep (vb) |
 |
|
hi ich hab n kleines problem mit der API Sleep funktion (in visual basic).
ich will bei einer for next schleife ne verzögerung von 1000 millisecs also 1ner secunde.
hier is ma der code:
| Code: |
(declarations)
Private Declare Sub sleep Lib "Bauzeit" Alias "Sleep" _
(ByVal dwmilliseconds As Long)
-------------------------------------------------------------------------------
Private Sub cmdarbeiterbauen_Click()
Dim Bauzeit As Integer
If Kapital < 60 Then
MsgBox prompt:="Nicht genug Gold vorhanden"
Else
lblunitbau.Caption = "Arbeiter"
Kapital = Kapital - 60
lblkapital = Kapital
For Bauzeit = 60 To 1
lblbauzeit.Caption = Bauzeit
sleep 1000
Next
arbeiterda = arbeiterda + 1
lblarbeiterinsgesamt = arbeiterda
lblbauzeit.Caption = " "
lblunitbau.Caption = " "
End If
End Sub |
|
|
| Nach oben |
|
 |
PeaceKiller
JLI Master
Alter: 36
Anmeldedatum: 28.11.2002
Beiträge: 970
Medaillen: Keine
|
| Verfasst am: 04.12.2004, 13:43 Titel: |
|
|
Und was funktioniert nicht?
_________________
»If the automobile had followed the same development cycle as the computer, a Rolls-Royce would today cost $100, get a million miles per gallon, and explode once a year, killing everyone inside.«
– Robert X. Cringely, InfoWorld magazine |
|
| Nach oben |
|
|
Thyll Niebergall
Mini JLI'ler
Anmeldedatum: 25.11.2004
Beiträge: 3
Medaillen: Keine
|
| Verfasst am: 04.12.2004, 13:50 Titel: |
|
|
| es gibt keine verzögerung wenn man auf die schaltfläche "cmdarbeiterbauen" klickt,die variable "arbeiterda" wird sofort um 1 erhöht und auf "lblbauzeit" wird nix angezeigt |
|
| Nach oben |
|
|
KI
JLI Master
Alter: 40
Anmeldedatum: 04.07.2003
Beiträge: 965
Wohnort: Aachen
Medaillen: Keine
|
| Verfasst am: 04.12.2004, 14:15 Titel: |
|
|
Wenn das so nicht klappt, versuch es mal mit einem Timer:
| Code: |
'...
Bauzeit = 60
Timer1.Enable = True
'...
|
Dazu muss die Variable Bauzeit global deklariert werden.
sie wird nämlich in 2 Funktionen gebraucht. (cmdarbeiterbauen_Click und timer1)
Den Interval des Timers stellst du auf 1000 Millisekunden.
| Code: |
Private Sub Timer1()
If Bauzeit > 0
lblbauzeit.Caption = Bauzeit
Bauzeit = Bauzeit -1
Else If
Timer1.Enable = False
End If
End Sub
|
Ich hab lange kein VB mehr programmiert. Aber so könnte es gehen.. |
|
| Nach oben |
|
|
Thyll Niebergall
Mini JLI'ler
Anmeldedatum: 25.11.2004
Beiträge: 3
Medaillen: Keine
|
| Verfasst am: 04.12.2004, 14:19 Titel: |
|
|
| ich versuch ma thx |
|
| Nach oben |
|
|
|
FAQ
Suchen
Mitgliederliste
Benutzergruppen
Medaillen
Registrieren
Profil
Einloggen, um private Nachrichten zu lesen
Login
