Das deutsche QBasic- und FreeBASIC-Forum

[triti]

Hallo!

Ein Mikrokontroller schickt mir einen Temperaturwert als ASCII string
über COM1 in den PC. Das funktioniert in QB perfekt:

temperatur.uebertragen:
OPEN "com1:4800,N,8,1,TB32,RS,OP,CD0,DS0" FOR RANDOM AS #1
DO
IF LOC(1) > 0 THEN
y$ = INPUT$(1, 1)
IF y$ = "#" THEN GOTO w1: 'liest solange, bis am Schluss das Zeichen # gesendet wird.
PRINT y$;
Temp$ = Temp$ + y$
END IF
LOOP
w1:
close #1

(OPEN COM .... ist hier wahrscheinlich nicht ideal/zu lange, aber so hats endlich funktioniert und dann drehe ich nicht mehr daran herum)

Kann mir das bitte, bitte, bitte jemand in FreeBasic übersetzen, bevor ich mir einen Strick suche?
Dann komme ich wieder alleine weiter.
Habe FBIde 0.4.6.

lg
Triti

[nemored]

Viel zu übersetzen gibt es ja nicht; Suffixe gibt es nicht mehr und das y$ bzw. Temp$ musst du entsprechend DIMen, und das GOTO lässt sich auch leicht vermeiden.

[Sebastian]

Hallo,

funktioniert es vielleicht so?

[triti]

Hallo!

AH! Jetzt kommt endlich keine Fehlermeldung mehr.
Dim As String temp, y war das Geheimnis.

Das könnte klappen. Muss ich am Montag gleich ausprobieren.
Bin mit FB noch ganz am Anfang, über Declare Function und wozu y = Space(1) gut ist muss ich erst lesen. Tutorial ist schon ausgedruckt.

VIELEN DANK !
lg
Triti

[nemored]

y = SPACE(1) legt lediglich die Größe des Strings fest; das ist für GET nötig, damit das Programm weiß, wie viel eingelesen werden soll. Alternativ wäre auch DIM y AS STRING*1 möglich.
_________________
Deine Chance beträgt 1:1000. Also musst du folgendes tun: Vergiss die 1000 und konzentriere dich auf die 1.

[triti]

Hallo zusammen!
Es funktioniert ! Auch wenn ich direkt in die Function keinen Abbruch mit ESC reinkriege oder dass nach 5 Sekunden wenn keine Daten gesendet werden eine Fehlermeldung kommt. Aber das wird schon noch.

-----------------------
Jetzt will ich die Pins einzeln high/low setzen. Da habe ich aber noch einige Fragen zum Beispiel auf www.freebasic-portal.de/porticula/comport-mit-winapi-testen-156.html
Ich kopiere es mal hier her:

#INCLUDE ONCE "windows.bi"
Dim hCom As handle
Dim PortNr As String = "COM1"
Dim modemStat As dword
Cls
'Serielle Schnittstelle öffnen:
hCom = CreateFile(PortNr, GENERIC_READ Or GENERIC_WRITE, 0, NULL, OPEN_EXISTING, 0, NULL)

Print PortNr; " geoeffnet ";
Color 15,7 : Print "Handle = "; hCom
Color 4,15 : Print " Ende mit [Esc] "

'Alle Ausgangsleitungen auf positive Spannung setzen:
EscapeCommFunction(hCom, SETRTS) 'RTS +12V
'EscapeCommFunction(hCom, SETDTR) 'DTR +12V
'EscapeCommFunction(hCom, SETBREAK) 'TxD +12V (Break)


Print " CTS = "
Print " DSR = "
Print " RING = "
Print " RLSD = "
'Eingangsleitungen per Polling abfragen:
Do
GetCommModemStatus(hCom, @modemStat)
Locate 3,8 : Print Iif (modemStat And MS_CTS_ON ,1,0)
Locate ,8 : Print Iif (modemStat And MS_DSR_ON ,1,0)
Locate ,8 : Print Iif (modemStat And MS_RING_ON,1,0)
Locate ,8 : Print Iif (modemStat And MS_RLSD_ON,1,0)
Loop Until Inkey = Chr(27)

'Alle Ausgangsleitungen auf negative Spannung zurücksetzen:
EscapeCommFunction(hCom, CLRRTS) 'RTS -12V
EscapeCommFunction(hCom, CLRDTR) 'DTR -12V
EscapeCommFunction(hCom, CLRBREAK) 'TxD -12V

'Serielle Schnittstelle schließen:
closeHandle(hCom)


Dim hCom As handle 'was heisst das?
Dim modemStat As dword 'dword gibts im Index nicht. Was ist modemStat?

Print "Handle = "; hCom 'Bei mir kommt 156 raus. Was sagt das?

EscapeCommFunction(hCom, SETRTS)
'CLRRTS oder SETRTS ist logisch. Woher kommt EscapeCommFunction, und closeHandle ?

Ich habe den Verdacht die werden mit windows.bi eingebunden. Da habe ich natürlich keine Ahnung wie das funktioniert und was dort steht.

Ich will nämlich die beiden Sachen kombinieren mit 2 Ausgangsleitungen zum Mikrokontroller. Die sagen ihm, dass
er jetzt Daten senden soll.
Muss ich also ganz am Anfang die windows.bi laden und hCom, PortNr und modemStat mit DIM definieren
und muss/kann ich dann jedes mal wenn ich dann DTR oder RTS high/low setzen will schreiben:
hCom = CreateFile(PortNr, GENERIC_READ Or GENERIC_WRITE, 0, NULL, OPEN_EXISTING, 0, NULL)
EscapeCommFunction(hCom, SETRTS)
sleep 10
EscapeCommFunction(hCom, CLRRTS)
closeHandle(hCom)
also COM öffnen, high, warten, low, schliessen.
Das könnte ich ja in eine SUB_RTSimpuls verpacken.


Ich hoffe das war jetzt nicht zuviel....

lg
Triti

[Dominik]

[triti]

[28398]

Als kleine Hilfestellung:
BOOL WINAPI ReadFile(
__in HANDLE hFile,
__out LPVOID lpBuffer,
__in DWORD nNumberOfBytesToRead,
__out_opt LPDWORD lpNumberOfBytesRead,
__inout_opt LPOVERLAPPED lpOverlapped
);

-hFile: Handle von CreateFile()
-Rest: