Noch etwas

[sulawesi]

ich hatte mal gelesen, daß ich alles nur "kopieren" würde und nicht ehrlich wäre....nun ich muss ja niemanden etwas beweisen..

hier aber doch etwas, was ich alleine gecoded habe, tja wenn Ihr meint wäre es zusammenkopiert na dann..

   'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
   'xxxxx  Menü mit 3 Ebenen und 3 Funktionen       xxxxxxxx
   'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx


   $regfile = "m8def.dat"
   $crystal = 16000000
   $hwstack = 100
   $swstack = 100
   $framesize = 100

   Dim Menue As Byte
   Dim Zahl As Byte
   Dim Balken As Byte
   Dim X As Byte
   Dim Dbalken As Byte

   Config Lcdpin = Pin , Db4 = Portb.0 , Db5 = Portb.1 , Db6 = Portb.2 , _
      Db7 = Portb.3 , E = Portb.4 , Rs = Portb.5
   Config Lcd = 16 * 2
   Cls
   Cursor Off



   Config Timer1 = Timer , Prescale = 256
   Enable Timer1
   On Timer1 Takt
   Enable Interrupts
   Timer1 = 3036



   '-----------------------------------------------


'Taster1 Menue einstellen
Config Pind.2 = Input
Portd.2 = 0                                                 'Pollin Board
Taster1 Alias Pind.2

'Taster2 Schieben
Config Pind.3 = Input
Portd.3 = 0
Taster2 Alias Pind.3



Locate 1 , 1
Lcd "    Hauptmenu   "
Locate 2 , 1
Lcd "  Taste drücken "

'Start Werte
X = 1
Balken = 1

'--------------------Hauptprogramm-----------------------
Do

Incr X



Debounce Taster1 , 1 , Taster_menue , Sub

If Menue > 3 Then
Menue = 1
End If

Select Case Menue
Case 1 : Gosub Menue1
Case 2 : Gosub Menue2
Case 3 : Gosub Menue3
End Select


Loop
End
'---------------------Sub------------------------------------

Taster_menue:
Menue = Menue + 1
Return


'Zählen per Tastendruck
Menue1:
Locate 1 , 1
Lcd "    Zaehler     "
Locate 2 , 1
Lcd Zahl
Return

'Zählen mit Timer
Menue2:
Locate 1 , 1
Lcd "    Menue2      "
Locate 2 , 1
Lcd X
Return


'Var Ausgabe
Menue3:

Dbalken = Balken - 1

If Balken > 16 Then
Balken = 1
End If


If Taster2 = 1 Then
Waitms 100
Balken = Balken + 1
End If
Locate 1 , 1
Lcd "    Menue3      "
Locate 2 , Balken
Lcd "H"

Locate 2 , Dbalken
Lcd " "

Return


Takt:
Incr Zahl
Timer1 = 3036
Return