acilen picbasic kodlarını hexe çevirme

ertunc_26

Üye
Katılım
15 May 2011
Mesajlar
33
Puanları
1
arkadaşlar aşağıda iki tane pic basic kodu var alıcı ve verici olarak bunları hex.e çevirip pice yüklemem lazım ama yapamadım yardımcı olursanız çok sevinirim proje teslim etmem lazım.

'***************KUMANDA PIC16F628A KODU**************


CMCON = 07 ;PORTA Dijital
INCLUDE "modedefs.bas"
OPTION_REG.7 = 1 ;PORTB Pull-UP lar aktif
TRISB = %11110000
TRISA = %00000000
K VAR BYTE
K = 0
PAUSE 500
SEROUT2 PORTA.0,16780,[REP$AA\5,REP$00\5,REP$FF\5]
;Preamble + Sencron Gönderimi
ANADONGU:
IF PORTB.4 = 1 THEN K.BIT0 = 1
IF PORTB.5 = 1 THEN K.BIT1 = 1
IF PORTB.6 = 1 THEN K.BIT2 = 1
IF PORTB.7 = 1 THEN K.BIT3 = 1
SEROUT PORTA.0,N2400, [254]
SEROUT PORTA.0,N2400, [K]
SEROUT PORTA.0,N2400, [192]
PAUSE 10
K = 0
GOTO ANADONGU
;*********************************************************
;*****************ALICI PIC16F628A KODU *****************
CMCON = 07 ;PORTA Dijital
TRISB = %00000010
DEFINE HSER_RCSTA 90h
DEFINE HSER_TXSTA 20h
DEFINE HSER_BAUD 2400
DEFINE HSER_CLROERR 1
SOLILERI VAR PORTB.3
SOLGERI VAR PORTB.4
SAGILERI VAR PORTB.5
SAGGERI VAR PORTB.6
K VAR BYTE
ERRCHK VAR BYTE
PAUSE 250
ANADONGU:
HSERIN [ WAIT(254),K,ERRCHK]
SOLGERI = 0: SAGGERI = 0: SAGILERI = 0: SOLILERI = 0:
IF ERRCHK = 192 THEN ;Gelen veri doğru formatta ise
IF K.BIT0 = 1 THEN
SOLILERI = 1
ELSE
SOLILERI = 0
ENDIF
IF K.BIT1 = 1 THEN
SOLGERI = 1
ELSE
SOLGERI = 0
ENDIF
IF K.BIT2 = 1 THEN
SAGILERI = 1
ELSE
SAGILERI = 0
ENDIF
IF K.BIT3 = 1 THEN
SAGGERI = 1
ELSE
SAGGERI = 0
ENDIF
ENDIF
PAUSE 10
GOTO ANADONGU
;*********************************************************
 

Forum istatistikleri

Konular
127,950
Mesajlar
913,849
Kullanıcılar
449,596
Son üye
anilhikmet

Yeni konular

Geri
Üst