[Bascom] HEX Code senden

Papsi Gast #1127805
Lesenswert?
• ▲
▼ 
Hallo

ich habe eine Schaltung am laufen, die zu einem Beamer Hex Daten sendet.
Diese Schaltung incl. Max232 funktioniert und ich kann den Beamer damit 
bedienen.

Hier mal ein Auszug, damit ich den Beamer anschalte:
1
   $regfile = "m8def.dat"

2
   $crystal = 8000000

3


4
   Dim Beamer_ein(8) As Byte

5


6
   Config Com1 = 38400 , Synchrone = 0 , Parity = Even , Stopbits = 1 , Databits = 8 , Clockpol = 0

7


8
Main:

9
Do

10
   Abfrage von einem Taster, der dann nach Beamer_an springt

11
Loop

12


13
Beamer_an:

14
   Einaus(1) = &HA9

15
   Einaus(2) = &H17

16
   Einaus(3) = &H15

17
   Einaus(4) = &H00

18
   Einaus(5) = &H00

19
   Einaus(6) = &H00

20
   Einaus(7) = &H17

21
   Einaus(8) = &H9A

22
   Printbin Einaus(1) ; 8

23
Goto Main


Wie gesagt, das fuktioniert, nur will ich mit der gleichen 
funktionierenden Schaltung keinen Beamer schalten, sondern einen 
Verstärker.(Den Beamer habe ich nur zum testen hergenommen um die 
Schaltung zu testen)

Dazu bin ich genauso vorgegangen wie oben und habe nur die Parameter 
entsprechend den Werten der Anleitung angepasst.
Baud 4800 , 8 Datenbits, 1 Stopbit, no Parity,
Zum einschalten muss ich 4 Blöcke HEX senden
"80 70 C1 3E"

Dazu habe ich den Wert einaus angepasst:
   Einaus(1) = &H80
   Einaus(2) = &H70
   Einaus(3) = &HC1
   Einaus(4) = &H3E
   Printbin Einaus(1) ; 4

Nur klappt das hier nicht !
In der Anleitung steht noch : Flowcontrol: no(off)
Spielt das vieleicht eine Rolle und wo stelle ich das ein.


Die Bedienung den Verstärker über einen laufenden PC und Hyerterminal 
funktioniert, der kann also mit den gesendeten Daten was anfangen und 
schaltet ein.



Wer kann da weiterhelfen?

Gruß
Papsi
Antwort Zitieren Bearbeiten Thread verschieben Thread sperren Anmeldepflicht aktivieren Anpinnen Thread löschen Thread mit anderem zusammenführen Beitrag melden
Joachim R. #1129416
Lesenswert?
• ▲
▼ 
Papsi wrote:

> Zum einschalten muss ich 4 Blöcke HEX senden
> "80 70 C1 3E"

> Dazu habe ich den Wert einaus angepasst:
>    Einaus(1) = &H80
>    Einaus(2) = &H70
>    Einaus(3) = &HC1
>    Einaus(4) = &H3E
>    Printbin Einaus(1) ; 4
>
Was willst du denn wirklich wie senden? Die Printbin-Ausgabe sendet 
"Çp┴>", also die Zeichen die den Werten entsprechen. Gibts du dasselbe 
in Hyperterm so ein, also für &H80 die Tasten Alt-1-2-8 oder doch die 
Klartextzeichen "80 70 C1 3E" mit den Leerzeichen dazwischen?
Dann sollte es zum Testen folgendermassen gehen
Print Hex(Einaus(1));" ";Hex(Einaus(2));" ";Hex(Einaus(3));" 
";Hex(Einaus(4))

Flowcontrol off bedeutet, dass du keine Steuerung des Datenflusses 
machst, weder per Hard- noch per Software, also RXD, TXD und Masse 
reichen.
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