Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

SERIAL RELAIS
Autor: Harald
Datum: 04.09.02 12:03
Hi zusammen, um eine Relaiskarte anzusteuern benutze ich bisher einen DOS QB Code. Jedoch funktioniert dieser in VB6 so einfach nicht. DOS befehle (in Klammer) wurde ausgeblendet und durch VB befehle ersetz. In DOS werden inbuf(8) und outbuf(8) eingesetzt. In VB steht MSComm1.InBufferCount und MSComm1.InBufferSize Sowie MSComm1.OutBufferCount und MSComm1.OutBufferSize zu Verfügung. Wer versteht was davon und kann mir weiterhelfen. Danke in voraus Harald Sub RELAIS() Dim inbuf(8) As Integer, outbuf(8) As Integer ‘ für DOS Dim I%, N%, R%, Send$, PIO$ MSComm1.CommPort = 1 MSComm1.Settings = "9600,N,8,1" MSComm1.InBufferSize = 0 MSComm1.OutBufferSize = 1 MSComm1.PortOpen = True ' (com2$ = "com1") ' (Open com2$ + ":19200,n,8,1,bin,cs,ds" For Random As #1) ' Bisher DOS ( inbuf(1) = 0 ) , Neu mit MSComm1.InBufferSize = 0 ? inbuf(1) = 0 outbuf(0) = 1 outbuf(1) = 1 outbuf(2) = 0 ' Beispiel für Schaltzustand PIO$ = "10011101" R = 0 N = 0 For I = 1 To 8 N = N * 2 If I = 1 Then N = 1 If Mid$(PIO, I, 1) = "1" Then R = R + N Next ' Bisher DOS ( outbuf(1) = R ) , Neu mit MSComm1.OutBufferSize = R ? outbuf(0) = 3 outbuf(1) = 1 outbuf(2) = R outbuf(3) = outbuf(0) Xor outbuf(1) Xor outbuf(2) Send$ = Chr$(outbuf(0)) + Chr$(outbuf(1)) + Chr$(outbuf(2)) + Chr$(outbuf(3)) ' (Print #1, Send$) MSComm1.Output = Send$ MSComm1.PortOpen = False End Sub

SERIAL RELAIS

71

Harald

04.09.02 12:03

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