ceptelefonu Androıd ile 16f628a kontrolü

Elektronikprojem · 07 Nisan 2018, 09:34:30

Celal. Haberleşme hızın iki taraf için de aynı mıdır. Bluetooth modülü ve pic tarafı da aynı olmalı.

Celal Kızılırmak · 07 Nisan 2018, 18:23:50

9600 putty programında düzgün geliyor ama pic
De abuk subuk. Çözemedim

Elektronikprojem · 08 Nisan 2018, 15:07:58

abuk subuktan kastın nedir programı koyabilirsen yardımcı olabiliriz.

Celal Kızılırmak · 08 Nisan 2018, 16:05:13

Hocam kodlar mesut25 hocanın konu başında verdiği kodlarla aynı o yüzden gerek duymadım yazmaya

Elektronikprojem · 08 Nisan 2018, 19:51:49

kesme kısmını aşağıdaki gibi yapıp denermisin


DISABLE
INT:
HSERIN ,10,ZIPLA,[dec BILGI]
  GELDI=1
ZIPLA:
TEMP=RCREG
RESUME 
ENABLE

Celal Kızılırmak · 08 Nisan 2018, 21:26:21

Hocam şu an evde değilim en kısa zamanda dönüş yapacağım.
Birde hocam telefondan proteusda bulunan bluetooth modülüyle terminal editörüne bilgi gönderiyorm ondada veriler abuk subuk geliyo bilginiz olsn istedim.
Birde bir sorum olacak putty programından modülün bilgilerini öğrenemiyorm at komutlarını yazamıyorm resimlerini gönderirim

Celal Kızılırmak · 10 Nisan 2018, 19:14:48

Hocam bilgisayardan verileri gönderiyorm gayet güzel gidiyor ama telefonda abuk subuk.

KMD · 13 Nisan 2018, 18:35:38

bıde bunu dene cep tel.herhanhı bır verı gonderdıgınde pıc telefona aldıgı verıyı tekrar yolluyor ve arkasından OK gonderıyor.
;====================================================
Device=16F877A
XTAL=20
ALL_DIGITAL TRUE
TRISA = 0:PORTA=0
TRISB = 0:PORTB=0
PORTC =0:PORTC=0
PORTD = 0:PORTD=0
PORTE = 0:PORTE=0
Declare HSERIAL_BAUD=9600
Declare HSERIAL_RCSTA=%10010000
Declare HSERIAL_TXSTA=%00100000

Declare LCD_TYPE alpha
Declare LCD_LINES 2
Declare LCD_INTERFACE 4
Declare LCD_DTPIN PORTB.4
Declare LCD_RSPIN PORTB.0
Declare LCD_ENPIN PORTB.1
Dim AL As Byte
Dim B As Byte
DelayMS 1000
;=====================================
HSerOut["OK",10,13]
BASLA:
Print At 1,1," PIC ILE PC "
;=======================================
HSerIn 500,ATLA,[AL] ;VERI ALINDIMI ALONMADI ISE VERI YOK ETIKETINE DALLAN

Print At 2,2,"VERI ALINDI" ;VERI ALINDI ISE VERI ALINDI YAZ EKRANA
DelayMS 1000 ;1000 MS BEKLE
Print At 2,2," " ;IKINCI SATIRI SIL

Print At 2,2,AL ;IKINCI SATIRA VERIYI YAZ
DelayMS 500 ;500 MS BEKLE
HSerOut[AL,10,13] ;ALDIGIN VERIYI TERMINALE GERI YOLLA SONRA 1 SATIR SAGI IN
DelayMS 4000 ;4000 MS BEKLE
HSerOut["OK",10,13] ;TERMINALE OK VERISI YOLLA
;_________________
ATLA:
Print At 2,2,"VERI YOK" ;VERI YOK ETIKETI
DelayMS 1000
Print At 2,2," "
;==============================================
GoTo BASLA
;===========================================