Hallo zusammen,
ich habe das hier auf meinem µC ATMega16 am laufen
1 | Volt_rnd = Round(volt)
|
2 | Volt_int = Volt_rnd / 10
|
3 | Volt_frc = Volt_rnd Mod 10
|
4 |
|
5 | Locate 1 , 1
|
6 | Lcd "Spannung: "
|
7 | If Volt < 100 Then Lcd " ";
|
8 | 'Lcd Volt_int ; "." ; Volt_frc 'Zum testen mal auskommentiert
|
9 | Lcd Volt_int
|
10 | Print Volt_int
|
11 | Locate 1 , 15
|
12 | Lcd "kV "
|
Mein LCD Zeit 4 KV an.
Aber VB 2008 Zeigt nur wirre Werte an, wärend das Bascom
Terminalprogramm alles richtig anzeigt.
Hier der VB 2008 Code
1 | Dim eingabe As Byte
|
2 | eingabe = SerialPort1.ReadByte()
|
3 | extBox_HSP.Text = Chr(eingabe)
|
Ich bekomme in der Textbox "Ç" angezeigt und wenn ich das "chr" vor
"chr(eingabe)" entferne, schmeißt er mir 232 raus. Aud dem LCD am µC
steht jedoch eindeutig "4".
Hat schonmal jemand versucht sowas per RS232 zu übertragen und hat dabei
auch etwas raus bekommen?
Guß
Snatch