Üye Girişi
Bağlan Google+ ile Bağlan Facebook ile Bağlan
Yeni Kayıt
Tüm Forumlar
  • Tüm Forumlar
  • Donanım / Hardware
  • Elektronik ve Mekanik
  • Elektronik
  • Bu Konuda
Şimdi Ara

Proton HSERIN Kullanımı Yardım Lütfen

Sıcak Fırsatlarda Tıklananlar
Editörün Seçtiği Fırsatlar
Daha Fazla
Bu Konudaki Kullanıcılar: Daha Az
2 Misafir - 2 Masaüstü
5 sn
4
Cevap
0
Favori
1.164
Tıklama
Daha Fazla
İstatistik
  • Konu İstatistikleri Yükleniyor
Konuya Özel
0 oy
Öne Çıkar
Cevapla
Sayfa: 1
Giriş
Mesaj
  • Merhaba arkadaşlar,

    Ben yazılım yazarken Proton kullanıyorum.Takıldığım bir nokta var.12F675 ve 16F628A ile yapacağım bir devrede hardware seri giriş kullanmam lazım.12F675 verici kısım olacak,16F628A alıcı kısım olacak.Aşağıdaki kodları yazdım fakat bir türlü çalıştıramadım.Nerede yanlış yaptığımı söylermisiniz?Yada elinde HSERIN ile ilgili örnek olan varsa burada paylaşabilirmi acaba?

    VERİCİ KISIM:

    Device=12F675
    Declare XTAL=4

    Config XT_OSC , MCLRE_OFF , WDT_OFF , PWRTE_OFF , BODEN_OFF , CPD_ON

    TRISIO=%111001

    Dim GIDEN1 As Byte
    Dim GIDEN2 As Byte
    Dim GIDEN3 As Byte
    Dim GIDEN4 As Byte
    Dim GIDEN5 As Byte

    BASLA:

    If GPIO.3=0 Then
    GIDEN1=10
    GIDEN2=20
    GIDEN3=30
    GIDEN4=40
    GIDEN5=50
    SerOut GPIO.1,84,[“GONDER”,GIDEN1,GIDEN2,GIDEN3,GIDEN4,GIDEN5]
    DelayMS 10
    EndIf

    GoTo BASLA
    End



    ALICI KISIM:

    Device=16F628A
    Declare XTAL=4

    TRISA=%11100001 : PORTA=0
    TRISB=%00000011 : PORTB=0

    on_interrupt GoTo KESME
    Declare HSERIAL_BAUD = 9600
    Declare HSERIAL_RCSTA = %10010000
    Declare HSERIAL_CLEAR = On

    Declare LCD_DTPIN PORTB.4
    Declare LCD_ENPIN PORTA.3
    Declare LCD_RSPIN PORTA.2
    Declare LCD_INTERFACE 4
    Declare LCD_LINES 4
    Declare LCD_TYPE = 0
    Declare LCD_COMMANDUS = 2000
    Declare LCD_DATAUS = 50

    Symbol PEIE = INTCON.6
    Symbol GIE = INTCON.7
    Symbol RCIE = PIE1.5
    Symbol RCIF = PIR1.5
    GIE=0
    PEIE=1
    RCIE=1
    GIE=1


    Dim GELEN1 As Byte
    Dim GELEN2 As Byte
    Dim GELEN3 As Byte
    Dim GELEN4 As Byte
    Dim GELEN5 As Byte

    BASLA:

    PRINT AT 1,1,”GELEN=”,DEC2 GELEN1,DEC2 GELEN2,DEC2 GELEN3
    PRINT AT 2,1,”GELEN=”,DEC2 GELEN4,DEC2 GELEN5
    DelayMS 50

    GoTo BASLA

    HATA:
    GOTO BASLA
    Return

    KESME:
    Context SAVE
    HSerIn 1000,HATA,[WAIT (“GONDER”),GELEN1,GELEN2,GELEN3,GELEN4,GELEN5]
    DELAYMS 10
    RCIF = 0
    Context Restore
    End







  • hız uyuşmazlığı vardır



    < Bu mesaj bu kişi tarafından değiştirildi eloko -- 29 Kasım 2010; 20:26:36 >
  • İki PIC de 4 MHz kristalle çalışacak. Haberleşme hızlarıda 9600 baud a ayarlı.Ondan kaynaklanacağını pek sanmıyorum.
  • Symbol PEIE = INTCON.6
    Symbol GIE = INTCON.7
    Symbol RCIE = PIE1.5
    Symbol RCIF = PIR1.5
    GIE=0
    PEIE=1
    RCIE=1
    GIE=1

    BU kısımda yazdıklarınız doğrumu? (GIE=0 ,GIE=1 yazılmış, RCIF değer atanmamış)
    • Yapay Zeka’dan İlgili Konular
    Servo motor kontrolüde sıkıtı var lütfen yardım edin
    6 yıl önce açıldı
    LÜTFEN Acil Yardım Motor Kompresör Testi
    15 yıl önce açıldı
    Motorun yağı çok akışkan acill yardım lütfen
    13 yıl önce açıldı
    Daha Fazla Göster
    
Sayfa: 1

Benzer içerikler

- x
Bildirim
mesajınız kopyalandı (ctrl+v) yapıştırmak istediğiniz yere yapıştırabilirsiniz.
Hizmet kalitesi için çerezleri kullanabiliriz, DH'yi kullanırken depoladığımız çerezlerle ilgili veri politikamıza gözatın.
Kabul Ediyorum