ceptelefonu Androıd ile 16f628a kontrolü

[mesut25]

ve ETE hocamını kodları:
[code'****************************************************************
'*  Name    : UNTITLED.BAS                                      *
'*  Author  : [select VIEW...EDITOR OPTIONS]                    *
'*  Notice  : Copyright (c) 2013 [select VIEW...EDITOR OPTIONS] *
'*          : All Rights Reserved                               *
'*  Date    : 21.10.2013                                        *
'*  Version : 1.0                                               *
'*  Notes   :                                                   *
'*          :                                                   *
'****************************************************************
@ DEVICE pic16F628A
@ DEVICE pic16F628A, WDT_ON
@ DEVICE pic16F628A, PWRT_ON
@ DEVICE Pic16F628A, BOD_OFF
@ DEVICE Pic16F628A, LVP_OFF
@ DEVICE pic16F628A, PROTECT_ON
@ DEVICE pic16F628A, MCLR_OFF
@ DEVICE pic16F628A, INTRC_OSC_NOCLKOUT
CMCON=7
DEFINE OSC 4

PORTA=0:TRISA=0
PORTB=0:TRISB=%00000010

DEFINE HSER_RCSTA 90h ' Enable serial port & continuous receive
DEFINE HSER_TXSTA 24h ' Enable transmit, BRGH = 1
DEFINE HSER_SPBRG 25  ' 9600 Baud @ 4MHz, 0,16%
DEFINE HSER_CLROERR 1 ' Clear overflow automatically


DEFINE LCD_DREG PORTB
DEFINE LCD_DBIT 4
DEFINE LCD_EREG PORTB
DEFINE LCD_EBIT 3
DEFINE LCD_RSREG PORTB
DEFINE LCD_RSBIT 0
DEFINE LCD_BITS 4
DEFINE LCD_Lines 2
DEFINE LCD_CommandUs 1500
DEFINE LCD_DataUs 50

Symbol GIE  =INTCON.7   'genel interruptları açıyor
Symbol PEIE =INTCON.6   'peripheralinterruptları açıyor
Symbol RCIE =PIE1.5     'USART Recive interrupt enable bit
Symbol RCIF =PIR1.5     'USART Receive interrupt flag bit

TEMP VAR Byte
GELDI VAR Bit
BILGI VAR Byte
SAYAC VAR Word

Pause 150
LCDOUT $FE,1
PAUSE 200
LCDOUT $FE,$80,"SISTEM ACILIYOR"
GIE=1           
PEIE=1
RCIE=1

On Interrupt GoTo KESME

BASLA:
      If GELDI=1 Then
        GELDI=0
        LCDOUT $FE,$80,"YENI BILGI GELDI"
        LCDOUT $FE,$C0,"BILGI=", Dec3 BILGI,"   "
        SAYAC=0   
      If BILGI= 097 Then
      Toggle PORTA.0
      Else
      If BILGI=098 Then
      Toggle PORTA.1
      EndIf
      EndIf
      EndIf
        
      SAYAC=SAYAC+1
      If SAYAC=30000 Then
         SAYAC=0
         LCDOUT $FE,$80,"BILGI BEKLENIYOR"
      EndIf
      GoTo BASLA
      
Disable
KESME:
      HSerIn [BILGI]
      GELDI=1
      TEMP=RCREG
      Resume
      Enable
      End
                  ]

[mesut25]

merhaba arkadaşlar hayatımıza giren androıd uygulamalar çıktıkca artık   bunun üzerine örneklerin olması ve genç arkadaşlarımızın yabancı kaynakların yerine yerli örneklerle bir adım daha ileri atıcagını düşündük ve ETE hocamızla bu uygulamayı gerçekleştirdik

uygulama cep telefonun  bluetooth  ile hc-07 bluetooth modulüne baglanarak seri  iletişim saglamak ve bu iletişim ile pıc 16f628a  kontrol etmekdir
uygulama nın devresi aslında çok basıt  modulun tx bacagını pıc16f628anın rx bacagına baglamak
önemli olan pıc seri iletişim saglayabılıcek kodları yazabılmak

onun için  bu kısmı ETE HOCAMIZ halleti  onun için burdan ona çok teşşekkür etmek isterim onun bukadar mutavazi olması sadece bir mail hemen yardım etmesi  anlatarak cevap vermesi projenın durumunu sorması ilgilenmesi ETE hocamızın yeri farklıdır teşşekkürler

androıd kısmı aslında blokları yerleştirmek kodları olamdıgı için o kodların resimlerini atıyorum

ilgilenen arkadaşların tüm sorularını elimden geldigi kadar  cevaplarım

    http://www.expkits.com/?s=urun_detay&urun=hc-07_bluetooth_modul.htm

http://www.expkits.com/pub/wd/HC-07.pdf

[mesut25]

bazı resim dosyaları uzun oldugu için atamadım kolay gelsin

[F®T]

Güzel çalışma olmuş eline sağlık.fakat android programı nasıl birşey onun hakkında bilgi verirsen daha güzel olacak.

[Mucit23]

Yakında bende ufak bir uygulama yapacam androidle ilgili.

[mesut25]

Yakında bende ufak bir uygulama yapacam androidle ilgili.

bekliyoruz çok güzel olur

[mesut25]

Güzel çalışma olmuş eline sağlık.fakat android programı nasıl birşey onun hakkında bilgi verirsen daha güzel olacak.

program appinvetör  yazılmış blokların bırleştirilmesı ile oluşturulmutur kısacası  uygulamayı ceptefona kurunca uygulamada bulunan butona basınca a karakteri gönderiyor  bunu mödül alıp pıc gönderiyor ve görev gerçekleştiriliyor

[F®T]

sen biliyosun ama bilmeyenler için daha açıklayıcı bilgi verirsen bizde öğrenmiş oluruz.mesela program nerden indirilecek.nasıl yapılacak. vs...

[mesut25]

bu projenın uygulaması uzun oldugu için atamadım mail veririsen gönderirim hemen


http://www.technopat.net/2013/05/20/app-inventor-programlamaya-giris/

burdanda yazılım editörü hakkında bilgi alabılırsin

[gogoce]

süper çalışma tebrikler ve teşekkürler

[mesut25]

{{{{{selamlar ben uygulamaya kayıt oldum fakat blokların mantığını tam anlayamadım.mesela accellemeter sensöründen bluetooth üzerinden dataları göndercem yardımcı olursan memnun olurum..}}}}}}}}}}}

arkadaşımın sorusu üzerine şu paylaşımı gerçekleşirdik  sadece x gözüküyor ama mantık aynı

[mesut25]

süper çalışma tebrikler ve teşekkürler

saolasın inşallah geliştiriiz  şimdi internet üzerinden çalışan güzel bir androit uygulaması yapmayı düşünüyorum 

[F®T]

Mesut25 x bilgisini ekranda rakam olarak nasıl yazdırıcaz.


Not :gerek kalmadı çözdüm.pek yakında accelometer.


ilk android uygulamam.

http://dosya.co/emshyrmr9rvx/deneme_(2).rar.html

ayrıca mesut25 arkadaşımıza bu uygulamadan haberdar olmamıza vesile olduğu için teşekkür ediyorum.

[mesut25]

başardıgın için sevindim   inşallah daha iyi uygulamar beklıyorum senden  başarılar...

not: yaptıgın uygulamarı .zip olarak paylaşmalısın  .rar dosyalar acılamaz  gönderdigin dosyaları bakamadım..

[F®T]

Eyvallah sagol.zip uygulamam yok.winrar kullanıyom..apk uzantılarını bu programda açıp kod olarak görebiliyozmu?