Hallo
so, jetzt mein zweiter versuch, nachdem mein IE nachdem ich das erste mal komplett geschrieben habe sich gehängt hat >.<
Also, folgende Probleme:
Ich möchte ein Programm scheiben, dass auf die Ausgänge vom LPT zugreift, also D0...D7.
Ich habe ein Textfeld (Text1) in dem ich den Ausgang (0 - 7) eingebe. Nach Klick auf einen Button wird die Funktion start aufgerufen:
Da ich aber nur ein Textfeld habe muss ich den String irgendwie teilen und als mehrere Variablen an die Funktion übergeben. Kann mir da jemand helfen.
Dann muss ich noch die Nummer des Ausgangs (0-7) in ein Byte umwandeln, da ich aber keine Funktion zum Potenzieren gefunden habe mache ich das mit einer Select Case Schleife. Kann mir jemand eine bessere, vor Allem kürzere, Lösung unterbreiten?
Da ich aber nun mehrere AUsgänge gleichzeitig schalten möchte, muss ich die Selectschleife/Funktion für jeden Ausgang machen und dann alle Werte zusammenrechnen. Kann mir jemand sagen, wie ich das in eine z.B. For-Schleife packen kann, also jetzt ma rein zum Verständnis:
ich hoffe man kann mir wenigstens etwas weiterhelfen.
Danke schonmal,
MfG Phr34k
so, jetzt mein zweiter versuch, nachdem mein IE nachdem ich das erste mal komplett geschrieben habe sich gehängt hat >.<
Also, folgende Probleme:
Ich möchte ein Programm scheiben, dass auf die Ausgänge vom LPT zugreift, also D0...D7.
Ich habe ein Textfeld (Text1) in dem ich den Ausgang (0 - 7) eingebe. Nach Klick auf einen Button wird die Funktion start aufgerufen:
Code:
Function start (motor0 As Integer, Optional motor1...)
Da ich aber nur ein Textfeld habe muss ich den String irgendwie teilen und als mehrere Variablen an die Funktion übergeben. Kann mir da jemand helfen.
Dann muss ich noch die Nummer des Ausgangs (0-7) in ein Byte umwandeln, da ich aber keine Funktion zum Potenzieren gefunden habe mache ich das mit einer Select Case Schleife. Kann mir jemand eine bessere, vor Allem kürzere, Lösung unterbreiten?
Da ich aber nun mehrere AUsgänge gleichzeitig schalten möchte, muss ich die Selectschleife/Funktion für jeden Ausgang machen und dann alle Werte zusammenrechnen. Kann mir jemand sagen, wie ich das in eine z.B. For-Schleife packen kann, also jetzt ma rein zum Verständnis:
Code:
Function start (motor0...)
For i = 0 To 7
Select Case "motor" + i 'oder halt die Funktion zum potenzieren
ich hoffe man kann mir wenigstens etwas weiterhelfen.
Danke schonmal,
MfG Phr34k