Strona główna » Fora » Pytania » Programowanie

Jak to napisać

shoter09, 13 sierpień, 2011 - 13:05


Witam
Jak napisać program taki że mam 2 przyciski i jak nacisnę pierwszy przycisk X razy i potem nacisnę drugi to wtedy dioda zapali mi się na X sekund i zgaśnie.

Próbowałem coś takiego ale nie działa

$regfile = "m8def.dat"
$crystal = 1000000
 
Config Portd.1 = Input
Portd.1 = 1
Wejscie Alias Pind.1
 
Config Portd.3 = Input
Portd.3 = 1
Ok Alias Pind.3
 
Config Portb.0 = Output
Led Alias Portb.0
 
 
Do
 
Dim X As Byte
 
If Wejscie = 0 Then
X = X + 1
End If
 
If Ok = 0 Then
 
Led = 1
Wait X
Led = 0
 
Else
Led = 0
End If
 
Loop

‹ strobo led na attiny2313 Komunikacja Atmega 8 z przemiennikiem częstotliwości LS iC5 protokołem MODBUS RTU ›



#1mirley, 16 sierpień, 2011 - 07:36
Portret użytkownika mirley

Re: Program

Spróbuj tak:

$regfile = "m8def.dat"
$crystal = 1000000
 
Config Portd.1 = Input
Portd.1 = 1
Wejscie Alias Pind.1
 
Config Portd.3 = Input
Portd.3 = 1
Ok Alias Pind.3
 
Config Portb.0 = Output
Led Alias Portb.0
 
/odnośnie konfiguracji pinów to powinieneś wszystkie piny skonfigurować i nadać im wartość początkową
 
 
Dim X As Byte 'zmienna poza do loop
X=0
 
 
Do
 
'w ifie musi być opóźnienie albo trzeba to zrobić porządnie na Timerze, bo inaczej jednym kliknięciem zwiększasz pewnie wartość X 10 tyś razy i wychodzi losowa wartość X
If Wejscie = 0 Then   
  X = X + 1
  waitms 250     
End If
 
If Ok = 0 Then
  Led = 1
  Wait X
  Led = 0 
  X =0
Else
  Led = 0
End If
 
Loop

-

UWAGA! Możliwy jest zakup zaprogramowanych uC i zestawów elementów itp. do niektórych projektów. O dostępność proszę pytać via email. Konkretne oferty pojawiają się w cenniku.