Ich habe eine 8fach Relais Karte für den Anschluss an die Serielle Schnittstelle ich möchte mir ein Programm
schreiben mit dem Ich diese Karte Bequem ansteuern kann
in der Anleitung ist diese QBasic Beispiel Abgedruckt
Dim inbuff(800)
Dim outbuff(8)
Open "com2:19200,n,8,1,bin,cs,cls" For Random as #1
'--- Interupt Serial Interface On -------
Com(2) On
On Error Goto Badcom
On Com(2) Gosub Getframe
'---- Initialize Relais board ------
Print "Initialize Board"
outbuff(0)=1 : outbuff(1)=1 : outbuf(2)=0 : gosub Sendframe
for delay=1 to 1000000: Next: CLS
'---- Switch Relais ------
teststart:
r=1
rt:
outbuf(0)=3: outbuf(1)=1 outbuf(2)=r: Gosub sendframe
for delay 1 to 1000000: Next : CLS
r=r*2: If r<256 then Goto rt
Goto teststart
'---------------- Serial Communication --------------
'--------------------
'---Read 4 Byte Dataframe -------
'--------------------
Getframe:
inbuf(bz)=ASC(input$(1,#1))
bz=bz+1
if bz=4 then goto checkframe
return
'------ Check Validity -------
checkframe:
Error$="ERROR"
If inbuf(0) XOR inbuf(1) XOR inbuf(2) =inbuf(3) then Error$="OK"
bz=0:Print "Received:";" ";ibuf(0)=;" "; inbuf(1);" ";inbuf(2);" ";inbuf(3);" ";Error$
Print "-----------------------------------":Return
'----------------
'----------------
'--- Send 4 Byte Dataframe --------
'-------------------
sendframe:
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$
print "Transmitted:";" ";outbuf(0);" ";outbuf(1);" ";outbuf(2);" ";outbuf(3)
Return
'xxxxxxxxxxxxxxxxxx ERROR HANDLER xxxxxxxxxxxxxxx
Badcom:
Print "-------- Data ERROR --------"
resume
return
ende:
END
Es gibt auch Software dazu mit der die Karte Einwandfrei Funktioniert nur diese Software genügt meinen Ansprüchen nicht und ich will eines In VB6.0 Schreiben
vieleicht könnt ihr mir da weiterhelfen
Vielen Dank schon mal im Voraus
schreiben mit dem Ich diese Karte Bequem ansteuern kann
in der Anleitung ist diese QBasic Beispiel Abgedruckt
Dim inbuff(800)
Dim outbuff(8)
Open "com2:19200,n,8,1,bin,cs,cls" For Random as #1
'--- Interupt Serial Interface On -------
Com(2) On
On Error Goto Badcom
On Com(2) Gosub Getframe
'---- Initialize Relais board ------
Print "Initialize Board"
outbuff(0)=1 : outbuff(1)=1 : outbuf(2)=0 : gosub Sendframe
for delay=1 to 1000000: Next: CLS
'---- Switch Relais ------
teststart:
r=1
rt:
outbuf(0)=3: outbuf(1)=1 outbuf(2)=r: Gosub sendframe
for delay 1 to 1000000: Next : CLS
r=r*2: If r<256 then Goto rt
Goto teststart
'---------------- Serial Communication --------------
'--------------------
'---Read 4 Byte Dataframe -------
'--------------------
Getframe:
inbuf(bz)=ASC(input$(1,#1))
bz=bz+1
if bz=4 then goto checkframe
return
'------ Check Validity -------
checkframe:
Error$="ERROR"
If inbuf(0) XOR inbuf(1) XOR inbuf(2) =inbuf(3) then Error$="OK"
bz=0:Print "Received:";" ";ibuf(0)=;" "; inbuf(1);" ";inbuf(2);" ";inbuf(3);" ";Error$
Print "-----------------------------------":Return
'----------------
'----------------
'--- Send 4 Byte Dataframe --------
'-------------------
sendframe:
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$
print "Transmitted:";" ";outbuf(0);" ";outbuf(1);" ";outbuf(2);" ";outbuf(3)
Return
'xxxxxxxxxxxxxxxxxx ERROR HANDLER xxxxxxxxxxxxxxx
Badcom:
Print "-------- Data ERROR --------"
resume
return
ende:
END
Es gibt auch Software dazu mit der die Karte Einwandfrei Funktioniert nur diese Software genügt meinen Ansprüchen nicht und ich will eines In VB6.0 Schreiben
vieleicht könnt ihr mir da weiterhelfen
Vielen Dank schon mal im Voraus