: : )ee Port B nin bitlerini sırayla 0-1 yapıp araya 500 zaman gecikmesi koyunca eline geçiyo? Hacı yeni başlayanlar ne yaptığını rahat rahat grsün diye oraya 10 yazsak bişe anlamaz yeniler. Acemi biri için bir pice bunu yazmak ve atmak ne kadar mutluluk verei bilemezsin.:D Anlatılmaz yaşşanır...:)

: )ee Port B nin bitlerini sırayla 0-1 yapıp araya 500 zaman gecikmesi koyunca eline geçiyo? Ardından yüz kpek havlamayan kurt, kurt sayılmaz..

include "modedef. bas"trisb=00000000portb=%00001101 '1. durumcall kvnportb=%10001000 '2. durum call kvn portb= 'bu şekilde istediğiniz kadar yazıncall kvn 'altına bunu yazmayı unutmayınkvn:pause 500 'hızreturnend Anlatılmaz yaşşanır...:)

elleşme abisi... Bu sitedeki ruh kanserlerini nası tespit edicez sen ble yaparsan amele_2 eniği sana diyom... ha bu arada angara angara duy sesimizi patronu çaarıyım abi ona konuşun ;) delirdim delirdim... he gidi vey geleli ne oldu gene bana ne oldu mu ki ne acaba... vesaire ve de asabite el kaide felan fiş ve keman... diyip sona gerekmi den lale sonucu saadet elde edelim... oh bea rahatladım vallaha bilmiyorum...

: include "modedef. bas" /modedef. bas kütüphanesii include ettik trisb=00000000 / tris register i port bitlerini kontrol eder.(bit 0 ise çıkıi 1 ise giriş olarak kullanılır o port)portb=%00001101 '1. durum / portb bitlerini binary olarak değiştirdik sol baştan itibaren por0 port1 diye gidercall kvn /kvn alt programını çağırdıkportb=%10001000 '2. durum /yine aynı şey hexadecimal olarak da atanabilir sanırımcall kvn portb= 'bu şekilde istediğiniz kadar yazıncall kvn 'altına bunu yazmayı unutmayınkvn: / alt programpause 500 'hız / 500 defa bekle işlemini yap diyor sanırım 1 makine saykılı olsa 500 ms yapar herhal kristale gre değişirreturn /alt programdan çıkmak içinend /end o zaman şle yapalım koyu renkli olrak açıklamarını yapmaya çalıştırm eksiğim warsa düzlt pic konusunda yeterli değilim ben 8051 ciyim Ardından yüz kpek havlamayan kurt, kurt sayılmaz..

: jaws067 bunu yazdı: include "modedef. bas" /modedef. bas kütüphanesii include ettik trisb=00000000 / tris register i port bitlerini kontrol eder.(bit 0 ise çıkıi 1 ise giriş olarak kullanılır o port)portb=%00001101 '1. durum / portb bitlerini binary olarak değiştirdik sol baştan itibaren por0 port1 diye gidercall kvn /kvn alt programını çağırdıkportb=%10001000 '2. durum /yine aynı şey hexadecimal olarak da atanabilir sanırımcall kvn portb= 'bu şekilde istediğiniz kadar yazıncall kvn 'altına bunu yazmayı unutmayınkvn: / alt programpause 500 'hız / 500 defa bekle işlemini yap diyor sanırım 1 makine saykılı olsa 500 ms yapar herhal kristale gre değişirreturn /alt programdan çıkmak içinend /end o zaman şle yapalım koyu renkli olrak açıklamarını yapmaya çalıştırm eksiğim warsa düzlt pic konusunda yeterli değilim ben 8051 ciyim Aynen doğru haklısın hacı. Bende tam anlamıyla her şeyini bilmiyorum ezbere yapıoz bişeyler. Amacım bu işe yeni başlayanlara yardımcı olabilmektir. tşkkr Anlatılmaz yaşşanır...:)