Hat jemand evtl. Erfahrung in OPL-Programmierung der seriellen Schnittstelle?

Ich habe erfolgreich z. B. die Conrad Relaisplatine und den mikro-controller C-Control über Psion in Betrieb setzen können. Leider aber bisher nur mit XTM-DOS-Emulator + QBasic.

Anwendungsmöglichkeiten gibt es in Mengen, vom Haushalt bis zur Modelleisenbahn.
Das kann der Psion doch besser (ohne Kühlung, ohne WinDoof

hallo frank,

am 5er hab ich via serielle schnitstelle ein pccard modem dran... und das benutze ich um via comms mit einem script die swisscom isdn nt2ab zu programmieren...

ok das moden braucht die at befehle... aber in der theorie, könnte das doch auch mit dem comms programm gehen, oder??

oder was für 'befehle' braucht die realaiskarte???

gruss

martin

Hallo Frank,

das ist ein sehr interessantes Thema. Hatte mir ähnliche Gedanken bereits für meinen 3mx gemacht. Bisher haben mir 2 Dinge gefehlt: die Hardware und die Software. Das 1. Problem scheinst Du gelöst zu haben würde mich intereesieren, was genau Du einsetzt.

Gruß Uwe

Eine Relaisplatine braucht in etwa das (s. u.) in OPL
und dann möchte ich natürlich noch ein Menü programmieren und nach Zeit oder Tastendruck die einzelnen Relais schalten
(das zum Thema COMMS):

rem QBASIC unfertiges Testprogramm
CLS
DIM ibuf(800)
DIM OUTBUF(8)
OPEN "COM1:19200,N,8,1,BIN,CS,DS" FOR RANDOM AS #1
REM
REM interface on
COM(1) ON
ON ERROR GOTO BADCOM
ON COM(1) GOSUB GETFRAME
REM initialisiere relaiskarte
PRINT "ICH INITIALISIERE DIE RELAISKARTE!"
OUTBUF(0) = 1
OUTBUF(1) = 1
OUTBUF(2) = 0
OUTBUF(3) = OUTBUF(0) XOR OUTBUF(1) XOR OUTBUF(2)
send$ = CHR$(OUTBUF(0)) + CHR$(OUTBUF(1)) + CHR$(OUDTBUF(2)) + CHR$(OUTBUF(3))
PRINT OUTBUF(0); OUTBUF(1); OUDTBUF(2); OUTBUF(3)
REM PRINT #1, OUTBUF(0); OUTBUF(1); OUDTBF(2); OUTBUF(3)
PRINT #1, send$
REM GOSUB SENDFRAME
INPUT nix$
FOR DELAY = 1 TO 1000000: NEXT: CLS
REM SCHALTE RELAIS

TESTSTART:
r = 1
RT:
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 OUTBUF(0); OUTBUF(1); OUDTBF(2); OUTBUF(3)

PRINT #1, OUTBUF(0); OUTBUF(1); OUDTBUF(2); OUTBUF(3)
REM PRINT #1, send$

REM GOSUB SENDFRAME
FOR DELAY = 1 TO 10000: NEXT: CLS
r = r * 2
IF r < 256 THEN GOTO RT
PRINT "r ist: "; r,

PRINT "sendframe"
INPUT nix$
GOTO TESTSTART
REM SERIELLE KOMMUNIKATION
REM LESE 4 BYTE DATAFRAME

GETFRAME:
INBUF(BZ) = ASC(INPUT$(1, #1))
BZ = BZ + 1
IF BZ = 4 THEN GOTO CHECKFRAME
PRINT "lese data", "BZ= "; BZ
INPUT nix$
RETURN
REM CHECK VALIDITYY

CHECKFRAME:
error$ = "FEHLER"
IF INBUF(0) XOR INBUF(1) XOR INBUF(2) = INBUF(3) THEN error$ = "OK"
PRINT "Fehler: "; error$
INPUT nix$
BZ = 0
PRINT "EMPFANGEN: "; INBUF(0); " "; INBUF(1); " "; INBUF(2); " "; INBUF(3); " "; error$
PRINT
PRINT "------------------------------------------------------------------------"
INPUT nix$
RETURN

PRINT "Ich SENDE 4 BYTE FRAME "
SENDFRAME:
PRINT "sendframe"
OUTBUF(3) = OUTBUF(0) XOR OUTBUF(1) XOR OUTBUF(2)
send$ = CHR$(OUTBUF(0)) + CHR$(OUTBUF(1)) + CHR$(OUDTBF(2)) + CHR$(OUTBUF(3))

PRINT OUTBUF(0); OUTBUF(1); OUDTBF(2); OUTBUF(3)

PRINT #1, OUTBUF(0); OUTBUF(1); OUDTBF(2); OUTBUF(3)
PRINT #1, send$

PRINT "šBERTRAGEN: "; "(0) "; OUTBUF(0); " "; " (1) "; OUTBUF(1); " (2) "; OUTBUF(2); " (3) "; OUTBUF(3); " "; error$
PRINT
INPUT nix$
PRINT
RETURN

REM FEHLERBEHANDLUNG
BADCOM:
PRINT "----------- DATA FEHLER -------------"
RESUME
RETURN

ENDE:
END

Ich wundere mich, dass kaum jemand die PSions für Schaltaufgaben nimmt. Soll ich eine Weiche der Modelleisenbahn wirklich mit einem alpengroßen WinDoof-Rechner schalten der auch noch rumsummt
und den ich noch nicht einmal habe?
Oder mit meinem Laptop, der immer heiss läuft?

Alle meine Programme der 70-er Jahre (DOS) inkl. Norton Commander, QBasic, selbst compilierte Programme laufen ab dem Serie5 classic im XTM-DOS-Emulator. Ich kann sogar eine alte Casio-Datenbank über DOS im Psion sichern. Sogar das original Nasa-Programm (was immer an der Wand hing und die Bahnen der Kapseln zeigte) läuft auf dem mxpro (wenn auch sehr langsam). Zudem versendet die Nasa noch heute aktuelle Bahndaten dafür. So kann man z. B. jederzeit sehen wo die Raumstation am Himmel ist oder ein evtl. Spaceshuttle.
Aber das habe ich nur testweise versucht. Ziel ist OPL.

Hardware:
1. Relaisplatine 8-fach seriell Conrad-Electronic
und
2. Ganz genial ist der C-Control microcontroller von Conrad.
Frei programmierbar (über Psion-DOS oder PC) und dann vom Messen,
Regeln, Steuern für alles auch "stand alone" einsetzbar. Er hat digitale, analoge, lcd und einfach-Tastatur Schnittstellen + Inerrupts zur Direktsteuerung über serielle Schnittstelle. Ich habe auch dazu eine Relaisplatine. er meldet auch mit "Print" Texte an den PC über serielle Schnittstelle z. B. Messergebnisse oder Relaiszustände, sogar ein Funk-Modul gibt es zur Datenübertragung.

Frank

Hallo Frank,

interessantes Thema, wie ich finde. Habe seinerzeit einige Steuerungen mit meinem alten Atari 800 XL aufgebaut, der die Joystickports auch auf "Ausgabe" betreiben konnte.

Für den Psion schaust du hier:
http://www.btinternet.com/~taxi_mania/serial.html
und hier:
http://www.starship.freeserve.co.uk/opx.html#CCOMMS

Lass uns wissen, ob es dir hilft...

Gruß, Franz