Übersicht - Suchen - Neueste 50 Beiträge - Neuer Beitrag - Login - Registrieren INFO - FAQ - CC2-Forum - CCPro-Forum

Isn’t there a stabile program for ??? Kategorie: Programmierung Basic (von Hans - 5.03.2006 17:50)

Hans nutzt:  CC1-M-Unit V1.2/2.0

Hello I use a tastatur 3x4 see part of programm. It is working but it has also many failures IsnÂ’t there a stabile program or any hardware to fix this problem? Greeting Hans #Tijd print"#CLS#"; print"#L101#"; print"Tijd:  "; print HOUR; print":"; IF Minute<10 THEN PRINT"0"; print MINUTE; print"#L201#"; PRINT"Goed toets hekje"; GOSUB Wacht #TijdVerwerking  IF Toets=11 THEN GOTO Datum  IF Toets=4 THEN HOUR=HOUR-1  IF Toets=1 THEN HOUR=HOUR+1  IF Toets=5 THEN Minute=Minute-1  IF Toets=2 THEN Minute=Minute+1  IF (HOUR<1)or (HOUR>23) THEN HOUR=0  IF (Minute<1)or(Minute>59)THEN Minute= 0 GOTO Tijd #Datum print"#CLS#";  print"#L101#";  print"Datum "; IF DAY<10 THEN PRINT"0"; print DAY; print"-"; IF MONTH<10 THEN PRINT"0"; print MONTH; PRINT"-20"; IF YEAR<10 THEN PRINT"0"; PRINT YEAR; print"#L201#"; PRINT"Goed toets hekje"; GOSUB Wacht #DatumVerwerking  IF Toets=11 THEN GOTO AantalSensors  IF Toets=10 THEN GOTO Tijd  IF Toets=4 THEN DAY=DAY-1  IF Toets=1 THEN DAY=DAY+1  IF Toets=5 THEN MONTH=MONTH-1  IF Toets=2 THEN MONTH=MONTH+1  IF Toets=6 THEN YEAR=YEAR-1  IF Toets=3 THEN YEAR=YEAR+1  IF (DAY<1)or (DAY>31) THEN DAY=1  IF (MONTH<1)or(MONTH>12)THEN MONTH=1  IF (YEAR<1)or(YEAR>99)THEN YEAR=0 GOTO Datum #AantalSensors print"#CLS#";  print"#L101#";  print"Aantal sensors ";  PRINT AanTalSens;  print"#L201#";  PRINT"Goed toets hekje"; GOSUB Wacht #AantalSensorsVerwerking  IF Toets=11 THEN GOTO Sensor1  IF Toets=10 THEN GOTO Datum  IF Toets=0 THEN AanTalSens=0  IF Toets=1 THEN AanTalSens=1  IF Toets=2 THEN AanTalSens=2  IF Toets=3 THEN AanTalSens=3  IF Toets=4 THEN AanTalSens=4  IF Toets=5 THEN AanTalSens=5  IF Toets=6 THEN AanTalSens=6  IF Toets=7 THEN AanTalSens=7  IF Toets=8 THEN AanTalSens=1  IF Toets=9 THEN AanTalSens=1 GOTO AantalSensors EnzÂ…Â…Â…Â…Â…Â…Â…Â…Â…Â… #Wacht pause 10                                      'Wacht hier  tot de toets weer wordt los gelaten. gosub ToetsenBord if Toets=255 then goto WachtOpToets goto Wacht #WachtOpToets gosub ToetsenBord if Toets=255 then goto WachtOpToets RETURN #ToetsenBord Toets=255:if ADC8<10 then return Toets=10:if abs(20-ADC8)<5 then return Toets=7:if abs(40-ADC8)<5 then return Toets=4:if abs(58-ADC8)<5 then return Toets=1:if abs(77-ADC8)<5 then return Toets=0:if abs(97-ADC8)<5 then return Toets=8:if abs(115-ADC8)<5 then return Toets=5:if abs(134-ADC8)<5 then return Toets=2:if abs(154-ADC8)<5 then return Toets=11:if abs(173-ADC8)<5 then return Toets=9:if abs(193-ADC8)<5 then return Toets=6:if abs(214-ADC8)<5 then return'* Toets=3:if abs(235-ADC8)<5 then return'# Toets=255:return

Antwort schreiben

Bisherige Antworten:

Re: Isn’t there a stabile program for ??? (von Mathy Knaapen - 6.03.2006 22:29)
    Re: Isn’t there a stabile program for ??? (von Hans - 7.03.2006 16:27)
Re: Isn’t there a stabile program for ??? (von Peter Grzeschik - 5.03.2006 19:53)
    Re: Isn’t there a stabile program for ??? (von Hans - 6.03.2006 18:21)
    Re: Isn’t there a stabile program for ??? (von Hans - 6.03.2006 18:21)