aşağıda bir örnek program var device yazmadım yükleyince çalışıyor
örnek program:
'****************************************************************
'* Name : ZAR TEKLI.BAS *
'* Author : [RAMAZAN] *
'* Notice : Copyright (c) 2009 [end. elektronik teknikeri] *
'* : All Rights Reserved *
'* Date : 01.03.2009 *
'* Version : 1.0 *
'* Notes : *
'* : *
'****************************************************************
TRISA=255 ' PORTA AYAKLARIN TAMAMI GİRİŞ
TRISB=0 ' PORTB AYAKLARIN TAMAMI ÇIKIŞ
PORTA=0 ' PORTA TAMAMINI SIFIRLA
PORTB=0 ' PORTB TAMAMINI SIFIRLA
BASLA:
KONTROL1:
PORTB=%00000001 ' PORTB ÇIKIŞLAR 0=1 1=0 2=0 ......
IF PORTA.0=1 THEN KONTROL1 'PORTA AYAK 0=1 İSE BİR SONRAKI SATIRA GEÇ AKSİ TAKTİRDE KONTOL1 E GERİ DÖN
PAUSE 50 ' 50MS BEKLE
KONTROL2:
PORTB=%00000010
IF PORTA.0=1 THEN KONTROL2
PAUSE 50
KONTROL3:
PORTB=%00000011
IF PORTA.0=1 THEN KONTROL3
PAUSE 50
KONTROL4:
PORTB=%00000110
IF PORTA.0=1 THEN KONTROL4
PAUSE 50
KONTROL5:
PORTB=%00000111
IF PORTA.0=1 THEN KONTROL5
PAUSE 50
KONTROL6:
PORTB=%00001110
IF PORTA.0=1 THEN KONTROL6
PAUSE 50
GOTO BASLA
END