RS232 - 2 ve 3 nolu pinleri birleştirmek

[barisertekin]

Ben bazı kaynaklardan o şekilde okumuştum. Peki nedendir kodda bir hata var mı?

[kudretuzuner]

Merhaba
Linkteki dosyaları direk C:\  ye yükleyip bir bakar mısınız?C# bilmiyorum ama VB.Net 2008 express edition ile yazdım.Anlaşılmayan bir yer olursa tekrar yazın lütfen
     ComboBox1.Text = "COM3"olarak değiştirin.profilik rs232 com3 olarak ayarlamış.Ben de aynı ürünü kullanıyorum.
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ComboBox1.Text = "COM3"
        SerialPort1.PortName = ComboBox1.Text
    End Sub
End Classhttps://rapidshare.com/files/2694894761/ANTRAK_bt.rar"

[kudretuzuner]

ttps://rapidshare.com/files/2694894761/ANTRAK_bt.rar"

[barisertekin]

Programınızın sağlamlık kontrolünü mü yapmamı istiyorsunuz ?
Öyleyse test edebilirim.
Değilse bendeki program sağlam. Pic'e gönderebiliyorum. Ama pic'te serin komutlarımda bir yanlışlık var.

[LukeSkywalker]

http://www.mediafire.com/?ab49g8ylz3upcng

Yukarıda bir deneme programı var. Yeni yazdım onunla da deneyebilirsin..

[barisertekin]

http://www.mediafire.com/?ab49g8ylz3upcng

Yukarıda bir deneme programı var. Yeni yazdım onunla da deneyebilirsin..

Dostum senin programada baktım sağlam. Veri gönderme sorunumuzu çözdük.
Giden veriyi pic'te okuyamıyorum sadece.



TRISA=1    ;A portu giriş olarak ayarlandı.
TRISB=0    ;B portu çıkış olarak ayarlandı.

GIRIS VAR PORTA.1

PCDATA   VAR     BYTE 'PC'den gelen veri
BASLA:
SerIn2 GIRIS,396,[PCDATA]
;SerIn GIRIS, N2400, PCDATA
GOTO BASLA

Veri okuma kodumda bir hatam var mı acaba ?

PIC 16F628A kullanıyorum. RA1 pini(18 nolu bacak).
HSERIN kullanmadığım için RX( 7 ) , TX( 8 ) nolu bacakları kullanmak zorunda değilim sanırım.

[kudretuzuner]

Merhaba
kullandığınız USB to rs232 çeviriciden ben de PIC'ten PC'ye data aktaramadım.Üstünde com port olan bir PC'de denemenizi tavsiye ederim.Not:verdiğim bilgiler uygulanmıştır.Problemsiz çalışmaktadır.Linkte PC'den PIC'e  PIC'ten PC'ye dataların yollanması vardır.Kolay gelsin.
https://rapidshare.com/files/1748553531/ANTRAK_PIC_to_PC.rar

[LukeSkywalker]

PIC BASIC' e hakim değilim. C olsaydı yardım edebilirdim.  Basic'ten anlayan arkadaşlar yardımcı olacaklardır...

[barisertekin]

include "modedefs.bas"

@ DEVICE pic16F628A
@ DEVICE pic16F628A, WDT_on
@ DEVICE pic16F628A, PWRT_ON
@ DEVICE pic16F628A, PROTECT_OFF
@ DEVICE pic16F628A, MCLR_OFF
@ DEVICE pic16F628A, INTRC_OSC_NOCLKOUT

DEFINE LCD_DREG          PORTB 'LCD data bacakları PortB de bağlı
DEFINE LCD_DBIT         4  'LCD data bacakları 4. bitten başlıyor
DEFINE LCD_EREG          PORTB 'LCD Enable Bacağı PortB de bağlı
DEFINE LCD_EBIT         3 'LCD Enable Bacağı 3. bite bağlı
DEFINE LCD_RWREG       PORTB 'LCD RW Bacağı PortB de bağlı
DEFINE LCD_RWBIT        2 'LCD RW Bacağı  2. bite bağlı
DEFINE LCD_RSREG      PORTB 'LCD RS Bacağı PortB de bağlı
DEFINE LCD_RSBIT      1 'LCD RS bacağı 1. Bite bağlı
DEFINE LCD_BITS         4 'LCD 4 bit  olarak bağlı
DEFINE LCD_LINES      2 'LCD 2 sıra olarak çalışıyor.

TRISA=%11111111 'A portu giriş olarak ayarlandı.
TRISB=0         'B portu çıkış olarak ayarlandı.

PCDATA   VAR     BYTE 'PC'den gelen veri
PCDATA = 0
LOW PORTB.2  'RW bacağı ekrana yazmaya imkan vermek  için LOW yapıldı.
PAUSE 200  ' LCD nin kullanıma hazır hale  gelebilmesi için gerekli süre

LCDOUT $FE,1  ' Ekran silindi

'-----ANA PROGRAM BAŞLANGICI ------
BASLA:

;SerIn2 PORTA.1,396,[PCDATA]
Serin PORTA.1, N2400, [PCDATA]      ; olay burda kopuyor sanırım. Pinin ucundaki led yanıp sönüyor veri geldiğine dair. Ama okuyamıyorum.
;LCD Çalışıyor test ettim. Sorun orda olamaz. PCDATA = 3 dediğimde 3 yazıyor.

LCDOUT $FE,1  ' Ekran silindi
LCDOUT " OKUNAN = ",#PCDATA  'ilk satıra Sayı Desimal olarak yazıldı
LCDOUT $FE,$C0,"ONDALIK = ",BIN PCDATA 'ikinci sıraya Binary olarak yazıldı.
PAUSE 100 '100 ms   bekliyoruz.
PCDATA = 0


goto BASLA
END

[coco]

Resimden baktımda Pc Şaseyi boarda bağlamamışsın

[barisertekin]

Resimden baktımda Pc Şaseyi boarda bağlamamışsın

RS 232'nin 5 nolu bacağını diyorsan toprağa bağladım.
Resimde 5 nolu bacak yazıyor. Bir daha bakabilir misin?

Buradan sonrasını picbasic kategorisi altında sorsam daha iyi olacak.
Link : https://www.picproje.org/index.php/topic,35085.0.html