Sice to vypadá úlpně jednoduše, ale přesto nemohu na to přijít proč to nejde
![Embarassed :oops:](./images/smilies/icon_redface.gif)
![Obrázek](http://www.dhservis.cz/dalsi_1/popis_soubory/priklad_1.gif)
Moderátor: Moderátoři
Kód: Vybrat vše
LED equ P1.2 ;vystup LED
;------------------------------
setb LED
zacatek:cpl LED
mov R3,#167
cas_1: mov R2,#171
cas_2: mov R1,#16
cas_3: djnz R1,cas_3
djnz R2,cas_2
djnz R3,cas_1
sjmp zacatek
end
Kód: Vybrat vše
Led bit P1.2 ;vystup LED
Start:
org 0h
jmp Zacatek
;tady jsou skoky na obsluhu přerušení
org 30h
reti
Zacatek:
; hlavni program
clr Led
Smycka2:
mov r5,#30 ;30 x 10ms
Smycka:
call Wt_10ms
djnz r5,Smycka
cpl Led
jmp Smycka2
;konec programu
;CEKACI SMYCKY
Wt_100u:
mov r7,#50
Sm100:
djnz r7,Sm100 ;2us pri 12mhz
ret
Wt_10ms:
mov r6,#100
Sm101:
call Wt_100u ;100 x 100us
djnz r6,Sm101
ret
Kód: Vybrat vše
$regfile "89c2051.dat"
Dim A As Bit
Dim B1 As Bit
A = 1
B1 = 0
Do
P1.2 = A
Waitms 500
P1.2 = B
Waitms 500
Loop
End
No to mi neříkej!!! Programátor jsem sestavil na netu http://www.ezoflash.com a podle mě to fachá dobře (aspoň si to myslím)Mibeus píše: ....
Ak ti nepojde ani toto tak mas problem s programovanim.
Ja pouzivam TAFE programato a soft ICprog obojo najdes na nete.
Ten programator vyde asi tak na 50 az 100 korun.
Tak jsem to zkusil a jde to, jak mi tady píšeš. Ale přesto mi nejde to blikání, to asi bude chyba mezi klavesnicí a židlíZdenekHQ píše:Např. tak, že tam naprogramuješ jen
mov p1,#0
mov p3,#0
Když zkratuješ resetovací kondík, měly by být na všech portech LOG1. Až zkrat zrušíš, měly by se nastavit do LOG0.
Kdyby byl mrtvej, tak nepůjde ani naprogramovat.