WICHTIG WICHTG WICHTIG Frage zu einem Quellcode

[sleeping-head]

HI ich muss morgen mein Projekt abgeben, hatte schinmal ein Thema "mini-disco" hab jetzt von pehu nen code bekommen, aber irgendwie geht er nciht mehr, springt immer aus einem Programm raus, aber warum ??? KAnn mir einer helfen ???

Code: Alles auswählen

$regfile = "m32def.dat"
$crystal = 16000000
Ddrd = &B00000110

Config Timer0 = Timer , Prescale = 8
On Ovf0 Tastencheck

Enable Timer0
Enable Interrupts


Config Pind.2 = Input
Config Pind.3 = Input
Config Portd.5 = Output
Config Portd.6 = Output
Config Portd.1 = Output



Taste1 Alias Pind.6
Taste2 Alias Pind.2

Led1 Alias Portd.5
Led2 Alias Portd.6
Led3 Alias Portd.1

Dim Programm As Integer

Programm = 0

Do


'----- Programm 1 -----
While Programm = 1
Led1 = 1
Waitms 20
Led2 = 1
Waitms 20
Led2 = 0
Waitms 20
Led1 = 0
Waitms 20
Wend

Loop

'----- Programm 2 -----
While Programm = 2
Led1 = 1
Waitms 50
Led2 = 1
Waitms 50
Led3 = 1
Waitms 50
Led1 = 0
Waitms 50
Led2 = 0
Waitms 50
Led3 = 0
Waitms 50
Wend

Loop

Tastencheck:


If Taste1 = 1 Then
Programm = 1
End If

If Taste2 = 1 Then
Programm = 2
End If

Return

BItte Bite helft mir

[Pehu]

Du hast einen "Loop" zuviel drin. Schmeiß den Befehl "Loop" zwischen Programm1 und Programm2 raus.

[lithi]

immer diese tollen überschriften, wo man dann gleich weiß worum es geht

[Doc_McCoy]

immer diese tollen überschriften, wo man dann gleich weiß worum es geht

Nja, wichtig ist es anscheinend auf jeden Fall!

[Sh@rk]

@sleeping-head und gehts nun?

mfg Sh@rk