PIC+GLCD

[Ankaralı]

modifiye ettiğiniz programı koyarmısınız

modifiye derken anlamadım hocam ? Ahmet hocanın verdiğini aynen uyguladım sabah resimdede gösterdim.Akşam üzerinde birazdaha yoğunlaşıcam.Program çalıştığında bütün kodları paylaşırım.

[ErsinErce]

Çalışan kodlar;

Include "PROTON18_G8.INT"
Dim X As Word
Dim Y As Word
Cls
DelayMS 100
For X = 0 To 127
Y = Isin X*4
Y= Y/4 + 32
Plot Y,X
Next X

[Ankaralı]

@cynetron

Hocam derlerken şu hatayı alıyorum;
"Variable ISIN not found" diyor.

Programıda vereyim de kırk kere uğraşmayalım.

Include "PROTON18_G8.INT"
Device = 16F877                 '16F877
XTAL = 4                           'KRİSTAL 4MHZ
ALL_DIGITAL= TRUE                  'ADC PORTLARININ TAMAMI DİJİTAL GİRİŞ VEYA ÇIKIŞ
LCD_DTPORT = PORTD                 'GLCD DATA PORTLARI PORTD'YE BAĞLI
LCD_RSPIN = PORTB.0                'GLCD RS PİNİ PORTB.0 BAĞLI
LCD_ENPIN = PORTB.2                'GLCD ENABLE PİNİ PORTB.2 BAĞLI
LCD_RWPIN = PORTB.1                'GLCD RW PİNİ PORTB.1 BAĞLI
LCD_CS1PIN = PORTB.4               'GLCD CS1 PİNİ PORTB.4 BAĞLI
LCD_CS2PIN = PORTB.3               'GLCD CS2 PİNİ PORTB.3 BAĞLI
LCD_TYPE =  GRAPHIC                'GLCD 
INTERNAL_FONT = On
FONT_ADDR = 0		
Cls                                 'GLCD EKRANINI TEMİZLE
Dim X As Word
Dim Y As Word
DelayMS 500

BASLA:

For X = 0 To 127
Y = Isin X*4
Y= Y/4 + 32
Plot Y,X
Next X

GoTo BASLA
End

[muhittin_kaplan]

işlemciniz nedir ?

[muhittin_kaplan]

baştaki tanımlamayı kaldırınız. o include dosyası 18f452 içindir.

device 16F877a
Xtal 20
ALL_DIGITAL= TRUE                  'ADC PORTLARININ TAMAMI DİJİTAL GİRİŞ VEYA ÇIKIŞ
LCD_DTPORT = PORTD                 'GLCD DATA PORTLARI PORTD'YE BAĞLI
LCD_RSPIN = PORTB.0                'GLCD RS PİNİ PORTB.0 BAĞLI
LCD_ENPIN = PORTB.2                'GLCD ENABLE PİNİ PORTB.2 BAĞLI
LCD_RWPIN = PORTB.1                'GLCD RW PİNİ PORTB.1 BAĞLI
LCD_CS1PIN = PORTB.4               'GLCD CS1 PİNİ PORTB.4 BAĞLI
LCD_CS2PIN = PORTB.3               'GLCD CS2 PİNİ PORTB.3 BAĞLI
LCD_TYPE =  GRAPHIC                'GLCD 
INTERNAL_FONT = On
FONT_ADDR = 0		
Cls                                 'GLCD EKRANINI TEMİZLE
Dim X As Word
Dim Y As Word
DelayMS 500

BASLA:

For X = 0 To 127
Y = Isin X*4
Y= Y/4 + 32
Plot Y,X
Next X

GoTo BASLA
End

[Ankaralı]

Zaten onu eklemedim hocam cynetron hocam 877 de yazdığımı nerden bilsin.?

Bu şekilde yaptığımda Isin bulunamadı diyor.Acaba 16f serisi için başka bir değişken mi var?

[muhittin_kaplan]

orası SIN komutu olmasın
yani
SIN(x*4)

[Ankaralı]

...............

[Ankaralı]

Herkeze çok teşekkür ederim...

Buyrun kodlar;

Dim X As Word
Dim Y As Word

BASLA:
For X = 0 To 127
Y = Sin (X*4)
Y= Y/4 + 32
Plot Y,X
Next X

GoTo BASLA
End

[ErsinErce]

Isin float yerine integer kullanan şekli 3.5.0.6 versiyonunda kullanılıyor, benim hatam kusura bakmayın ama çözüme ulaştığınıza sevindim =)

[Murat Mert]

Herkeze çok teşekkür ederim...

Buyrun kodlar;

Dim X As Word
Dim Y As Word

BASLA:
For X = 0 To 127
Y = Sin (X*4)
Y= Y/4 + 32
Plot Y,X
Next X

GoTo BASLA
End

Hayırlı olsun uğraşın sonundaki tatlı mutluluk

[Ankaralı]

Aynen mert hocam ya bazen en ufak şeyleri bile göremiyoruz 3 gündür tırmaladım artık sonunda foruma yazmak zorunda kaldım ve sağolsunlar herkes aklına ne geldiyse yazdı ve hep beraber hallettik.