Bascom "Text" seriell senden

Gast #1519643
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.
Gast #1519653
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.
Angehängte Dateien:
Gast #1519672
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
Gast #1519714
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...
Gast #1519765
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
Gast #1519782
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...

Antwort schreiben

Eine eigene Frage? Dieser Thread ist über 16 Jahre alt. Stell sie in einem eigenen Thread – dort lesen mehr Leute mit, und sie wird öfter und schneller beantwortet.

Neuen Thread starten

Eine Lösung, Ergänzung oder Rückmeldung zu diesem Thread? Dann antworte hier.

Formatierung
  • [c]C-Code[/c]
  • [code]Code in anderen Sprachen, ASCII-Zeichnungen[/code]
  • [math]Formel in LaTeX-Syntax[/math]
  • [[Titel]] – Link zu einem Artikel
  • Verweis auf einen anderen Beitrag: Rechtsklick auf dessen Beitrags-ID (#8078628), „Adresse kopieren“, in den Text einfügen

Mehr zur Formatierung

Längeren Sourcecode als Anhang, nicht in den Text. JPG nur für Fotos und Scans; Zeichnungen und Screenshots als PNG oder GIF. Siehe Bildformate.

Schon registriert? Anmelden

Wird nicht angezeigt. Wir schicken dir einen Link; sobald du damit bestätigst, erscheint dein Beitrag.

Mit dem Abschicken legst du einen kostenlosen Account an und erkennst die Nutzungsbedingungen und die Datenschutzerklärung an.