0 63 arası seven segment picbasic pro

[ugurcan10]

sevensegmenti 0-63 arası picle saydırmak istiyorum nasi saydırabilirim lookup komutu bunun için uygunmu eger uygunsa lookup komutunu nasil kullanabilirim

 

[tomy]

peki baska komutlarla nasil saydırabiliriz arkadasın sorununun hemen hemen aynısı bendede mevcut

 

[next4321]

Bu kodlarla 00 ile 99 arası sayan program. Yukarı ve aşagı sayıcı.devreyi ekleyemedim.
programda aynı kodları yazarak 9999 kadar sayıcı yapılabiliyor. inşallah işinize yarar.

PortA=0
TrisA=%00000011
PortB=0
TrisB=%00000000

Symbol TUSA=PORTA.0
SYMBOL TUSB=PORTA.1
SAYI var byte
BIRLER VAR BYTE
ONLAR VAR BYTE

PORTB=0
SAYI=0
'--------------------------------------------------

PAUSE 200


BASLA:
IF TUSA=0 THEN
SAYI=SAYI+1 AUSE 150
IF SAYI=100 THEN SAYI=99
ENDIF

IF TUSB=0 THEN
SAYI=SAYI-1AUSE 150
IF SAYI=255 THEN SAYI=0
ENDIF

BIRLER=SAYI DIG 0
ONLAR= SAYI DIG 1

PORTB=240 | BIRLER
LOW PORTB.5
PAUSE 1
HIGH PORTB.5
PAUSE 1

PORTB=240 | ONLAR
LOW PORTB.4
PAUSE 1
HIGH PORTB.4
PAUSE 2
GOTO BASLA
END

 

[bynkobe]

arkadaslar bunun picin komutlarıyla yazılmısı var mı

 

[ORGE]

Bu kodlarla 00 ile 99 arası sayan program. Yukarı ve aşagı sayıcı.devreyi ekleyemedim.
programda aynı kodları yazarak 9999 kadar sayıcı yapılabiliyor. inşallah işinize yarar.

PortA=0
TrisA=%00000011
PortB=0
TrisB=%00000000

Symbol TUSA=PORTA.0
SYMBOL TUSB=PORTA.1
SAYI var byte
BIRLER VAR BYTE
ONLAR VAR BYTE

PORTB=0
SAYI=0
'--------------------------------------------------

PAUSE 200


BASLA:
IF TUSA=0 THEN
SAYI=SAYI+1 AUSE 150
IF SAYI=100 THEN SAYI=99
ENDIF

IF TUSB=0 THEN
SAYI=SAYI-1AUSE 150
IF SAYI=255 THEN SAYI=0
ENDIF

BIRLER=SAYI DIG 0
ONLAR= SAYI DIG 1

PORTB=240 | BIRLER
LOW PORTB.5
PAUSE 1
HIGH PORTB.5
PAUSE 1

PORTB=240 | ONLAR
LOW PORTB.4
PAUSE 1
HIGH PORTB.4
PAUSE 2
GOTO BASLA
END

alıntı olduğunu belirtmemişsin..