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