Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Aufrufe von Unterprogrammen
Autor: hornet77e
Datum: 18.05.06 17:12
Sub Kalibration() Dim Antwort As Integer Dim SMCstat As String Dim k(1) As Double Call Send(0, 2, "0 3 setaxis ", 0) Call Send(0, 2, "cal ", 0) 'oder rm 'Warten bis SMC Ansprechbar Dim Position As String Dim Wait As Integer Position = Space$(40) Wait = 999 While Wait > 0 Call Send(0, 2, "pos ", 0) Call ReceiveSetup(0, 2) Call Receive(0, 2, Position, 0) Wait = iberr Wend 'Warten Ende Call Send(0, 2, "0 0 0 setpos ", 0) Load frmPosition frmPosition.cmdAnfahren.Enabled = False frmPosition.Visible = True k(0) = 20 k(1) = 20 KoordinatenAlt(0) = k(0) KoordinatenAlt(1) = k(1) Verzoegerung (2) frmPosition.lblStatus.Caption = "Nullpunkt wird angefahren..." Call Send(0, 2, Str(k(0)) + " " + Str(k(1)) + " 0 move ", 0) frmPosition.Timer1.Enabled = True '<<<=== Dieser Timer wird auf wahr geschaltet, aber der Quelltext wird erst durchgearbeitet, wenn unten das End Sub erreicht ist. Das ganze hier steht in einem Modul frmPosition.lblStatus.Caption = "Nullpunkt erreicht" Call Send(0, 2, "0 0 0 setpos ", 0) frmPosition.Timer1.Enabled = True If iberr <> 0 Then Call Tools.Fehler(40) Else Antwort = MsgBox("Kalibration erfolgreich durchgeführt!", 48) End If frmPosition.cmdAnfahren.Enabled = True frmPosition.Visible = True Call Tools.AktuellePosition(k(), status) frmPosition.lblX.Caption = Format(k(0), "0.0000") frmPosition.lblY.Caption = Format(k(1), "0.0000") frmPosition.txtX.Text = "0" frmPosition.txtY.Text = "0" End Sub

Aufrufe von Unterprogrammen	951	hornet77e	15.05.06 19:47
Re: Aufrufe von Unterprogrammen	626	BAStler	16.05.06 10:10
Re: Aufrufe von Unterprogrammen	607	hornet77e	16.05.06 19:32
Re: Aufrufe von Unterprogrammen	617	OldMan	16.05.06 19:46
Re: Aufrufe von Unterprogrammen	627	hornet77e	17.05.06 07:43
Re: Aufrufe von Unterprogrammen	632	OldMan	17.05.06 13:52
Re: Aufrufe von Unterprogrammen	609	hornet77e	18.05.06 08:43
Re: Aufrufe von Unterprogrammen	604	OldMan	18.05.06 14:14
Re: Aufrufe von Unterprogrammen	615	hornet77e	18.05.06 17:12
Re: Aufrufe von Unterprogrammen	615	OldMan	18.05.06 18:06
Re: Aufrufe von Unterprogrammen	614	hornet77e	19.05.06 09:23
Re: Aufrufe von Unterprogrammen	632	OldMan	19.05.06 10:38
Re: Aufrufe von Unterprogrammen	598	hornet77e	19.05.06 10:48
Re: Aufrufe von Unterprogrammen	643	OldMan	19.05.06 11:36
Re: Aufrufe von Unterprogrammen	604	hornet77e	19.05.06 11:56
Re: Aufrufe von Unterprogrammen	606	OldMan	19.05.06 12:02

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