blink8x-pbp

[XNHCX]

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