  INFO - FAQ - CC2-Forum - CCPro-Forum |
|
||
|
Hoi Hans, Je leest de toetsen analoog in. maar je krijgt fouten doordat je ook contact dender inleest. De waarde die kan dus zomaar even net iets anders zijn waardoor je ipv een 5 een 6 inleest. Volgens mij moet je gewoon een keer of 5 het signaal achter elkaar inlezen. als het 5 keer hetzelfde is, heb je in alle gevallen je juiste toets uitgelezen. dus bijvoorbeeld #LEES_TOETS_IN waarde = toets for t = 1 to 5 if waarde <> toets then goto #LEES_TOETS_IN next t en vanhieruit weet je dat je zeker 5 keer achter elkaar dezelfde waarde hebt ingelezen. Je hebt wel kans dat als er twee toetsen tegelijk gedrukt worden er toch een waarde word ingelezen, maar dat wist je waarschijnlijk wel. Ik doe zelf veel met de C-control 1 unit. Ik bouw er zelfs machientjes mee. Werkt echt perfect > 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 |
Re: Isn’t there a stabile program for ??? (von Hans - 7.03.2006 16:27)