atmega644p & com2 & waitkey

[mat-sche]

Und ich schon wieder :)

Nach dem der Bootloader nun funst, wollte ich eine Erkennung einbauen, die die "123" vom MCS Bootloader erkennt und dann in den Bootloaderbereich springt und dies alles über com2 vom mega644p:


$regfile = "m644pdef.DAT"
$crystal = 14745600
$baud = 57600
Baud = 57600
$hwstack = 40
$swstack = 40
$framesize = 40
$lib "glcdKS108.lbx" 'Include the library for the KS-108 controler

'$sim

'------------------------------------------------------------------------------- Grafik LCD
Config Graphlcd = 128 * 64sed , Dataport = Portc , Controlport = Porta , Ce = 0 , Ce2 = 1 , Cd = 2 , Rd = 3 , Reset = 5 , Enable = 4
Cls

'------------------------------------------------------------------------------- Autoflash über RS232
Dim Rs232_flash As Byte
Dim Rs232_str As Byte
Open "COM1:" For Binary As #1
Config Com1 = Dummy , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0
Open "COM2:" For Binary As #2
Config Com2 = Dummy , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0

'-------------------------------------------------------------------------------SNAP

Dim Lv As Byte
Dim Temp As Word

Dim Rf_rxd As Bit , Rf_sync As Bit

Do
'************************************************* ****************************** 'Automatisches Flashen über RS232

Rs232_flash = Ischarwaiting(#2)
If Rs232_flash = 1 Then 'wurde was über RS232 empfangen?
Rs232_str = Inkey(#2) 'Empfangspuffer auslesen
If Rs232_str = 123 Then 'vom MCS-Programmer geschickte "123" empfangen?
Print #1 , Rs232_str
Else
Print #1 , "kein Zeichen" 'Sprungadresse zum Startbereich des Bootloaders
End If
End If

If Rf_rxd = 1 Then
Print

End If
'do anything....

Print #1 , "neuer Mainloop"
Wait 1
Loop
End


nutze ich nun nur com1 funktioniert das alles. Ich komme mit der Zeichenerkennung Ischarwaiting & Inkey für com2 nicht klar.

Lässt sich Ischarwaiting & Inkey genauso für com2 nutzen und zwar wie?
=> Ischarwaiting(#2) & Inkey(#2) funst leider nicht, Ischarwaiting(#2) bekomme ich zwar eine 1 wenn was empfangen wurde, jedoch bei Inkey bekomme ich keinen Wert.

Help ](*,)

[reinhars]

Waitkey und Inkey funktionieren so wie du geschrieben hast mit z.B. waitkey(#2)
Da du aber im Programm nicht auf den Empfang des Startbytes wartest musst du einen Buffer verwenden.

Config Serialin1 = Buffered , Size =10
Serialin ist für COM1, Serialin1 für COM2.

Grüße Stefan

Edit: Was mit gerade noch aufgefallen ist.... du hast die Baudrate für COM2 nicht richtig eingestellt.
Für COM1:

$baud = 57600(in deinem Code richtig)
und für COM2:

$baud1 = 57600

[mat-sche]

Hi Reinhars,

egal wie ich die Verwendung der Config für com2 benutze, funktioniert es nicht.
Auch die config eines Buffers bringt nichts, ausgeben über die Seriell com2 funktioniert aber.
??? irgend welche Ideen?

[reinhars]

Wenn ich das richtig gesehen habe, willst du an UART2 SNAP verwenden, das mach ich auch und es funktioniert bei mir.
Hier meine SNAP sende/empfangsroutine:


' Send packet including the preamble and SYNC byte
Printbin #2 , Preamble ; Sbyte ; Hdb2 ; Hdb1 ; Dab1 ; Sab1
Printbin #2 , Db8 ; Db7 ; Db6 ; Db5 ; Db4 ; Db3 ; Db2 ; Db1
Printbin #2 , Crc2 ; Crc1

Do
Received = Waitkey(#2)
If Received = 0 Then
Slave = ""
Exit Function
End If
If Received = Sbyte_x Then
Inputbin #2 , Hdb2 , Hdb1 , Dab1 , Sab1 , Db8 , Db7 , Db6 , Db5 , Db4 , Db3 , Db2 , Db1 , Crc2 , Crc1 ' Get packet in binary mode
Goto Packet
Else
Preamble = Received
End If
Loop

Damit das Programm nicht ewig wartet, falls ein slave nicht da ist setzte ich einen timout.

$timeout = 2000000

Bei deiner Konfiguration von den UARTs bin ich mir nicht sicher.... Für mich wäre logisch zuerst die config zu machen und anschliesend den Port zu öffnen.
Bei mir schaut das so aus:

$baud1 = 9600
Config Com2 = Dummy , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0 ' MUST MATCH THE SLAVE

Config Print1 = Portd.4 , Mode = Set ' use portb.1 for the direction
Rs485dir Alias Portd.4

Config Rs485dir = Output
Rs485dir = 0 ' go to receive mode
Open "com2:" For Binary As #2

Das ganze ist OHNE Buffer. Die Sachen für RS485 muss man in deinem Fall natürlich weglassen. Wobei ich dir für ein System mit mehreren Slaves RS-485 natürlich nur empfehlen kann.

Achja, beim Slave sollte zwischen Empfangen und Senden eine gewisse Zeit gewartet werden. (z.B. Umschalten der Richtung bei RS-485) Schaden kanns nicht. Ich habe vor dem Senden (Slave) eine Wartezeit von 50ms.

Hier noch die Slave Empfangsroutine MIT Buffer.


Do
Idle
While _rs_head_ptr0 <> _rs_tail_ptr0 'check the status of the RS232 register
Received = Inkey()
If Received = Sbyte Then
Inputbin Hdb2 , Hdb1 , Dab1 , Sab1 , Db8 , Db7 , Db6 , Db5 , Db4 , Db3 , Db2 , Db1 , Crc2 , Crc1 ' Get packet in binary mode
Gosub Packet
Else
Preamble = Received
End If
Wend
Loop

Gruß Stefan

[mat-sche]

Hallo Stefan,

jetzt funst es auch bei mir...
Ich weiß jetzt nicht ganz genau warum, ich hatte schon alle Möglichkeiten durchgespielt, egal....
Ich habe die Initialisierung mal so geschrieben:

* Config Com2 = Dummy , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0
* Open "COM2:" For Binary As #2

und so geht es.

Zu Anfangs wollte ich nur einmal versuchen die com anzusprechen. Später nun will ich mich mal mit SNAP auseinandersetzen. Es gibt einige interessante Lösungen für Funk mit RFM12 & Snap.

Also Danke Dir!
Bis die Tage
MAT