Ü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

Pic Basic i Hex e donduruyorum ama pic e yazamıyorum

Sıcak Fırsatlarda Tıklananlar
Editörün Seçtiği Fırsatlar
Daha Fazla
Bu Konudaki Kullanıcılar: Daha Az
1 Misafir - 1 Masaüstü
5 sn
6
Cevap
0
Favori
276
Tıklama
Daha Fazla
İstatistik
  • Konu İstatistikleri Yükleniyor
Konuya Özel
0 oy
Öne Çıkar
Cevapla
Sayfa: 1
Giriş
Mesaj
  • arkadaslar pic Basic le yazilmiş bir kodu hex e döndüroyorum ama yazmıyor pic e yardim edermisiniz
    Kodlar




    '****************************************************************
    '* Name : UNTITLED.BAS *
    '* Author : ETE-EROLEC-ERO] *
    '* Notice : Copyright (c) 2007 *
    '* : All Rights Reserved *
    '* Date : 25.10.2007 *
    '* Version : 1.0 *
    '* Notes : *
    '* : *
    '****************************************************************
    device 16f628a
    xtal = 4
    all_digital = True

    '@ DEVICE pic16F628a
    '@ DEVICE pic16F628a, WDT_ON
    '@ DEVICE pic16F628a, PWRT_ON
    '@ DEVICE pic16F628a, PROTECT_OFF
    '@ DEVICE pic16F628a, MCLR_OFF
    '@ DEVICE pic16F628a, INTRC_OSC_NOCLKOUT

    Dim evet As Byte
    Dim hayir As Byte
    Dim tusa As Byte '$3D
    Dim tusb As Byte '$3E
    Dim temp As Byte
    Dim fark As Byte
    Dim sonuc As Bit
    Dim yes As Byte
    Dim no As Byte
    Dim i As Byte
    Symbol yesil = PORTA.7
    Symbol kirmizi = PORTA.6
    TRISA = %00001111
    TRISB = %11111111
    PORTA = %00001111
    PORTB = %11111111
    OPTION_REG.7 = 0
    CMCON = 7
    'delayms 100
    yesil = 0
    kirmizi = 0
    yes = 0
    no = 0
    basla:
    'For i = 0 To 3
    If PORTA.0 = 0 Then
    yes = yes + 1
    Endif

    'Next i
    If PORTA.0 = 0 Then
    yes = yes + 1 'BAŞKANIN İLAVE EVET OYU
    Endif
    If PORTB.0 = 0 Then
    yes = yes + 1
    Endif
    If PORTB.1 = 0 Then
    yes = yes + 1
    Endif
    'For i = 2 To 7
    If PORTB.3 = 0 Then
    no = no + 1
    Endif
    'Next i
    If PORTB.2 = 0 Then
    no = no + 1 'BAŞKANIN İLAVE HAYIR OYU
    Endif
    If yes > no Then
    yesil = 1
    kirmizi = 0
    Endif
    If no > yes Then
    kirmizi = 1
    yesil = 0
    Endif

    If yes = no Then
    yesil = 0
    kirmizi = 0
    Endif

    'delayms 100
    Goto basla



    < Bu mesaj bu kişi tarafından değiştirildi uguryildirm_tr -- 29 Ekim 2007; 20:18:41 >







  • kullandığın program ve programcın neler???
  • proton ile yazıldı ve programcım jdm
  • Hocam eğer Hex'e döndürüyorsan kodun kurallara uygun demektir ve sorun yok.
    Eğer Hex'i pic'e atarken JMD programcının uyarı ledi yanıyorsa Bilgisayardan programlayıcıya veri gönderiliyor demektir ve bu durumda sorun 2 şeyden olabilir.
    1-Programlayıcının belli bir kısmı(Uyarıcı led'den sonrası) hasar görmüş olabilir
    2-Mikrodenetleyicin bozuk olabilir.
    Benim aklıma başka bir sorun olacağı gelmiyor.Bunun ikisinden biridir.
    Çözüm olarakta başka bir denetleyici ve başka bir programlayıcı kullanabilirsin.(Bir denersin.Sorun hangisinde bulursun)
  • http://rapids-hare.com/files/66219745/PoeK.HEX.html -------->Hex dosyası
    Umarım işine yarar.



    < Bu mesaj bu kişi tarafından değiştirildi strom -- 30 Ekim 2007; 12:31:07 >
  • Çok saol yardımların için
    • Yapay Zeka’dan İlgili Konular
    A'Dan Z'ye FRONTPAGE
    20 yıl önce açıldı
    Python ile telegram botu yazarken aldığım hata
    2 yıl önce açıldı
    magic pdf compressor 2.11-- yardım ???
    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