Ja richtig, hätte mir auch auffallen können.
Ich hoffe es ist lesbar, ist noch niocht kommentiert und auch nicht Gesäubert.


Code:
$regfile = "m32def.dat"

$crystal = 1000000

$lib "glcdKS108.lbx"



Config Graphlcd = 128 * 64sed , Dataport = Porta , Controlport = Portc , Ce = 2 , Ce2 = 3 , Cd = 4 , Rd = 5 , Enable = 6 , Reset = 7
Config Timer2 = Pwm , Pwm = On , Compare Pwm = Clear Up , Prescale = 1




Config Pind.2 = Input
Config Pind.3 = Input
Config Pind.1 = Input


Set Portd.2
Set Portd.3
Set Portd.1

'Enable Timer2


Dim Frameindex As Byte
Dim V1 As Byte , V2 As Byte , V3 As Byte
Dim Helligkeiteram As Eram Byte
Dim Merker1 As Bit

Setfont Font8x8
Cls

V1 = Helligkeiteram
Ocr2 = Lookup(v1 , Helligkeitswerte)
Merker1 = 0
Frameindex = 8
Do                                                          'Hauptschleife

Select Case Frameindex

   Case 0 : Gosub Menue
   Case 1:
   Case 8 : Gosub Beleuchtung


End Select



Loop

End



Beleuchtung:

   Line(22 , 30) -(105 , 30) , 255
   Line(22 , 41) -(105 , 41) , 255
   Line(22 , 31) -(22 , 40) , 255
   Line(105 , 31) -(105 , 40) , 255

   Lcdat 1 , 1 , "Beleuchtung"
   Lcdat 2 , 1 , V1
   'For V3 = 0 To V1
   'V2 = V3 * 8
   'V2 = V2 + 16
   'Showpic V2 , 35 , Balken8x8
   'Next

   Do

   V2 = V1 * 10

   Lcdat 4 , 47 , V2 ; "%"
   Lcdat 3 , 1 , V1
   Debounce Pind.2 , 0 , Heller
   Debounce Pind.3 , 0 , Dunkler
   Debounce Pind.1 , 0 , Speichern1



   Loop Until Merker1 = 1

   Merker1 = 0

Return


Heller:

   If V1 = 10 Then
   Return
   Else
   V1 = V1 + 1
   Ocr2 = Lookup(v1 , Helligkeitswerte)
   V2 = V1 * 8
   V2 = V2 + 16
   Showpic V2 , 35 , Balken8x8
   End If

Return


Dunkler:

   If V1 = 0 Then
   Return
   Else
   V2 = V1 * 8
   V2 = V2 + 16
   Showpic V2 , 35 , Balken8x8 , 1
   V1 = V1 - 1
   Ocr2 = Lookup(v1 , Helligkeitswerte)
   End If

Return


Speichern1:

   Helligkeiteram = V1
   Frameindex = 0
   Merker1 = 1
   Cls

Return

Helligkeitswerte:

   Data 0 , 3 , 5 , 8 , 12 , 21 , 34 , 56 , 93 , 154 , 255