7 segment diaplayda adc degerini gösterme

[DEDİM]

ustalar kolay gelsin

adc okuma işlemini 7 segment display üzerinde proton yazılım dilinde yapabilen varmı ben protonda yenı oldugumdan dolayı beceremedim yardım edebilirmisiniz

[pwm.c]

önce devre şemasını çizmelisin. yazılım buna göre yapılacak.

[DEDİM]

Tamam devre semasını isisde çizip gönderiyim.
mesaj birleştirme:: 10 Temmuz 2013, 01:42:44
usta;

mailini kontrol edebilirmisin.mail den semayı gönderdim sana

[isikyasar]

Device 16F84A
Xtal 4
Dim sayi As Byte
Dim birler As Byte
Dim onlar As Byte
Dim yuzler As Byte
Dim tasiyici As Byte
Dim fornext As Word
Output PORTA
Output PORTB
Input PORTA.4
PORTA = 0
PORTB = 0

basla:


sayi = Counter PORTA.4 , 100    bu alanı değiştirerek analog giriş yap.

birler = Dig sayi , 0
onlar  = Dig sayi , 1
yuzler = Dig sayi , 2

tasiyici = birler
GoSub convert
birler = tasiyici
;---
tasiyici = onlar
GoSub convert
onlar = tasiyici
;---
tasiyici = yuzler
GoSub convert
yuzler = tasiyici
;-- display tarama
For fornext = 0 To 100
PORTA.0=1       ; birler basamağı displayini seç
PORTB = birler
PORTA.0 = 0
DelayMS 10
PORTA.1 = 1
PORTB = onlar
PORTA.1 = 0
DelayMS 10
PORTA.2 = 1
PORTB = yuzler
PORTA.2 = 0
DelayMS 10
Next
GoTo basla
End

convert:
tasiyici = LookUp tasiyici,[$3f,$06,$5b,$4f,$66,$6d,$7c,$07,$7f,$67]
Return

KOLAY GELSİN.