leider funktioniert es nicht...
so sieht mein Programm aus:
Code:
' ---------------RN-Mega128Funk übliche ----ANFANG--------------
$regfile = "m128def.dat" ' Bei Mega 128 "
$framesize = 40
$swstack = 40
$hwstack = 40
$crystal = 16000000 'Quarzfrequenz
$baud = 19200 'Baudrate für Funkmodul
$baud1 = 9600 'Baudrate für MAX
Config Ping.0 = Output 'Spannung an LCD aktivieren
Lcdpower Alias Portg.0
Config Pine.2 = Output
Rdy_hostempfangsbereit Alias Porte.2 'Auf Low setzen wenn Empfangsbereit für Daten vom Funkmodul
Config Pine.5 = Input
Bsy_funkmodulsendebereit Alias Porte.5 'Ist Low wenn Funkmodul frei zum senden
Open "com2:" For Binary As #2 'Ausgabe über zweite serielle Schnittstelle (MAX)
Sound Portg.2 , 400 , 450 'BEEP bei RN-Mega128Funk
Sound Portg.2 , 400 , 250 'BEEP bei RN-Mega128Funk
Sound Portg.2 , 400 , 450 'BEEP bei RN-Mega128Funk
Config Serialin = Buffered , Size = 100 'Empfangsbuffer für Funkmodul anlegen
Config Serialout1 = Buffered , Size = 100 'Ausgabebuffer für normalse RS232
Enable Interrupts
' ---------------RN-Mega128Funk übliche ----ENDE--------------
Dim Receive As Word ' Empfangen Daten
Dim Send As Word ' Daten zum Senden
Rdy_hostempfangsbereit = 0
Do
Input "Eingabe:" , Send 'zu sendenden Text Eingeben
Print Send 'und senden
Print #2 "Bestätigt:" , Send
Wait 2
Receive = Inkey() 'empfangenen Text zuweisen
If Receive <> 0 Then Print #2 "Empfangen:" , Receive 'und ans RS232 ausgeben
Loop
End
hat jemand einen Vorschlag?
Lesezeichen