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

wenn du dich mit VC++ auskennst würde ich dir raten schreib dir im vC++ eine DLL und greif dann von VB aus auf diese DLL zu.

falls du informationen brauchst wie das geht, oder so, dann mail mir, ich kann dir mit einem Beispielprogramm helfen. Informationen wie du eine DLL erstellst, bekommst du im MSDN bzw. Programmersheaven.com

Wenn du einselne Bits und Bytes ausgeben willst, dann benutzte doch das Microsoft Comm Control 6.0, damit kannst du wie bei QB (nur komfortabler) auch alles einstellen, daten versenden und empfangen

Felix Kröger

Sag mir ma wat dat für ne Karte is, will mir sowat au zulegen, hasse nen schaltplan?

Die Demo kann kostenlos runtergeladen werden, aber mit der impolementierung von DLL´s in Profilab Expert (unter VB geschrieben) hab ich meine Schwierigkeiten.


Grüßle

Hi,

wisst Ihr eigentlich wie alt dieser Thread ist ???

*geschlossen*


bye ...

LaMa5.