title image


Smiley Serielle Kommunikation unter VBA ???
Hallo ihr HelferHabe folgenden Quelltext unter VBA geschrieben, in Basic unter DOS würde das sehr wohl funktionieren.In VBA unter Win95 und WinNT4.0 erhalte ich Fehler 52 für die Open-Anweisung.Ist VBA überhaupt nicht für serielle Kommunikation ausgelegt?Fehlt mir irgendendeine DLL?Oder habe ich in der Syntax einen Fehler?Private Sub CommandButton1_Click()Dim Count As IntegerDim Answer, Msg As StringOpen "Com1:9600,N,8,1,DS,CS" For Random As #1Print #1, "@01"Count = 0Do Count = Count + 1Loop Until Loc(1) > 0 Or Count > 10000Select Case CountCase Is > 10000 Msg = "Keine Kommunikation Do/Loop-Überschreitung"Case Else Answer = Input$(1, 1) If Answer = "0" Then Msg = "Fehler Karte: 0" Else Msg = "Karte OK " & Answer End If MsgBox (Msg)End SelectClose #1End Sub

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: