Привет всем, хочу сделать для мотоцикла индикатор скорости.
Выглядеть должно так:
1-H-2-3-4-5-6 при опущеной подножке цифра мигает, сигнал (-) идет от переключателя в моторе для каждой скорости свой, при опущеной подножке сигнала нет, при поднятой (-)
Я написал программу но не знаю будет ли это работать
Код:
'-------------------------------------------------------------- ' mega8.bas ' mega8 sample file '-------------------------------------------------------------- $regfile = "m8def.dat" $crystal = 8000000 'the internal oscillator of 8 Mhz was choosen in the fusebits $baud = 19200 Ddrd = &B1111111 Config Pinc.0 = Input Config Pinc.1 = Input Config Pinc.2 = Input Config Pinc.3 = Input Config Pinc.4 = Input Config Pinc.5 = Input Config Pinb.0 = Input Config Pinb.1 = Input Do If Pinc.0 = 0 Then '1 Gang Portd = &B0011000 Bitwait Pinc.0 , Set Elseif Pinc.1 = 0 Then '2 Gang Portd = &B1101101 Bitwait Pinc.1 , Set Elseif Pinc.2 = 0 Then '3 Gang Portd = &B1111001 Bitwait Pinc.2 , Set Elseif Pinc.3 = 0 Then '4 Gang Portd = &B0110011 Bitwait Pinc.3 , Set Elseif Pinc.4 = 0 Then '5 Gang Portd = &B1011011 Bitwait Pinc.4 , Set Elseif Pinc.5 = 0 Then '6 Gang Portd = &B1011111 Bitwait Pinc.5 , Set Elseif Pinb.0 = 0 Then 'Neutral H Portd = &B0110111 Bitwait Pinb.0 , Set Elseif Pinb.1 < 0 Then Do 'Seitenstaender Toggle Pind.7 Waitms 500 Toggle Pind.7 Waitms 500 Loop Until Pinb.1 = 0 End If Loop
Спасибо за помощь
