bysoner
Üye
- Katılım
- 8 Şub 2008
- Mesajlar
- 23
- Puanları
- 1
XTAL=4
LCD_DTPORT=PORTD
LCD_RSPIN=PORTC.1
LCD_ENPIN=PORTE.0
LCD_RWPIN=PORTC.0
LCD_CS1PIN=PORTE.1
LCD_CS2PIN=PORTE.2
LCD_TYPE=GRAPHIC
INTERNAL_FONT=On
Device 16F877A
ALL_DIGITAL=TRUE
DON
Dim SAMPLES[128] As Word 'EKG sinyalleri
Dim x As Float
Dim xx As Word
Dim xmax As Float
Dim ymax As Float
'PORTlar
TRISA=%11111111
TRISC=%00000000
TRISD=%00000000
TRISE=%00000000
'AD cevirici
ADIN_RES=10 'AD cevirici 10 bit
ADIN_TAD=FRC 'Ic RC osilatoru kullan
ADIN_STIME=50 '50 us ornekleme zaman.
ADCON1=%10000010 'PORTA saga kaydilir
DelayMS 1000
Cls
RAMPTR=0 'indeks sifirlanir
'
'ANA PROGRAM
'
Loop:
SAMPLES[RAMPTR]=ADIn 0 'AN0 kanalindan oku
RAMPTR=RAMPTR + 1
If RAMPTR=128 Then GoSub GLCD
DelayMS 10
GoTo Loop
GLCD:
DelayMS 1000
Cls
RAMPTR=0
ymax=1024
xmax=128
'Ekrana sinyal cizilir
For xx=0 To 127
y=56*SAMPLES[xx]/ymax
y=56-y
x=xx*128/xmax
Plot y,x
Next
Return
End
Arkadaslar ekg cihazı yapıyorum devreyi yaptıgım kaynak dosyanın içerisindeki yazılım budur basic kullanmasını bilmiyorum bu yazılımı microbasic parogramında derleyemiyorum hata veriyor anlayan arkadasların yazılıma gozatıp hatanın nerde oldugunu bildirip hex dosyasını nasıl elde edecegimi yazabilirmi.
LCD_DTPORT=PORTD
LCD_RSPIN=PORTC.1
LCD_ENPIN=PORTE.0
LCD_RWPIN=PORTC.0
LCD_CS1PIN=PORTE.1
LCD_CS2PIN=PORTE.2
LCD_TYPE=GRAPHIC
INTERNAL_FONT=On
Device 16F877A
ALL_DIGITAL=TRUE
DON
Dim SAMPLES[128] As Word 'EKG sinyalleri
Dim x As Float
Dim xx As Word
Dim xmax As Float
Dim ymax As Float
'PORTlar
TRISA=%11111111
TRISC=%00000000
TRISD=%00000000
TRISE=%00000000
'AD cevirici
ADIN_RES=10 'AD cevirici 10 bit
ADIN_TAD=FRC 'Ic RC osilatoru kullan
ADIN_STIME=50 '50 us ornekleme zaman.
ADCON1=%10000010 'PORTA saga kaydilir
DelayMS 1000
Cls
RAMPTR=0 'indeks sifirlanir
'
'ANA PROGRAM
'
Loop:
SAMPLES[RAMPTR]=ADIn 0 'AN0 kanalindan oku
RAMPTR=RAMPTR + 1
If RAMPTR=128 Then GoSub GLCD
DelayMS 10
GoTo Loop
GLCD:
DelayMS 1000
Cls
RAMPTR=0
ymax=1024
xmax=128
'Ekrana sinyal cizilir
For xx=0 To 127
y=56*SAMPLES[xx]/ymax
y=56-y
x=xx*128/xmax
Plot y,x
Next
Return
End
Arkadaslar ekg cihazı yapıyorum devreyi yaptıgım kaynak dosyanın içerisindeki yazılım budur basic kullanmasını bilmiyorum bu yazılımı microbasic parogramında derleyemiyorum hata veriyor anlayan arkadasların yazılıma gozatıp hatanın nerde oldugunu bildirip hex dosyasını nasıl elde edecegimi yazabilirmi.