Bascom - Lookup und data -

[Manfred S. (Firma: Manfred) (xfred343)]

Hallo,

folgendes Problem, habe mehrere DATA-Zeilen mit unterschiedlich langen 
Songs, ich möchte jetzt über eine Variable die Songs auswählen. Leider 
geht ein Zugriff über Variablen (xsong) nicht. Wer hat Ideen für 
Alternativen:

..
xsong=3
notenzaehler=0
Aktton=lookup(notenzaehler, xsong)
...

   1:
   Data &H06 , &HA4

   2:
   Data &H0C , &H00 , &H20 , &H98


   3:
   Data &H28 , &H00 , &H03 , &HB8

   4:
   Data &HO8 , &HA8

   5:
   Data &H0C , &H0E , &HAB

   6:
   Data &H01 , &H02 , &H81

[Manfred S. (Firma: Manfred) (xfred343)]

Hi,

nach einigem Tüfteln folgender Lösungsansatz, scheint mir nicht 
sonderlich elegant, aber es klappt jedenfalls flexibler als mit lookup

...
Übergabeparameter: xsong
...
select case xsong
case 1
   Notenzaehler=loadlabel(1)
case 2
   Notenzaehler=loadlabel(2)
case 3
   Notenzaehler=loadlabel(3)
case 4
   Notenzaehler=loadlabel(4)
case 5
   Notenzaehler=loadlabel(5)
case 6
   Notenzaehler=loadlabel(1)
end select
...
Aktton=cpeek(notenzaehler)
...
incr notenzaehler
...

   1:
   Data &H06 , &HA4

   2:
   Data &H0C , &H00 , &H20 , &H98


   3:
   Data &H28 , &H00 , &H03 , &HB8

   4:
   Data &HO8 , &HA8

   5:
   Data &H0C , &H0E , &HAB

   6:
   Data &H01 , &H02 , &H81