Arkadaşlar internetten hazır olarak buluğum c# ile 18f4550 ile sıcaklık ölçme programını çalıştıramadım.Lcd ekrana hiç görüntü gelmiyor.Proteus virtual usb kuruludur.C# ve 18f4550 ile yapılmış başka bir led yak söndür çalışması normal olarak çalışmaktadır.Proteus usb çalışmakta, bir sorun yok. Ancak bu programda C# dan sıcaklık değerlerini alamadım.Hatta pice bağlı lcd de hiçbir değer görülmemektedir.Acaba hata nerede olabilir.Değerli yorumlarınzı bekliyorum.Bu arada herkesin bayramını kutluyorum.
(http://i.hizliresim.com/on8DAQ.png) (http://hizliresim.com/on8DAQ)
Proteusta simüle ederken pice yüklenen programda yukarıdaki uyarıları veriyor.Ama yinede yükleniyor.
(http://i.hizliresim.com/LdgVZ1.png) (http://hizliresim.com/LdgVZ1)
Bakın buradaki gibi veri gelmemektedir.
Buda videosu.http://youtu.be/4PhmaGqPr2c (http://youtu.be/4PhmaGqPr2c)
Kodlar buradaki gibidir.Bir eksiklik var mıdr?
#include <18F4550.h>
#device ADC=10
#fuses HSPLL,NOWDT,NOPROTECT,NOLVP,NODEBUG,USBDIV,PLL2,CPUDIV1,VREGEN,NOBROWNOUT // 8MHZ
#use delay(clock=48000000)
#define USB_HID_DEVICE TRUE
#define USB_EP1_TX_ENABLE USB_ENABLE_INTERRUPT //Uçnokta1'de Kesme transferi aktif
#define USB_EP1_RX_ENABLE USB_ENABLE_INTERRUPT
#define USB_EP1_TX_SIZE 64 //Uçnokta1 için maksimum alınacak ve gonderilecek
#define USB_EP1_RX_SIZE 64
#include <pic18_usb.h>
#include <USB_Driver.h> //USB konfigurasyon bilgileri bu dosyadadır.
#include <usb.c>
#include <lcd_driver.c>
#include <One_Wire.c>
#include <DS1820.c>
#use fast_io(a)
#use fast_io(b)
#use fast_io(c)
#use fast_io(d)
#define UcNokta1 1
unsigned int16 Term;
unsigned int8 paket[64];
unsigned int8 Tam,Onda;
float Sicaklik;
void main()
{
setup_timer_3(T3_DISABLED | T3_DIV_BY_1);
set_tris_a(0x00);
set_tris_b(0x00);
set_tris_c(0x00);
set_tris_d(0x00);
output_a(0x00);
output_b(0x00);
output_c(0x00);
output_d(0x00);
lcd_init();
output_high(pin_b7);
delay_ms(100);
output_low(pin_b7);
printf(lcd_putc,"\f");
printf(lcd_putc,"USB Baglantisi");
lcd_gotoxy(1,2);
printf(lcd_putc,"Bekleniyor");
delay_ms(100);
usb_init();
usb_task();
usb_wait_for_enumeration(); //Cihaz, hazır olana kadar bekle
if(usb_enumerated())
printf(lcd_putc,"\f");
printf(lcd_putc,"Baglanti Kuruldu");
lcd_gotoxy(1,2);
printf(lcd_putc,"DS18B20 Okunuyor");
Sicaklik = ds1820_read(); //Sıcaklığı Oku....
printf(lcd_putc,"\f"); // Ekranı sil...
lcd_gotoxy(5,1);
printf(lcd_putc,"Mucit23");
while(TRUE)
{
while(usb_enumerated())
{
if (usb_kbhit(1)) //Eğer pc'den yeni bir paket geldiyse
{
usb_get_packet(UcNokta1, paket, 64); //paketi oku
output_high(pin_a0);
}
lcd_gotoxy(1,2);
printf(lcd_putc,"SICAKLIK=%3.1f", Sicaklik);
lcd_putc(223);
lcd_putc("C ");
Term=Sicaklik*10;
Tam=Term/10;
Onda=Term%10;
paket[1]=Tam;
paket[2]=Onda;
usb_put_packet(UcNokta1, paket,64, USB_DTS_TOGGLE); // Datayı Gönder..
Sicaklik = ds1820_read();
}
}
}
LCD DRİVER bu şekilde;
[//Buradaki ayar bendeki Deneme Kartina göredir, istenilirse baska Pinlere cevrilebilinir.
#define LCD_DB4 PIN_B0
#define LCD_DB5 PIN_B1
#define LCD_DB6 PIN_B2
#define LCD_DB7 PIN_B3
#define LCD_E PIN_B5
#define LCD_RS PIN_B4
//#define LCD_RW PIN_B6 //Bendeki Deneme Kartinda LC_RW PIC'in GND Pinine bagli.Bu nedenle bu satiri iptal ediyoruz...
//#define USE_LCD_RW 1 // Ayni sebepden bu satirida iptal ediyoruz !!
//========================================
#define lcd_type 2 // 0=5x7, 1=5x10, 2=2 lines
#define lcd_line_two 0x40 // LCD RAM address for the 2nd line
int8 const LCD_INIT_STRING[4] =
{
0x20 | (lcd_type << 2), // Func set: 4-bit, 2 lines, 5x8 dots
0xc, // Display on
1, // Clear display
6 // Increment cursor
};
//-------------------------------------
void lcd_send_nibble(int8 nibble)
{
// Note: !! converts an integer expression
// to a boolean (1 or 0).
output_bit(LCD_DB4, !!(nibble & 1));
output_bit(LCD_DB5, !!(nibble & 2));
output_bit(LCD_DB6, !!(nibble & 4));
output_bit(LCD_DB7, !!(nibble & 8));
delay_cycles(1);
output_high(LCD_E);
delay_us(2);
output_low(LCD_E);
}
//-----------------------------------
// This sub-routine is only called by lcd_read_byte().
// It's not a stand-alone routine. For example, the
// R/W signal is set high by lcd_read_byte() before
// this routine is called.
#ifdef USE_LCD_RW
int8 lcd_read_nibble(void)
{
int8 retval;
// Create bit variables so that we can easily set
// individual bits in the retval variable.
#bit retval_0 = retval.0
#bit retval_1 = retval.1
#bit retval_2 = retval.2
#bit retval_3 = retval.3
retval = 0;
output_high(LCD_E);
delay_cycles(1);
retval_0 = input(LCD_DB4);
retval_1 = input(LCD_DB5);
retval_2 = input(LCD_DB6);
retval_3 = input(LCD_DB7);
output_low(LCD_E);
return(retval);
}
#endif
//---------------------------------------
// Read a byte from the LCD and return it.
#ifdef USE_LCD_RW
int8 lcd_read_byte(void)
{
int8 low;
int8 high;
output_high(LCD_RW);
delay_cycles(1);
high = lcd_read_nibble();
low = lcd_read_nibble();
return( (high<<4) | low);
}
#endif
//----------------------------------------
// Send a byte to the LCD.
void lcd_send_byte(int8 address, int8 n)
{
output_low(LCD_RS);
#ifdef USE_LCD_RW
while(bit_test(lcd_read_byte(),7)) ;
#else
delay_us(60);
#endif
if(address)
output_high(LCD_RS);
else
output_low(LCD_RS);
delay_cycles(1);
#ifdef USE_LCD_RW
output_low(LCD_RW);
delay_cycles(1);
#endif
output_low(LCD_E);
lcd_send_nibble(n >> 4);
lcd_send_nibble(n & 0xf);
}
//----------------------------
void lcd_init(void)
{
int8 i;
output_low(LCD_RS);
#ifdef USE_LCD_RW
output_low(LCD_RW);
#endif
output_low(LCD_E);
delay_ms(15);
for(i=0 ;i < 3; i++)
{
lcd_send_nibble(0x03);
delay_ms(5);
}
lcd_send_nibble(0x02);
for(i=0; i < sizeof(LCD_INIT_STRING); i++)
{
lcd_send_byte(0, LCD_INIT_STRING[i]);
// If the R/W signal is not used, then
// the busy bit can't be polled. One of
// the init commands takes longer than
// the hard-coded delay of 60 us, so in
// that case, lets just do a 5 ms delay
// after all four of them.
#ifndef USE_LCD_RW
delay_ms(5);
#endif
}
}
//----------------------------
void lcd_gotoxy(int8 x, int8 y)
{
int8 address;
if(y != 1)
address = lcd_line_two;
else
address=0;
address += x-1;
lcd_send_byte(0, 0x80 | address);
}
//-----------------------------
void lcd_putc(char c)
{
switch(c)
{
case '\f':
lcd_send_byte(0,1);
delay_ms(2);
break;
case '\n':
lcd_gotoxy(1,2);
break;
case '\b':
lcd_send_byte(0,0x10);
break;
default:
lcd_send_byte(1,c);
break;
}
}
//------------------------------
#ifdef USE_LCD_RW
char lcd_getc(int8 x, int8 y)
{
char value;
lcd_gotoxy(x,y);
// Wait until busy flag is low.
while(bit_test(lcd_read_byte(),7));
output_high(LCD_RS);
value = lcd_read_byte();
output_low(lcd_RS);
return(value);
}
#endif/code]
c sharp kullanıyorsunuz heralde.Projenin ISIS te çalışması için c sharp yazılımında
this.usbHidPort1.ProductId = Int32.Parse("0000", System.Globalization.NumberStyles.HexNumber);
this.usbHidPort1.VendorId = Int32.Parse("0000", System.Globalization.NumberStyles.HexNumber);
düzenlemesini yapın.
Picin 1 nolu bacağına 5Volt bağlayın düzelecektir.
Isiste sol altta 83 mesaj yazıyor açıp baktın mı ne diyor diye?
Pice çift tıkla indirdiğin dosyada gelen .hex dosyasını isiste göster-yükle.
Picin MCLR bacağını 5-10 k ile +5V a çek, çalışır.
Alıntı yapılan: okay57 - 28 Temmuz 2014, 01:54:51
Picin 1 nolu bacağına 5Volt bağlayın düzelecektir.
Alıntı yapılan: RaMu - 28 Temmuz 2014, 01:59:57
Isiste sol altta 83 mesaj yazıyor açıp baktın mı ne diyor diye?
Pice çift tıkla indirdiğin dosyada gelen .hex dosyasını isiste göster-yükle.
Picin MCLR bacağını 5-10 k ile +5V a çek, çalışır.
Arkadaşlar Allah hepinizden razı olsun 5V bağlantısı yapınca çalıştı.Nasıl böyle bir körlük yapmışım anlayamadım.
Neyse herkese iyi bayramlar.
mesaj birleştirme:: 28 Temmuz 2014, 08:44:17
Şimdide şöyle bir sorun oluştu.Proteusta ds1820 sıcaklık ayarlama göstergesinde sıcaklık 22 derece göstermesine rağmen lcd ve C#'da sıcaklık 172 gibi üç rakamlı sayılar gösteriyor.Bunun için nasıl ayarlama yapmalıyım.Değerli yorumlarınızı sabırsızlıkla/sabırla bekliyorum.
Bakın buradaki gibi bir durum meydana gelmektedir:
(http://i.hizliresim.com/Pv68N6.png) (http://hizliresim.com/Pv68N6)
Pic ten bilgiyi gönderdiğin diziye bak ve örneğin sadece bir diziden gönderiyorsan diğer 2. ve geri kalan dizileri c sharpta h'FF' yap.
Sıcaklık sensörünü ds18b20 yap kütüphanesinide ona göre değiştir usb devresi denerken proteusda sorun oluyor kristal değerlerini düşürmen lazım
mesaj birleştirme:: 28 Temmuz 2014, 17:08:12
aynı çalışmayı bende yaptım bitirdim bir kaç güne yayınlayacağım oradanda bakabilirsin
Dikkat ederseniz sıcaklığı 8 ile çarpıp ekranda gösteriyor.Sıcaklığı 8 e bölerseniz doğru cevabı alırsınız.Günü kurtaran bir çözüm ama...
Alıntı yapılan: okay57 - 28 Temmuz 2014, 23:36:42
Dikkat ederseniz sıcaklığı 8 ile çarpıp ekranda gösteriyor.Sıcaklığı 8 e bölerseniz doğru cevabı alırsınız.Günü kurtaran bir çözüm ama...
Arkadaşım, programda 10 ile çarpıldığı görülüyor.
Term=Sicaklik*10; Tam=Term/10; Onda=Term%10; paket[1]=Tam; paket[2]=Onda;
Acaba benim göremediğim bir yer mi var?
mesaj birleştirme:: 29 Temmuz 2014, 10:57:02
Alıntı yapılan: baranekrem9 - 28 Temmuz 2014, 17:07:47
Sıcaklık sensörünü ds18b20 yap kütüphanesinide ona göre değiştir usb devresi denerken proteusda sorun oluyor kristal değerlerini düşürmen lazım
mesaj birleştirme:: 29 Temmuz 2014, 07:08:12
aynı çalışmayı bende yaptım bitirdim bir kaç güne yayınlayacağım oradanda bakabilirsin
Arkadaşım sıcaklık sensörünü ds18b20 yaptım ancak pogramı derlediğimde ds18b20 driveri ccsc de açılıyor aşağıdaki hata mesajı ortaya çıkıyor.Sorunu bir türlü çözemedim.
(http://i.hizliresim.com/BoDDQD.png) (http://hizliresim.com/BoDDQD)
Yazılımda çarpılmasının nedeni arayüzde göstermek için.Bir şey onu otomatik olarak 8 ile çarpıyor ama ben bulamadım.
Driverda bir de şunu deneyin.Driver dosyasının adı ds18b20.c yerine ds18b.c yapın ve yazılımda da yerine bunu yazın.
Sicaklik = ds1820_read(); satırından sonra Sicaklik/=Sicaklik yazın doğru değeri göreceksiniz.
Yanlış yazdım şunu yazın Sicaklik/=8;
Alıntı yapılan: okay57 - 29 Temmuz 2014, 11:34:50
Sicaklik = ds1820_read(); satırından sonra Sicaklik/=Sicaklik yazın doğru değeri göreceksiniz.
Alıntı yapılan: okay57 - 29 Temmuz 2014, 11:35:48
Yanlış yazdım şunu yazın Sicaklik/=8;
Okay hocam, çok teşekkür ederim, gösterdiğiniz kodla herşey düzeldi.Tekrar çok sağolun, beni haftalardır uğraşıp düzeltemediğim sıkıntıdan kurtardın.Ancak programın mantığını bana açıklarmısınız.Nedensıcaklık bölünüyorve 8'e eşitleniyor.Neden bu küçük eklemeyi yapmazsak düzgün çalışmıyor.Bunları anlamak istiyorum.İyi çalışmalar.
Rica ederim hocam.Onu bende çözemedim sensör devresinden kalnaklı bir şey ama.benim ki günü kurtaran bir çözüm.bu konuya açıklık getiren biri olursa iyi olur.çünkü bende merak ediyorum.
Nedenini söylüyeyim arkadaşlar ama böyle ilerlemeniz güç, datasheet okumadan proje yapıyorsunuz. Bu elektronik pratiği açısından iyi birşey ama aynı şekilde devam ederseniz 100 tane proje bitirseniz de teorik anlamda çok şey kazanmazsınız. Aynı çoğu televizyon tamircisi gibi(istisna insanlarda çok), arızayı tamir ederler ama arızanın neden kaynaklandığını bilmezler dolayısıyla aynı arıza sonra tekrar olur.
Ds18b20 default 12bit olarak sıcaklık okuyor. Sonucu 8'e bölerseniz 12 bit yerine 9 bit okursunuz ve çözünürlük 0,5 derece olacaktır, 1 derece hassasiyetle okumak isterseniz 16'ya bölebilirsiniz. Eğer İngilizce bilginiz zayıfsa kelime kelime çevirin bu esnada teknik ingilizce kelime bilginizde gelişir.
Alıntı yapılan: CLR - 30 Temmuz 2014, 15:41:40
Nedenini söylüyeyim arkadaşlar ama böyle ilerlemeniz güç, datasheet okumadan proje yapıyorsunuz. Bu elektronik pratiği açısından iyi birşey ama aynı şekilde devam ederseniz 100 tane proje bitirseniz de teorik anlamda çok şey kazanmazsınız. Aynı çoğu televizyon tamircisi gibi(istisna insanlarda çok), arızayı tamir ederler ama arızanın neden kaynaklandığını bilmezler dolayısıyla aynı arıza sonra tekrar olur.
Ds18b20 default 12bit olarak sıcaklık okuyor. Sonucu 8'e bölerseniz 12 bit yerine 9 bit okursunuz ve çözünürlük 0,5 derece olacaktır, 1 derece hassasiyetle okumak isterseniz 16'ya bölebilirsiniz. Eğer İngilizce bilginiz zayıfsa kelime kelime çevirin bu esnada teknik ingilizce kelime bilginizde gelişir.
Hocam tavsiyelerini dikkate alacağım.Teşekkürler.