Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

endlos schleife?!?!
Autor: wuddy
Datum: 02.02.02 10:46
Kann mir jemand sagen warum untenstehender Code mein programm abstürzen lässt sobald ich den Button klicke!! Das programm stürzt allerdinggs nur dann ab wen ich die do loop schleife(die am ziemlich am ende steht) aktiviere!! Wenn ich die do loop schleife weglasse funktioniert mien prográmm einwandfrei!!! Ich hoofe jemand kann mir sagen woran das liegt und am besten gleich die eventuelle Lösung des Problems angeben!! Vielleicht geht es ja mit einem Timer besser!?! allerdings weiss ich nicht wi ich den einbauen muss!! Private Sub clmAktivieren_Click() Dim p As Integer For p = 1 To Len("079") Step 3 O = O & Chr(Mid$("079", p, 3)) Next If MSComm2.PortOpen = True Then MsgBox "Ein Fehler ist aufgetreten!!! Don't panic!!!!" MsgBox "ComPort erst wieder schliessen!!!" End If If MSComm2.PortOpen = False Then With MSComm2 .CommPort = 2 .PortOpen = True .Settings = "9600,n,8,1" .RThreshold = 1 .SThreshold = 1 .InputLen = 0 End With Select Case MSComm2.CommEvent Case comOverrun: MsgBox "Datenverlust!" Case comRxOver: MsgBox "Datenverlust!" End Select If Err = 0 Then MsgBox "Der Roboter ist jetzt empfangsbereit" End If End If Dim X As Integer Dim Y As String For X = 1 To Len("100010079") Step 3 Y = Y & Chr(Mid$("100010079", X, 3)) Next If Not MSComm2.CommEvent = comEvReceive Then Text2.Text = Y End If If MSComm2.CommEvent = comEvReceive Then Sleep 5 MSComm2.Output = Y Text2.Text = Y End If Sleep 5 Do If mv = "" Then mv = "1" If MSComm2.CommEvent = comEvReceive Then Sleep 5 MSComm2.Output = mv + O Text3.Text = mv + "O" End If If Not MSComm2.CommEvent = comEvReceive Then MSComm2.Output = mv + O Text3.Text = mv + "O" End If Sleep 3 If Err = 1 Then Dim m As Integer Dim n As String For m = 1 To Len("100020079") Step 3 n = n & Chr(Mid$("100020079", m, 3)) Next MSComm2.Output = n Text3.Text = n MsgBox "Ein Fehler ist aufgetreten!!!!" MsgBox "Der Roboter wurde heruntergefahren!!!" End If Loop While True End Sub

endlos schleife?!?!	74	wuddy	02.02.02 10:46
Re: endlos schleife?!?!	49	T.C.McQueen	02.02.02 11:22
Re: endlos schleife?!?!	44	wuddy	02.02.02 11:33
Re: endlos schleife?!?!	48	T.C.McQueen	02.02.02 11:37
Re: endlos schleife?!?!	45	wuddy	02.02.02 12:48

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen