Bin hier Neuling und hoffe ich mach da alles richtig.
Ich hab da nen Code den ich ändern wollte.
Leider kenn ich die passenden Befehle nicht.
Im Programm soll die Abfrage von CPU.M(100, 5) permanent abgefragt werden.
Wenn = True dann soll die testdatei.txt erstellt werden.
Und was ja warscheinlich von selbst geht.
Wenn CPU.M(100, 5) erneut True wird dann soll die Datei erneut erstellt werden.
Bin echt sehr dankbar für euere Vorschläge
Private Sub Command8_Click() ' M5.4 lesen
If (CPU_Connected = True) Then
On Error GoTo err:
' M(nr As Long, bit As Long) As Long
' nr: Adresse des Merkerbytes
' bit: Bitnummer im Merkerbyte
' Rückgabe: Gelesener Wert
M5_4.Value = CPU.M(100, 5)
fso.CreateTextFile "c:\testdatei.txt"
Open "c:\testdatei.txt" For Output As #1
Close #1
GoTo ende
err: Runstop.Text = "Fehler" ' Fehlerbehandlung
ende:
End If
End Sub
christopher.g Überflieger
Anmeldedatum: 03.05.2008 Beiträge: 565
Verfasst am: 14.03.2011, 10:02
hi
loop while ist das stichwort
Code:
do
doEvents
Loop While CPU.M(100,5) = False
'und dann textdateierstellen
ich hoffe ich hab dein anliegen richtig verstanden
lg
RRolf Hanser Newbie
Anmeldedatum: 07.03.2011 Beiträge: 2
Verfasst am: 20.03.2011, 20:34
Hallo Christoher.
Danke für deine freundliche Unterstützung.
Da bleiben noch einige Fragen.
Inner wenn eine neue Funktion aufgerufen wird beginnt es doch
mit einem Strich und dann beginnt ein Sub.
Auszug aus dem Code "Private Sub Command7_Click()"
Meine Frage.
Wie starte bzw. beginne ich einen neuen Sub in dem dann die Loop Abfrage startet.
Oben wird der ja nur ausgeführt wenn Tatse 7 gedrückt wird.
Und eben wie wird dieser Sub beendet ?
End Sub?
End if?
.......?
Könnetst du das bitte noch etwas ausführlicher beschreiben?
Ich kanns leider nicht besser beschreiben da meine Kenntnis von VB6 sehr, sehr begrenzt ist.
mfg Rolf
christopher.g Überflieger
Anmeldedatum: 03.05.2008 Beiträge: 565
Verfasst am: 21.03.2011, 08:13
hi
also das ist kein problem....
Code:
Private Sub Command7_Click()
'soweit ist das klar
'gib deinen steuerelementen lieber einen namen... da es später sehr unübersichtlich werden wird
'weiter unten hast du eine Neue Sub... ganz einfach gehalten
'aufgerufen wird die ganz einfach mit Wait() oder Call Wait()
Call Wait()
'jetzt ist hier der haltepunkt bis CPU.M(100,3) auf True Springt
'dann gehts weiter im Quelltext
Registrieren
Login
