Jal Code abändern und combilieren in HEX

[Peter S. (digitalus3)]

Sehr geehrte Forumsmitglieder und Innen.
Ich habe im Internet jene Schaltung gefunden die ich gerne abändern 
würde leider reicht mein wissen dafür nicht aus.
Vielleicht gibt es Forumsmitglieder/Innen die mich hier unterstützen 
können,
ich hätte gerne den JAL Code so abgeändert das die Funktion
"Standby & Auto" mit der Funktion "Lamp on/off" ausgetauscht wird.
die Funktion "Lamp on/off" funktioniert wird aber nicht benötigt,
die Funktion "Standby & Auto" würde zwar funktionieren, da aber die 
beiden Schalter Hardwaremäßig nicht vorhanden sind müsste diese Funktion 
eben mit der nicht benötigten "Lamp on/off" getauscht werden.

Die Schaltung wurde von mir nachgebaut sowie programmiert und getestet,
da in meiner Schaltung Hardwaremäßig aber nur 4 Schalter zum Einsatz 
kommen möchte ich mich im vorhinein für Lösungen meines Problems recht 
Herzlich bedanken.

-- ***********************************************
-- P R O G R A M    S T A R T S    H E R E
-- ***********************************************

var byte x1, x2, x3

Bank_1
option = 0x0f -- Prescaler to WDT and 1:128 rate
Bank_0

delay_1ms( 100 )
StartBeep
delay_1ms( 100 )

forever loop

  x1 = ReadKeyb 
  while ( x1 == 0 ) loop
    x1 = ReadKeyb 
  end loop
  delay_1ms( 100 )
  x2 = ReadKeyb -- Read two times with x ms interval, if not same keys pressed - skip
  
  if ( x1 == x2 ) then -- same keys still pressed?
    if    ( x1 == 0x40 ) then  -- "-1"
       SendKey( 0x05 )
    elsif ( x1 == 0x04 ) then  -- "+1"
       SendKey( 0x07 )
    elsif ( x1 == 0x20 ) then  -- "-10"
       SendKey( 0x06 )
    elsif ( x1 == 0x02 ) then  -- "+10"
       SendKey( 0x08 )
    elsif ( x1 == 0x60 ) then  -- "-1" & "-10"
       SendKey( 0x21 )
    elsif ( x1 == 0x06 ) then  -- "+1" & "+10"
       SendKey( 0x22 )
    elsif ( x1 == 0x22 ) then  -- "-10" & "+10"
       SendKey( 0x28 )
    elsif ( x1 == 0x11 ) then  -- "Standby & Auto"
       SendKey( 0x23 )
    elsif ( x1 == 0x01 ) then  -- "Auto"
      x3 = seatalk_send ( 0x86, Yes )
      x3 = seatalk_send ( 0x11, no )
      x3 = seatalk_send ( 0x01, no )
      x3 = seatalk_send ( 0xfe, no )
      beep
    elsif ( x1 == 0x10 ) then  -- "standby"
      x3 = seatalk_send ( 0x86, Yes )
      x3 = seatalk_send ( 0x11, no )
      x3 = seatalk_send ( 0x02, no )
      x3 = seatalk_send ( 0xfd, no )
      beep
    elsif ( x1 == 0x44 ) then  -- "-1 & +1" Lamp on/off
      if light then
        x3 = seatalk_send ( 0x30, Yes)
        x3 = seatalk_send ( 0x00, No )
        x3 = seatalk_send ( 0x00, no )
      else
        x3 = seatalk_send ( 0x30, Yes)
        x3 = seatalk_send ( 0x00, No )
        x3 = seatalk_send ( 0x04, no )
      end if
      light = ! light
      beep
    end if

    while ( x1 == x2 ) loop
      x2 = ReadKeyb 
    end loop
    delay_1ms( 70 )
  end if

end loop

[Holger (Gast)]

Peter Schmidt schrieb:
> leider reicht mein wissen dafür nicht aus
Ganz ehrlich, wie viel Wissen zu diesem Thema hast du?

[Peter S. (digitalus3)]

Servus,
also nachbauen war kein Problem, nur vom programmieren oder Code 
schreiben habe ich keine Ahnung, deswegen ja auch die Frage und Bitte 
nach Hilfe.

[Max H. (hartl192)]

Das passt eigentlich gar nicht in "Projekte & Code".

>Forum: Projekte & Code

>Hier könnt ihr eure Projekte, Schaltungen oder Codeschnipsel vorstellen und 
>diskutieren. Bitte hier keine Fragen posten!

[Peter S. (digitalus3)]

Servus Max,
ich habe es verschoben, könnte passen,
Danke für den Hinweis.
LG

[Peter S. (digitalus3)]

Gibt es Bitte jemanden der mir hier weiterhelfen kann, Danke

[oldmax (Gast)]

Hi
Na ja, helfen kannich in BASCOM nicht wirklich, aber einen Tip kann ich 
dir geben. SChau dir mal deine (endlos) lange IF-Anweisung an. SChwer zu 
erkennen, wie sie überhaupt arbeitet, deswegen darf auch ruhig ein 
weiteres Stück eingerückt werden und schon erkennst du die Bereiche, die 
für dich interessant sind.

    if ( x1 == x2 ) then -- same keys still pressed?
       if    ( x1 == 0x40 ) then  -- "-1"        ---> einrücken
          SendKey( 0x05 )                        ---> enrücken
       elsif ( x1 == 0x04 ) then  -- "+1"        <--- ausrücken 
            SendKey( 0x07 )   wg. if             ---> einrücken
           elsif ( x1 == 0x20 ) then  -- "-10"   <--- ausrücken
                SendKey( 0x06 )                  ---> etc.
             elsif ( x1 == 0x02 ) then  -- "+10"
                   SendKey( 0x08 )
                 elsif ( x1 == 0x60 ) then  -- "-1" & "-10"
                     SendKey( 0x21 )
                   elsif ( x1 == 0x06 ) then  -- "+1" & "+10"
                        SendKey( 0x22 )
                      elsif ( x1 == 0x22 ) then  -- "-10" & "+10"
                           SendKey( 0x28 )
                         elsif ( x1 == 0x11 ) then  -- "Standby & Auto"
                              SendKey( 0x23 )
                             elsif ( x1 == 0x01 ) then  -- "Auto"
                                  x3 = seatalk_send ( 0x86, Yes )
                                  x3 = seatalk_send ( 0x11, no )
                                  x3 = seatalk_send ( 0x01, no )
                                  x3 = seatalk_send ( 0xfe, no )
                                  beep
                                elsif ( x1 == 0x10 ) then  -- "standby"
                                      x3 = seatalk_send ( 0x86, Yes )
                                      x3 = seatalk_send ( 0x11, no )
                                      x3 = seatalk_send ( 0x02, no )
                                      x3 = seatalk_send ( 0xfd, no )
                                      beep
                                  elsif ( x1 == 0x44 ) then  -- "-1 & +1" Lamp on/off
                                     if light then
                                          x3 = seatalk_send ( 0x30, Yes)
                                          x3 = seatalk_send ( 0x00, No )
                                          x3 = seatalk_send ( 0x00, no )
                                        else
                                          x3 = seatalk_send ( 0x30, Yes)
                                          x3 = seatalk_send ( 0x00, No )
                                          x3 = seatalk_send ( 0x04, no )
                                      end if
                                      light = ! light
                                      beep
    end if

Dieser Code ist kaum lesbar. Sag mir mal auf Anhieb, was x1 mit 0x11 
anfängt...
Eine "Case" wäre sicher viel chicker, besser lesbar und zudem auch 
leichter pflegbar. Und das ist ja dein Problem, das du die Zeilen nicht 
lesen kannst. Mehr ist das doch nicht. Also, wenn du dich mit der 
Programmierung von Controllern beschäftigen willst, dann setz erst mal 
diese If's in eine Case um.  Dazu Handbuch, Online-Hilfe, Beispiele zu 
Rate ziehen. So schwer ist es nicht.
Gruß oldmax

[Chris S. (schris)]

x1 == 0x11 mit  x1 == 0x44 ersetzen .
Optional kannst du dann das spàtere  x1 == 0x44 mit  x1 == 0x11 auch
austauschen, solltest du spàter die HW verfollstàndigen.