عنوان:
مدار چشمک زن توسط ic mega 32این مدار شامل یک آی سی میکرو به شماره at mega 32 میباشد که میتواند به چند حالت که در برنامه نوشته شده led ها را روشن و خاموش کند .در زیر برنامه به صورت کامل نوشته شده است. "regfile = "m32def.dat $
$crystal = 8000000
Config Portd = Output
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Portb.1 , Db5 = Portb.2 , Db6 = Portb.3 , Db7 = _
Portb.4 , E = Porta.2 , Rs = Porta.3
Do
Cls
Lcd "mode 1"
Waitms 300
Cls
Lcd "start flasher"
Waitms 500
Cls
Set Portd.0
Lcd "lamp 1 on"
Waitms 300
Cls
Set Portd.1
Lcd "lamp 2 on"
Waitms 300
Cls
Set Portd.2
Lcd "lamp 3 on"
Waitms 300
Cls
Set Portd.3
Lcd "lamp 4 on"
Waitms 300
Cls
Reset Portd.3
Lcd "lamp 4 off"
Waitms 300
Cls
Reset Portd.2
Lcd "lamp 3 off"
Waitms 300
Cls
Reset Portd.1
Lcd "lamp 2 off"
Waitms 300
Cls
Reset Portd.0
Lcd "lamp 1 off"
Waitms 300
Cls
Lcd "mode 2"
Waitms 300
Cls
Set Portd.0
Set Portd.3
Lcd "lamp 1&4on"
Waitms 300
Cls
Set Portd.1
Set Portd.2
Lcd "lamp 2&3 on"
Waitms 300
Cls
Reset Portd.0
Reset Portd.3
Lcd "lamp 1&4 off"
Waitms 300
Cls
Reset Portd.1
Reset Portd.2
Lcd "lamp 2&3 off"
Waitms 300
Cls
Lcd "mode 3"
Waitms 300
Cls
Set Portd.3
Lcd "lamp 4 on"
Waitms 300
Cls
Set Portd.2
Lcd "lamp 3 on"
Waitms 300
Cls
Set Portd.1
Lcd "lamp 2 on"
Waitms 300
Cls
Set Portd.0
Lcd "lamp 1 on"
Waitms 300
Cls
Reset Portd.3
Lcd "lamp 4 off"
Waitms 300
Cls
Reset Portd.2
Lcd "lamp 3 off"
Waitms 300
Cls
Reset Portd.1
Lcd "lamp 2 off"
Waitms 300
Cls
Reset Portd.0
Lcd "lamp 1 off"
Waitms 300
Cls
Lcd "end flasher"
Waitms 300
Loop
End
