Hi,

das mit dem ; hab ich in der Bascom hilfe nicht gefunden. Danke deswegen.
Edit: Jetzt zeigt er No more space for bit[LCD_No] und [syntax error token='{] an. Werd daraus ned schlau. Hier noch der verbesserte Prog Text:



Mfg,
Flo
Code:
$regfile = "m8def.dat"
$crystal = 1000000

Config Pinb.5 = Input                                       'Cursor Up
Config Pinb.4 = Input                                       'Cursor Down
Config Pinb.3 = Input                                       'Vergrößern der zeit
Config Pinb.2 = Input                                       'Verkleinern der Zeit

Dim A As Integer
Dim B As Integer
Dim C As Integer
Dim D As Integer
Dim E As Integer
Dim F As Integer
Dim G As Integer
Dim H As Integer
Dim I As Integer
Dim J As Integer
Dim K As Integer
Dim L As Integer
Dim M As Integer
Dim N As Integer
Dim O As Integer
Dim P As Integer
Dim R As Integer
Dim S As Integer
Dim T As Integer

Dim Menuewert As Integer
Menuewert = 0

Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Portc.0 , Db5 = Portc.1 , Db6 = Portc.2 , Db7 = Portc.3 , E = Portc.5 , E2 = Portc.6 , Rs = Portc.4

Do

If Pinb.5 = 1 Then
Menuewert = Menuewert + 1
End If

If Pinb.4 = 1 Then
Menuewert = Menuewert - 1
End If

Select Case Menuewert

   Case 1
   If Pinb.3 = 1 Then
   A = A + 1
   End If
   If Pinb.2 = 1 Then
   A = A - 1
   End If
   Cls
   Locate 1 , 1
   Lcd "Zündkanal" ; Menuewert
   Locate 2 , 1
   Lcd "Zündabstand" ; A

   Case 2
   If Pinb.3 = 1 Then
   B = B + 1
   End If
   If Pinb.2 = 1 Then
   B = B - 1
   End If
   Cls
   Locate 1 , 1
   Lcd "Zündkanal" ; Menuewert
   Locate 2 , 1
   Lcd "Zündabstand" ; B

End Select                                                  'Das geht dann die Buchstaben bis Q durch
Loop
End