Nyilván lehetne játszani a ciklusokban veszített órajelekkel, de egy relévezérlés gondolom nem ezen áll vagy bukik. Szerinted?

 

 

'ATDUINO NANO
Define CLOCK_FREQUENCY = 16

 

ConfigPin PORTD.2 = Output 'relé1
ConfigPin PORTD.3 = Output 'relé2

 

Symbol rele1 = PORTD.2 'relé 1 kimenet
Symbol rele2 = PORTD.3 'relé 2 kimenet

 

main:
rele1 = 1
rele2 = 1
Call secundum(60)
rele1 = 0
Call secundum(30)
rele2 = 0
Call secundum(90)
Goto main

End

 

Proc secundum(x As Byte)
Dim i As Byte
For i = 1 To x
WaitMs 1000 'időzítés millisec-ben
Next i
End Proc