Das deutsche QBasic- und FreeBASIC-Forum

[Andy19312]

Hallo zusammen,
ich bräuchte echt dringenst Hillfe bezüglich Com Schnittstelle.

Wie stelle ich es in freebasic an, die Aus-u. Eingänge zu verwenden.

Man hat ja 4 Ausgänge und 3 Eingänge.

Ich seh da irgendwie schwarz, da es in qbasic total anderst ist.

Kann ich die Befehle wie inp u. out, wie bei qbasic benutzen?

Beispiel:

'Datenbit setzen
out 1019, 64

'Register auslesen
register% = inp (1019)

'anzeigen
print register%


Normalerweise würde qbasic so als erstes 1 Bit bei der TXD Leitung setzen und mir es dann auch anzeigen.

Wie funktioniert sowas in freebasic?????







"wein, wein'"

re.:
Wir haben ja 4 Eingänge die beim Register 1022 liegen, bei Bit 4, Bit 5, Bit 6 und Bit 7

die drei Ausgänge sind ja auch auf zwei Register verteilt.

Register 1019, Bit 6
Regisster 1020, bei Bit 0 und Bit 1

hm, wie sieht es aber mit den Hexadezimalwerte aus?, stimmen diese so?

3FB = 1019
3FC = 1020
3FE = 1022


So ich hab es jetzt mal ausprobiert, mit folgendem Code
'FB0.15b notwendig !!!
OPEN "COM1:1200,N,8,1" FOR INPUT AS #1
OUT &H3FC, 3
Print INP(&H3FC)
sleep 3000
OUT &H3FC, 0
Print INP(&H3FC)
sleep 3000
CLOSE #1

wenn er es nun compilet setzt er den Wert 3, damit dürften ja jetzt Bit 1 und Bit 1 gesetzt sein, sonst dürfte ich es ja nicht mit inp auslesen können.

wartet er nun 3 Sekunden und will den Register auf 0 setzen sagt er mir das er COM nicht öffnen kann.

das gleiche gilt auch, wenn ich nur Bit 1 oder Bit 2 in diesem Register setzen will, jedoch funktioniert es mit dem Wert 3.
Damit dürfte ja dann Bit 1 und Bit 2 aktiv sein.

Merkwürdig die Geschichte

[Kai Bareis]