Teknoloji Haberleri
Aşağı Git
Tüm Forumlar
Donanım / Hardware
Elektronik ve Mekanik
Elektronik
Pic Basic i Hex e donduruyorum ama pic e yazamıyorum
Bu konudaki kullanıcılar: 1 misafir
5
Cevap 278
Tıklama 0
Öne Çıkarma
Cevap 278
Tıklama 0
Öne Çıkarma
1. sayfa
-
Pic Basic i Hex e donduruyorum ama pic e yazamıyorum
| 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) |
Bu mesaja 1 cevap geldi.
|
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 >
Bu mesaja 1 cevap geldi.
| Çok saol yardımların için |
1. sayfa
DH Mobil uygulaması ile devam edin.
Mobil tarayıcınız ile mümkün olanların yanı sıra, birçok yeni ve faydalı özelliğe erişin.
Gizle ve güncelleme çıkana kadar tekrar gösterme.
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
DH forumlarında vakit geçirmekten keyif alıyor gibisin ancak giriş yapmadığını görüyoruz.
Üye Ol Şimdi DeğilÜye olduğunda özel mesaj gönderebilir, beğendiğin konuları favorilerine ekleyip takibe alabilir ve daha önce gezdiğin konulara hızlıca erişebilirsin.
< Bu mesaj bu kişi tarafından değiştirildi uguryildirm_tr -- 29 Ekim 2007; 20:18:41 >