Forum: Mikrocontroller und Digitale Elektronik Bascom "Text" seriell senden


von Peter (Gast)


Lesenswert?

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
1
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.

von Peter (Gast)


Angehängte Dateien:

Lesenswert?

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.

von Anselm 6. (anselm68)


Lesenswert?

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

von Peter (Gast)


Lesenswert?

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
1
Einschalten:      
2
   Ein(1) = &HA9
3
   Ein(2) = &H17
4
   Ein(3) = &H15
5
   Ein(4) = &H00
6
   Ein(5) = &H00
7
   Ein(6) = &H00
8
   Ein(7) = &H17
9
   Ein(8) = &H9A
10
      Printbin Ein(1) ; 8
11
Return

Und dort geht es...

Ich brauche das Gleiche also nur mit ASCII Zeichen

von Etrick (Gast)


Lesenswert?

Hi,

nicht genial, aber machbar:

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

Gruß

Achim

von Peter (Gast)


Lesenswert?

Habe es mal schnell umgerechnet - geht aber auch nicht.
1
Dim Ein(6) As Byte
2
   Ein(1) = &H50
3
   Ein(2) = &H57
4
   Ein(3) = &H52
5
   Ein(4) = &H20
6
   Ein(5) = &H4F
7
   Ein(6) = &H4E
8
   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...

von Peter (Gast)


Lesenswert?

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:
1
Dim Ein(7) As Byte
2
   Ein(1) = &H50
3
   Ein(2) = &H57
4
   Ein(3) = &H52
5
   Ein(4) = &H20
6
   Ein(5) = &H4F
7
   Ein(6) = &H4E
8
   Ein(7) = &H0D
9
   Printbin Ein(1) ; 7


Klappt nur leider auch nicht...
nur per HTerm

von Peter (Gast)


Lesenswert?

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...

Bitte melde dich an um einen Beitrag zu schreiben. Anmeldung ist kostenlos und dauert nur eine Minute.
Bestehender Account
Schon ein Account bei Google/GoogleMail? Keine Anmeldung erforderlich!
Mit Google-Account einloggen
Noch kein Account? Hier anmelden.