[Bascom] HEX Code senden

Gast #1127805
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
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 schreiben

Eine eigene Frage? Dieser Thread ist über 17 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.