Bascom "Text" seriell senden

Peter Gast #1519643
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.
Antwort Zitieren Bearbeiten Thread verschieben Thread sperren Anmeldepflicht aktivieren Anpinnen Thread löschen Thread mit anderem zusammenführen Beitrag melden
Peter Gast #1519672
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
Antwort Zitieren Bearbeiten Löschen Beitrag melden
Peter Gast #1519714
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...
Antwort Zitieren Bearbeiten Löschen Beitrag melden
Peter Gast #1519765
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
Antwort Zitieren Bearbeiten Löschen Beitrag melden
Thread beobachten

Antwort schreiben

Bitte melde dich an, um einen Beitrag zu schreiben.

Bestehender Account

oder

Mit Google-Account einloggen

Noch kein Account?

Die Registrierung ist kostenlos und dauert nur eine Minute.

Jetzt registrieren