  INFO - FAQ - CC2-Forum - CCPro-Forum |
|
||
|
Geweldig ik dacht dat ik de enige nederlander was op dit forum. Ik vindt het ook heel jammer dat er in nederland heel weinig bekend is over deze c-controller zelfs conrad nl laat het af en toe af weten. Bedankt Mathy voor het reageren Ja ik was daar al bang voor ik was er al mee bezig om hier en daar een kleine pause in te zetten maar dat helpt natuurlijk niet. ik snap wat je bedoelt en ga hier verder mee. Hans > 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 |