Program w bascom

[shoter09]

Witam

Robię sobie Waldka i chciałem dorobić do niego światełka 😋 i napisałem program który będzie podświetlał podwozie i boki. Ma on robić to że dioda raz będzie świecić mocniej a raz słabiej (przez rezystor). Mógłby mi ktoś powiedzieć czy dobrze napisałem program i czy dobrze zrobiłem schemat ?

Proc: Atmega8L, dla tego, że leży sobie bezużytecznie 😋

$regfile = "m8def.dat"                                      'atmaga8l
$crystal = 1000000

'Diody   obiekt 4
Config Portb.7 = Output
Config Portd.5 = Output
'Diody obiekt 1
Config Portd.6 = Output
Config Portd.7 = Output
'Dioday obiekt 3
Config Portb.3 = Output
Config Portb.2 = Output
'Diody obiekt 2
Config Portb.5 = Output
Config Portb.4 = Output
'DUO-LED
Config Portb.0 = Output
Config Portb.1 = Output

Do

'DUO-LED
Set Portb.1                                                 'on
Wait 1
Reset Portb.1                                               'off
Set Portb.0                                                 'on
Wait 1
Reset Portb.0
Set Portb.1                                                 'on
Set Portb.0                                                 'on

'OBIEKT 1 - PortD 6 i 7

Set Portd.6                                                 'on
Wait 2
Reset Portd.6                                               'off
Set Portd.7                                                 'on
Waitms 750
Reset Portd.7                                               'off
Set Portd.6                                                 'on
Waitms 500
Reset Portd.6                                               'off
Set Portd.7                                                 'on


'OBIEKT 2 - PortB 5 i 4

Set Portb.5                                                 'on
Wait 2
Reset Portb.4                                               'off
Set Portb.5                                                 'on
Waitms 750
Reset Portb.4                                               'off
Set Portb.5                                                 'on
Waitms 500
Reset Portb.4                                               'off
Set Portb.5                                                 'on



'OBIEKT 3 - PortB 3 i 2

Set Portb.3                                                 'on
Wait 2
Reset Portb.2                                               'off
Set Portb.3                                                 'on
Waitms 750
Reset Portb.2                                               'off
Set Portb.3                                                 'on
Waitms 500
Reset Portb.2                                               'off
Set Portb.3                                                 'on



'OBIEKT 4 - PORTB 7 i PORTD 5

Set Portd.5                                                 'on
Wait 2
Reset Portb.7                                               'off
Set Portd.5                                                 'on
Waitms 750
Reset Portb.7                                               'off
Set Portd.5                                                 'on
Waitms 500
Reset Portb.7                                               'off
Set Portd.5                                                 'on

Loop

End

Schemat: http://www.voila.pl/413/zk8me/index.php?get=1&f=1

lub

http://img175.imageshack.us/img175/5431/schemat.png

lub schemat z eagle

http://www.speedyshare.com/346689267.html

//nawyk:

w rozszerzeniu .BMP niemożna.

__________

Komentarz dodany przez: Treker

Bo BMP się nie używa w internecie, zerowy stopień kompresji,,,

Ale za to jakość dobra 😋

[Kocisko]

jak chcesz żeby diody pulsowały to użyj sprzętowego PWMa. Poza tym bezpośrednie podłączenie diód przez procek do 5V zaszkodzi albo diodom, albo prockowi. Rozumiem co chciałeś uzyskać, ale chyba bez rezystora na linii jaśniejszej i ciemniejszej się nie obejdzie 🙂

[shoter09]

a byś mógł mi pokazać taki program, bo nie umiem jeszcze dobrze programować to mój jeden z pierwszych programów 😋