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 >
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)
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 >