Bascom "Text" seriell senden

[Peter (Gast)]

Ich möchte von einem Mega8 AVR einen Beamer ansteuern.

Die Verkabelung habe ich schon am laufen und von einem PC aus getestet.
Ich sende mit HTERM ein Ascii Zeichensatz "PWR ON" (ohne "") und der 
Beamer geht an.
Gleichzeitig ist noch "Send on Enter" CR ausgewählt.

Jetzt möchte ich das von einem AVR aus steuern und habe dazu den AVR 
inkl. Max232 auf einem Steckbrett aufgebaut.

Im Programm definiere ich die Schnittstelle so wie in HTERM

Config Com1 = 9600 , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0

Wenn ich jetzt mit Print "POW ON" versuche die Daten zu senden passiert 
nichts.
Habe es auch schon mit Printbin versucht, geht auch nicht.


Was kann ichnoch testen, sitze schon 2 Stunden hier und der Beamer geht 
vom AVR aus nicht an.

[Peter (Gast)]

hier noch ein sceenshot von hterm.

dort sieht man die einstellungen und unten bei TYPE ASC dahinter gebe 
ich PWR ON ein und drücke ENTER. dann geht der Beamer an, nur bei dem 
AVR nicht.

[Anselm 6. (anselm68)]

Schaltplan und kompletten Code?
Der Beamer erwartet vielleicht RS232-Pegel, hast du einen Pegelwandler 
drin?
Wenn ja, schliesse den die RS232 an den PC und kontrolliere was du da 
sendest.

Gruß Anselm

[Peter (Gast)]

Schaltplan habe ich im Moment keinen AVR mit Max232

Schaltung läuft, da ich ein anderes Gerät damit seriell steuern kann.
Dort sende ich aber nur HEX Codes und hier brauche ich ASCII Zeichen.


Hier mein Code für das andere Gerät mit Hexcode

Einschalten:      
   Ein(1) = &HA9
   Ein(2) = &H17
   Ein(3) = &H15
   Ein(4) = &H00
   Ein(5) = &H00
   Ein(6) = &H00
   Ein(7) = &H17
   Ein(8) = &H9A
      Printbin Ein(1) ; 8
Return

Und dort geht es...

Ich brauche das Gleiche also nur mit ASCII Zeichen

[Etrick (Gast)]

Hi,

nicht genial, aber machbar:

Sende doch die HEX Codes der Buchstaben. Code-Tabelle wäre schnell 
gemacht.

Gruß

Achim

[Peter (Gast)]

Habe es mal schnell umgerechnet - geht aber auch nicht.

Dim Ein(6) As Byte
   Ein(1) = &H50
   Ein(2) = &H57
   Ein(3) = &H52
   Ein(4) = &H20
   Ein(5) = &H4F
   Ein(6) = &H4E
   Printbin Ein(1) ; 6

Irgendwie bin ich mir mit dem <CR> nicht sicher.
Bei HTERM muss ich auf CR stellen, sonst geht es nicht.
Muss ich das nicht bei Printbin nicht auch noch irgendwie...

[Peter (Gast)]

Hab noch was rausgefunden:

Wenn ich per HTERM Hex Codes sende und bei "Send on Enter" NONE 
einstelle UND am Ende der Hex Code Kette ein &H0D anhänge, dann wird der 
Befehl auch ausgeführt.

Bei Bascom würde das dann so aussehen:

Dim Ein(7) As Byte
   Ein(1) = &H50
   Ein(2) = &H57
   Ein(3) = &H52
   Ein(4) = &H20
   Ein(5) = &H4F
   Ein(6) = &H4E
   Ein(7) = &H0D
   Printbin Ein(1) ; 7

Klappt nur leider auch nicht...
nur per HTerm

[Peter (Gast)]

PROBLEM GELÖST,

Beim hin und herstecken auf dem Steckbrett habe ich TX und RX (Pin2 und 
3) verwechselt.

Dann kann es ja nicht gehen :-)


Jetzt läuft es auch über einen AVR...