aus dem Grund hab ich erst garnicht drauf geantwortet
Premium Benutzer$regfile "m8def.dat"
$crystal = 1000000
Config Lcdpin = Pin , Db4 = Portb.4 , Db5 = Portb.5 , Db6 = Portb.6 , Db7 = Portb.7 , E = Portb.2 , Rs = Portb.0
Config Lcd = 20 * 4
Dim A As Byte
Dim Menuflag As Bit
Config Portd.0 = Input
Config Portd.1 = Input
Config Portd.7 = Output
Config Portd.6 = Output
Menuflag = 0
Cursor Off
Cls
Locate 1 , 1
Lcd "Led 7 <-- "
Locate 2 , 1
Lcd "Led 8"
Locate 4 , 1
Lcd "Auswahl treffen"
Do
If Pind.0 = 0 Then
Menuflag = Not Menuflag
If Menuflag = 0 Then
Locate 1 , 6
Lcd " <-- "
Locate 2 , 6
Lcd " "
Else
Locate 1 , 6
Lcd " "
Locate 2 , 6
Lcd " <-- "
End If
Waitms 1000
End If
If Pind.1 = 0 Then
If Menuflag = 0 Then
Portd.6 = 0
Portd.7 = 1
Else
Portd.6 = 1
Portd.7 = 0
End If
End If
Loop
End
Leider sind hier (wie Cassio geschrieben hat) ab und zu mal Schnorrer unterwegs denen selber machen einfach zu blöd ist. Nach dem Motto: Warum soll ich mir Arbeit machen? Das können ja die anderen erledigen 
ja man könnte ja auch mal nen lernbuch vorschlagen z.B. wo einiges beschrieben ist zum thema lcd programmierung und co
Dies "ich klick mir was zusammen"-Dinger kann man normalerweise in die Tonne hauen. Du wirst immer selber noch Hand anlegen müssen. Es kann sogar sein das es mehr Arbeit ist diese zusammengeklickten Dinger zum laufen zu bekommen als wenn man es gleich komplett selber gemacht hätte. Außerdem lernt man beim selbermachen mehr.
Die Schaltpläne sind aber "überarbeitungsbedürftig"Ich habe eben mal im Forum gestöbert und etwas für dich gefunden.
Schau doch mal hier!
Ich könnte mir vorstellen, dass da einiges brauchbares für dich drin steht.
(zB parallelgeschaltete 7805 )
$regfile = "m1280def.dat"
$crystal = 8000000
$hwstack = 100
$swstack = 100
$framesize = 100
Config Lcdpin = Pin , Db4 = Porta.1 , Db5 = Porta.2 , Db6 = Porta.3 , Db7 = Porta.4 , E = Porta.0 , Rs = Porta.5
Config Lcdbus = 4
Config Lcd = 16 * 2
Cursor Off
Cls
Const Sysstart = 50
Const Waitumschalten = 100
Const Lcdrows = 2
Const Lcdcols = 16
Const Keyup = 1
Const Keydown = 2
Const Keyright = 3
Const Keyleft = 4
Const Keyback = 5
Const Keymenu = 6
Const Keyok = 7
Const Mnumaxlines = 10
Dim N As Byte
Dim Mnuselect As Word
Dim Mnuselectscount As Byte
Dim Mnuselectback As Word
Dim Mnuselectpointer As Byte
Dim Mnuselectpointer_old As Byte
Dim Mnutext(mnumaxlines) As String * Lcdcols
Dim Mnuselects(mnumaxlines) As Word
Dim K As Word
Dim M As Word
Dim Mnuselectold As Word
Dim Keypressed As Byte
N = 3
Mnuselectpointer = 1
'Keyup an PC4
Keyup1 Alias Pinc.4
Config Keyup1 = Input
Portc.4 = 1
'Keyleft an PC3
Keyleft1 Alias Pinc.3
Config Keyleft1 = Input
Portc.3 = 1
'Keyright an PC7
Keyright1 Alias Pinc.7
Config Keyright1 = Input
Portc.7 = 1
'Keymenu an PC6
Keymenu1 Alias Pinc.6
Config Keymenu1 = Input
Portc.6 = 1
'Keydown an PC2
Keydown1 Alias Pinc.2
Config Keydown1 = Input
Portc.2 = 1
'Keyback an PC0
Keyback1 Alias Pinc.0
Config Keyback1 = Input
Portc.0 = 1
'Power an PC1
Power1 Alias Pinc.1
Config Power1 = Input
Portc.1 = 1
'OK an PC5
Keyok1 Alias Pinc.5
Config Keyok1 = Input
Portc.5 = 1
'USB Led an PJ7
Usbled Alias Portb.3
Config Usbled = Output
'PwrLedOn
Pwrledon Alias Portg.0
Config Pwrledon = Output
'PwrLedOff
Pwrledoff Alias Portg.1
Config Pwrledoff = Output
Pwrledon = 1
Do
Select Case Mnuselect
Case 0:
Mnuselectback = 0
Mnutext(1) = "Steuerung"
Mnuselects(1) = 1
Mnutext(2) = "Systemparameter"
Mnuselects(2) = 2
Mnutext(3) = "Menue verlassen"
Mnuselects(3) = 0
Mnuselectscount = 3
Gosub Mnushow
Case 1:
Mnuselectback = 0
Mnutext(1) = "Ausgänge"
Mnuselects(1) = 0
Mnutext(2) = "RGB"
Mnuselects(2) = 0
Mnuselectscount = 2
Mnuselectpointer_old = 1
Gosub Mnushow
Case 2:
Mnuselectback = 0
Mnutext(1) = "Systemzeit"
Mnuselects(1) = 0
Mnutext(2) = "Spannungen"
Mnuselects(2) = 0
Mnutext(3) = "Verbrauch"
Mnuselects(3) = 0
Mnutext(4) = "RC5 Test"
Mnuselects(4) = 0
Mnuselectscount = 4
Gosub Mnushow
Case Else:
Mnuselect = 0
Mnuselectpointer = 1
End Select
Loop
Mnushow:
Mnuselectold = Mnuselect
Mnuselectpointer = 1
While Mnuselectold = Mnuselect
M = 1
Cls
N = Mnuselectpointer + Lcdrows
Decr N
If N > Mnuselectscount Then
N = Mnuselectscount
End If
For K = Mnuselectpointer To N
Locate M , 1
If K = Mnuselectpointer Then
Lcd Chr(&B01111110) ; ""
Else
Lcd " "
End If
Lcd Mnutext(k)
Incr M
Next
Do
Gosub Tstq
Loop Until Keypressed > 0
If Keypressed = Keyup Then
If Mnuselectpointer > 1 Then
Decr Mnuselectpointer
End If
End If
If Keypressed = Keydown Then
If Mnuselectpointer < Mnuselectscount Then
Incr Mnuselectpointer
End If
End If
If Keypressed = Keyright Then
Mnuselect = Mnuselects(mnuselectpointer)
End If
If Keypressed = Keyleft Then
Mnuselect = Mnuselectback
End If
If Keypressed = Keyback Then
Mnuselect = Mnuselectback
End If
If Keypressed = Keyok Then
Mnuselect = Mnuselects(mnuselectpointer)
End If
If Keypressed = Keymenu Then
Mnuselect = 0
End If
Wend
Cls
Return
Tstq:
If Keypressed = Keyright Then
Do
Loop Until Keyright1 = 1
Keypressed = 0
End If
If Keypressed = Keydown Then
Do
Loop Until Keydown1 = 1
Keypressed = 0
End If
If Keypressed = Keyup Then
Do
Loop Until Keyup1 = 1
Keypressed = 0
End If
If Keypressed = Keyleft Then
Do
Loop Until Keyleft1 = 1
Keypressed = 0
End If
If Keypressed = Keyback Then
Do
Loop Until Keyback1 = 1
Keypressed = 0
End If
If Keypressed = Keymenu Then
Do
Loop Until Keymenu1 = 1
Keypressed = 0
End If
If Keypressed = Keyok Then
Do
Loop Until Keyok1 = 1
Keypressed = 0
End If
If Keyright1 = 0 Then
Keypressed = Keyright
End If
If Keydown1 = 0 Then
Keypressed = Keydown
End If
If Keyup1 = 0 Then
Keypressed = Keyup
End If
If Keyleft1 = 0 Then
Keypressed = Keyleft
End If
If Keymenu1 = 0 Then
Keypressed = Keymenu
End If
If Keyok1 = 0 Then
Keypressed = Keyok
End If
If Keyback1 = 0 Then
Keypressed = Keyback
End If
Return
Prozente=DC*100
Prozente=Prozente/Top $regfile = "m1280def.dat"
$crystal = 8000000
$hwstack = 100
$swstack = 100
$framesize = 100
Dim Up As Word
Dim I As Word
Dim A As Word
Config Lcdpin = Pin , Db4 = Porta.1 , Db5 = Porta.2 , Db6 = Porta.3 , Db7 = Porta.4 , E = Porta.0 , Rs = Porta.5
Config Lcdbus = 4
Config Lcd = 16 * 2
Cursor Off
Cls
Deflcdchar 0 , 31 , 31 , 31 , 31 , 31 , 31 , 31 , 31
Config Timer1 = Pwm , Pwm = 10 , Compare A Pwm = Clear Down , Prescale = 1
Config Pinc.4 = 1
Config Pinc.2 = 1
Compare1a = 200
Up = 200
Do
Debounce Pinc.4 , 0 , Keyup1 , Sub
Debounce Pinc.2 , 0 , Keydown1 , Sub
A = Compare1a / 60
Locate 2 , 1
For I = 1 To 16
If A >= I Then
Lcd Chr(0)
Else
Lcd " "
End If
Next
Loop
End
Keyup1:
If Up < 1000 Then
Up = Up + 50
End If
Compare1a = Up
Return
Keydown1:
If Up > 200 Then
Up = Up - 50
End If
Compare1a = Up
Return
$regfile = "m1280def.dat"
$crystal = 8000000
$hwstack = 100
$swstack = 100
$framesize = 100
Config Lcdpin = Pin , Db4 = Porta.1 , Db5 = Porta.2 , Db6 = Porta.3 , Db7 = Porta.4 , E = Porta.0 , Rs = Porta.5
Config Lcdbus = 4
Config Lcd = 16 * 2
Cursor Off
Cls
Deflcdchar 0 , 31 , 31 , 31 , 31 , 31 , 31 , 31 , 31
Config Timer1 = Pwm , Pwm = 10 , Compare A Pwm = Clear Down , Prescale = 1
Const Sysstart = 50
Const Waitumschalten = 100
Const Lcdrows = 2
Const Lcdcols = 16
Const Keyup = 1
Const Keydown = 2
Const Keyright = 3
Const Keyleft = 4
Const Keyback = 5
Const Keymenu = 6
Const Keyok = 7
Const Mnumaxlines = 10
Dim N As Byte
Dim Mnuselect As Word
Dim Mnuselectscount As Byte
Dim Mnuselectback As Word
Dim Mnuselectpointer As Byte
Dim Mnuselectpointer_old As Byte
Dim Mnutext(mnumaxlines) As String * Lcdcols
Dim Mnuselects(mnumaxlines) As Word
Dim K As Word
Dim M As Word
Dim Mnuselectold As Word
Dim Keypressed As Byte
Dim Up As Word
Dim I As Word
Dim A As Word
Compare1a = 200
Up = 200
N = 3
Mnuselectpointer = 1
'Keyup an PC4
Keyup1 Alias Pinc.4
Config Keyup1 = Input
Portc.4 = 1
'Keyleft an PC3
Keyleft1 Alias Pinc.3
Config Keyleft1 = Input
Portc.3 = 1
'Keyright an PC7
Keyright1 Alias Pinc.7
Config Keyright1 = Input
Portc.7 = 1
'Keymenu an PC6
Keymenu1 Alias Pinc.6
Config Keymenu1 = Input
Portc.6 = 1
'Keydown an PC2
Keydown1 Alias Pinc.2
Config Keydown1 = Input
Portc.2 = 1
'Keyback an PC0
Keyback1 Alias Pinc.0
Config Keyback1 = Input
Portc.0 = 1
'Power an PC1
Power1 Alias Pinc.1
Config Power1 = Input
Portc.1 = 1
'OK an PC5
Keyok1 Alias Pinc.5
Config Keyok1 = Input
Portc.5 = 1
'USB Led an PJ7
Usbled Alias Portb.3
Config Usbled = Output
'PwrLedOn
Pwrledon Alias Portg.0
Config Pwrledon = Output
'PwrLedOff
Pwrledoff Alias Portg.1
Config Pwrledoff = Output
Summer Alias Portj.6
Pwrledon = 1
Do
Select Case Mnuselect
Case 0:
Mnuselectback = 0
Mnutext(1) = "Steuerung"
Mnuselects(1) = 1
Mnutext(2) = "Lüfter"
Mnuselects(2) = 2
Mnutext(3) = "Menue verlassen"
Mnuselects(3) = 0
Mnuselectscount = 3
Gosub Mnushow
Case 1:
Mnuselectback = 0
Mnutext(1) = "Ausgänge"
Mnuselects(1) = 3
Mnutext(2) = "RGB"
Mnuselects(2) = 0
Mnuselectscount = 2
Mnuselectpointer_old = 1
Gosub Mnushow
Case 2:
Compare1a = 200
Up = 200
Do
Debounce Keyup1 , 0 , Keyup
Debounce Keydown1 , 0 , Keydown
A = Compare1a / 60
Locate 2 , 1
For I = 1 To 16
If A >= I Then
Lcd Chr(0)
Else
Lcd " "
End If
Next
Loop
Case 3:
Mnuselectback = 0
Mnutext(1) = "led an"
Mnuselects(1) = 4
Mnutext(2) = "led aus"
Mnuselects(2) = 5
Mnutext(3) = ""
Mnuselects(3) = 0
Mnutext(4) = ""
Mnuselectscount = 4
Gosub Mnushow
Case 4:
Portg.0 = 1
Mnuselect = 1
Case 5:
Portg.0 = 0
Mnuselect = 1
Case Else:
Mnuselect = 0
Mnuselectpointer = 1
End Select
Loop
Mnushow:
Mnuselectold = Mnuselect
Mnuselectpointer = 1
While Mnuselectold = Mnuselect
M = 1
Cls
N = Mnuselectpointer + Lcdrows
Decr N
If N > Mnuselectscount Then
N = Mnuselectscount
End If
For K = Mnuselectpointer To N
Locate M , 1
If K = Mnuselectpointer Then
Lcd Chr(&B01111110) ; ""
Else
Lcd " "
End If
Lcd Mnutext(k)
Incr M
Next
Do
Gosub Tstq
Loop Until Keypressed > 0
If Keypressed = Keyup Then
If Mnuselectpointer > 1 Then
Decr Mnuselectpointer
End If
End If
If Keypressed = Keydown Then
If Mnuselectpointer < Mnuselectscount Then
Incr Mnuselectpointer
End If
End If
If Keypressed = Keyright Then
Mnuselect = Mnuselects(mnuselectpointer)
End If
If Keypressed = Keyleft Then
Mnuselect = Mnuselectback
End If
If Keypressed = Keyback Then
Mnuselect = Mnuselectback
End If
If Keypressed = Keyok Then
Mnuselect = Mnuselects(mnuselectpointer)
End If
If Keypressed = Keymenu Then
Mnuselect = 0
End If
Wend
Cls
Return
Tstq:
If Keypressed = Keyright Then
Do
Loop Until Keyright1 = 1
Keypressed = 0
End If
If Keypressed = Keydown Then
Do
Loop Until Keydown1 = 1
Keypressed = 0
End If
If Keypressed = Keyup Then
Do
Loop Until Keyup1 = 1
Keypressed = 0
End If
If Keypressed = Keyleft Then
Do
Loop Until Keyleft1 = 1
Keypressed = 0
End If
If Keypressed = Keyback Then
Do
Loop Until Keyback1 = 1
Keypressed = 0
End If
If Keypressed = Keymenu Then
Do
Loop Until Keymenu1 = 1
Keypressed = 0
End If
If Keypressed = Keyok Then
Do
Loop Until Keyok1 = 1
Keypressed = 0
End If
If Keyright1 = 0 Then
Keypressed = Keyright
End If
If Keydown1 = 0 Then
Keypressed = Keydown
End If
If Keyup1 = 0 Then
Keypressed = Keyup
End If
If Keyleft1 = 0 Then
Keypressed = Keyleft
End If
If Keymenu1 = 0 Then
Keypressed = Keymenu
End If
If Keyok1 = 0 Then
Keypressed = Keyok
End If
If Keyback1 = 0 Then
Keypressed = Keyback
End If
If Power1 = 0 Then
Keypressed = Pwrledoff
End If
Keyup:
If Up < 1000 Then
Up = Up + 50
End If
Compare1a = Up
Return
Keydown:
If Up > 200 Then
Up = Up - 50
End If
Compare1a = Up
Return