PORTB'in portlarına bağlı olan ledleri sırasıyla aktif yapar.Yanan led sola doğru kayar.
Gerekli kodlar ve simulasyon uplolad edildi...
http://rapidshare.de/files/8018850/BlinX.rar.html
'****************************************************************
'* Name : blink8x.BAS *
'* Author : [select VIEW...EDITOR OPTIONS] *
'* Notice : Copyright (c) 2005 [select VIEW...EDITOR OPTIONS] *
'* : All Rights Reserved *
'* Date : 23.11.2005 *
'* Version : 1.0 *
'* Notes :PORTB'in portlarına bağlı olan ledleri sırasıyla *
'* : aktif yapar.Yanan led sola doğru kayar *
'* : (pic16f84a kullanılmıştır) *
'****************************************************************
i var byte ' Döngü değişkeni
LEDS var PORTB ' 'B portunun tüm bitleri LEDS değişkeni için kullanılıyor
TRISB = %00000000 ' PORTB'nin bütün bitleri çıkış
basla: LEDS = 1 ' Başlangıçtaki LED aktif.(yanar)
Pause 500 ' 0.5 saniyelik gecikme
For i = 1 to 7 ' i değişkeni 1'den 7'e kadar değer alır.(toplam 7 kez)
LEDS = LEDS << 1 'LEDS değişkeninin bitlerini 1 hane sola kaydır.
Pause 500 ' 0.5 saniyelik gecikme
Next i
Goto basla 'Başa dön ve tekrar et
End