↑ ↓

seri iletisim de rx tx hafizada tutma

Başlatan teknikelektronikci, 03 Ekim 2008, 02:03:14

Yazdır
Aşağı git
Kullanıcı Eylemleri

teknikelektronikci

03 Ekim 2008, 02:03:14
merhaba arkadaslar

yapacagim rfid  ugulamasinin kod kisminda bir problemim var simdi bu modül asagidaki gibi seri rx tx pininden kodlar gönderiyor ve sanirim bir seferde gönderiyor (daha modülü alip deneyemedim) simdi bu durumda benim bu kodlari karsialstirabilmem icin hafizada tutmam gerek ama bu durumda ard arda gelecegi icin "rcreg" de en son bilg kalmis olacak acaba benim bu durumda ne yapmam gerek? eeproma kayit yapma haricinde

yardimci olursaniz memnun olurum simdiden tesekürler


Ey Türk istikbalinin evlâdı! İşte, bu ahval ve şerâit içinde dahi, vazifen; Türk İstiklâl ve Cumhuriyetini kurtarmaktır! Muhtaç olduğun kudret, damarlarındaki asil kanda mevcuttur!

f_machine

#1
03 Ekim 2008, 02:50:56
gelen verileri bi diziye atacaksın o bi string olacak,
sonra bu stringi doğru olanla kıyaslayacaksın...

Maxim

#2
03 Ekim 2008, 11:04:32
sanırım aradığınız şey aşağıdaki örnek kodun içinde var ,

Include "Proton18_20.inc"

    Symbol RX9D = RCSTA.0  ' 9th bit of received data (Can be parity bit) (Usart 1)
    Symbol OERR = RCSTA.1  ' Overrun Error (Usart 1)
    Symbol FERR = RCSTA.2  ' Framing Error (Usart 1)
    Symbol ADDEN = RCSTA.3 ' Address Detect Enable (Usart 1)
    Symbol CREN = RCSTA.4  ' Continuous Receive Enable (Usart 1)
    Symbol SREN = RCSTA.5  ' Single Receive Enable (Usart 1)
    Symbol RX9 = RCSTA.6   ' 9-bit Receive Enable (Usart 1)
    Symbol SPEN = RCSTA.7  ' Serial Port Enable (Usart 1)

    Symbol TMR1IP = IPR1.0 ' TMR1 Overflow Interrupt Priority bit
    Symbol TMR2IP = IPR1.1 ' TMR2 to PR2 Match Interrupt Priority bit
    Symbol CCP1IP = IPR1.2 ' CCP1 Interrupt Priority bit
    Symbol SSPIP = IPR1.3  ' Master Synchronous Serial Port Interrupt Priority bit
    Symbol TX1IP = IPR1.4  ' USART1 Transmit Interrupt Priority bit
    Symbol RC1IP = IPR1.5  ' USART1 Receive Interrupt Priority bit
    Symbol ADIP = IPR1.6   ' A/D Converter Interrupt Priority bit
    Symbol PSPIP = IPR1.7  ' Parallel Slave Port Read/Write Interrupt Priority bit

    Symbol RBIF = INTCON.0   ' RB Port Interrupt Flag
    Symbol INT0IF = INTCON.1 ' INT0 External Interrupt Flag
    Symbol TMR0IF = INTCON.2 ' TMR0 Overflow Interrupt Flag
    Symbol RBIE = INTCON.3   ' RB Port Change Interrupt Enable
    Symbol INT0IE = INTCON.4 ' INT0 External Interrupt Enable
    Symbol T0IE = INTCON.5   ' TMR0 Overflow Interrupt Enable
    Symbol PEIE = INTCON.6   ' Peripheral Interrupt Enable
    Symbol GIEL = INTCON.6   ' Low priority peripheral interrupt
    Symbol GIE = INTCON.7    ' Global Interrupt Enable
    Symbol GIEH = INTCON.7   ' Enable all high priority interrupts
    
    Symbol IPEN = RCON.7     ' priority interrupts enable
    Symbol TMR1IF = PIR1.0    ' TMR1 Overflow Interrupt Flag
    Symbol RCIF = PIR1.5     ' EUSART Receive Interrupt Flag
    Symbol TMR1IE = PIE1.0
    Symbol RCIE = PIE1.5
    
     
     Dim FSR0_SAVE As Word SYSTEM
     Dim FSR0Reg As FSR0L.Word
     Dim USART_STATE As Byte
     
     Dim INTTEMP As Byte
     Symbol BufferSize = 5
     Dim RXBuffer[BufferSize] As Byte
     Dim IntCounter As Byte
     Dim DataCollected As Bit
     Dim Index As Byte
     Dim NOTE_COUNTER As Word SYSTEM     ' Determines when the pin is toggled                  
     Dim NOTE As Word SYSTEM             ' Determines the pitch of the note                    
     Dim TIMER1 As TMR1L.Word            ' Combine TMR1L/TMR1H as a 16-bit word

; Usart interrupt state

     Symbol UsartStateSync1 = 0
     Symbol UsartStateSync2 = 1
     Symbol LoadArray = 2

; Sync states
     
     Symbol SYNCA = "5"
     Symbol SYNCB = "6"
     
     
     ALL_DIGITAL = true

     Clear
     
     GoTo Main


    ON_INTERRUPT USART_RECEIVE               'Point serial rx interrupt 
    ON_LOW_INTERRUPT GoTo NOTE_INT          ' Point interrupts to our interrupt handler
    
USART_RECEIVE:
    FSR0_SAVE = FSR0Reg

    If OERR = 1 Then GoTo USART_ERR 	                    ' Check for usart overrun
    INTTEMP = RCREG 
    
    Select USART_STATE                                      ' WORK OUT WHAT STAGE WE ARE IN
    
    Case UsartStateSync1 
                                                
         If INTTEMP = SYNCA Then Inc USART_STATE            ' CHECK FOR SYNCA
    Case UsartStateSync2
         If RCREG = SYNCB Then                              ' CHECK FOR SYNCB
            Inc USART_STATE
         Else                                               ' GOT IT SO INC STATE
            Clear USART_STATE                               ' NOT RIGHT SO RESET THE STATE
         EndIf 

'---- START LOADING THE DATA IN FROM NOW ON ----------------
                                                                
     Case LoadArray 
         RXBuffer[IntCounter] = RCREG                       ; Load the buffer with the latest data           
         Inc IntCounter                                     ; Inc the counter 
         If IntCounter >= BufferSize Then                   ; When we have RXed enough data reset
            Clear USART_STATE
            DataCollected = 1
            IntCounter = 0
         EndIf
     Case Else
         Clear USART_STATE
     EndSelect
      


USART_RECEIVE_EXIT:
    FSR0Reg = FSR0_SAVE
    retfie fast                         ' Exit the interrupt
     
USART_ERR:
     WREG = RCREG
     CREN = 0
     CREN = 1
     USART_STATE = 0    
     GoTo USART_RECEIVE_EXIT
INT#ENDH:
;-----------------------------------------------------------     
'----[INTERRUPT HANDLER]------------------------------------------------
      NOTE_INT:
      Context SAVE
      RESET_BANK
      Clear TMR1IF
      TIMER1 = 65490                      ' Load TMR1 with a preset value
      Inc NOTE_COUNTER                    ' Increment the note counter        
      If NOTE_COUNTER >= NOTE Then        ' Is it time to toggle the pin ?
      PORTC = PORTC ^ 2                   ' Toggle pin PORTB.0
      Clear NOTE_COUNTER                  ' Clear the note counter
      EndIf
      Clear TMR1IF                        ' Clear TMR1 interrupt flag
      Context Restore     



Main:

    GoSub Initialise
    IPEN = 1
    PEIE = 1
    TMR1IP = 0
    RC1IP = 1
    GIEH = 1
    GIEL = 1
    TMR1IF = 0
    RCIF = 0
    TMR1IE = 1
    RCIE = 1
    Output PORTC.1                ' Make PORTC.1 and output (for O-Scope)
    Clear NOTE_COUNTER            ' Reset the note counter
    T1CON = %00000001             ' Turn on TIMER1, with a 1:1 prescaler
    Clear PIR1.0                  ' Clear TMR1 interrupt flag
    Set PIE1.0                    ' Enable TMR1 as peripheral interrupt source   
   

    NOTE = 500                   ' Reset the note to play
    While 1 = 1
          If DataCollected = 1 Then
              Repeat
                HRSOut RXBuffer[Index]
                Inc Index
              Until Index = BufferSize
              DataCollected = 0
              Index = 0
          EndIf
    Wend  

Initialise:

'---- SET UP THE USART -------------------------------------

	RCSTA = $90								                    ' Enable USART receive
	TXSTA = $24								                    ' Set USART parameters
	SPBRG = 129								                    ' Set baud rate to 9600 (20MHz clock)           
    Return

teknikelektronikci

#3
03 Ekim 2008, 12:00:24
merhabalar cevaplar icin tesekürler

f_maschine hocam bu string dediginiz  

dim veri[8] as byte
rcgeg str veri            10 bayt datayi verinin icine yükle
seklinde oluyor öyle değilmi ? yani köseli parantez v.s yani bir nevi picin raminemi almis oluoruz?


maxiboost hocam

verdiginiz örnek biraz komplex geldi ama yinede inceleyecegim eger  yukarida aciklamasini yaptigim oluorsa sanirim o benim isimi görecek tekrar ilginiz icin tesekürler kolay gelsin
Ey Türk istikbalinin evlâdı! İşte, bu ahval ve şerâit içinde dahi, vazifen; Türk İstiklâl ve Cumhuriyetini kurtarmaktır! Muhtaç olduğun kudret, damarlarındaki asil kanda mevcuttur!

bymrz

#4
03 Ekim 2008, 13:00:52
ID var byte[11]

main:



repeat
until PIR1.5=1
gelen=RCREG:RCREG=0
if gelen=STX then

 repeat
 until PIR1.5=1
 gelen=RCREG:RCREG=0

    if gelen=$06 then
    goto okundu
    else
    if gelen=$03 then
    goto okunmadı_tekrar
    endif
    endif



endif


okundu:
 repeat
 until PIR1.5=1
 gelen=RCREG ' önemseme gelen bilgi=31h
 RCREG=0
           for i=0 to 3
           REPEAT
           UNTIL PIR1.5=1
           gelen=RCREG:RCREG=0
           ID=gelen
           next
.
.
.
.
goto main






okunmadı:
goto main






Bu arada STX ve ETX in ne oldugunu tam bilmiyorum. onu da seri gelen bi data oldugunu varsaydım..

Ama mantığını bu şekilde anlarsın umarım... Ufak tefek eksiklerde olabilir. hızlı bişekilde yazdım...

teknikelektronikci

#5
03 Ekim 2008, 20:07:16
hocam cok sagolun cok güzel bir örnek olmuş bunu gelistirerek yapmaya calisacam tekrar sagolun eger bitirebilirsem rfid projesini burada yayinlarim ama tabi öncesinde brenner 8 isini bitirmem gerek :D  herkeze kolay gelsin
Ey Türk istikbalinin evlâdı! İşte, bu ahval ve şerâit içinde dahi, vazifen; Türk İstiklâl ve Cumhuriyetini kurtarmaktır! Muhtaç olduğun kudret, damarlarındaki asil kanda mevcuttur!

bymrz

#6
03 Ekim 2008, 21:28:38
@teknikelektronikci

Projeyi bitiridiğinde bizimle paylaşırsan bizde çok memnun oluruz. Yine bi sıkıntı ile karşılaşırsan yine burdan yardımcı oluruz..

Bu arada bence de brenner işini bi bitirelim  :D  :D

harbi ne oldu o yaa:)

Bu arada bu RFID projesine başladığında haber ver, beraber ilerleyelim istersen...

bu arada yazdığım kodlardan önce usartı kurmayı ve gerekli registerları ayarlamayı da unutma..

teknikelektronikci

#7
05 Ekim 2008, 12:17:57
merhaba hocam seveseve paylasirim ilginiz icin sagolun brenner malzeme engeline takilior malzemeci daha dogrusu. usrat icin kesmeleri aktif yaptim ben bu rfid yi hirsiz alarm da kullanacam yani şifre yerine rfid olcak simdilik yazdigim kodlar asagida ama rf id kismi daha yok onun yerine id ler birer harf oluor 

'****************************************************************
'*  Name    : UNTITLED.BAS                                      *
'*  Author  : [select VIEW...EDITOR OPTIONS]                    *
'*  Notice  : Copyright (c) 2008 [select VIEW...EDITOR OPTIONS] *
'*          : All Rights Reserved                               *
'*  Date    : 08.09.2008                                        *
'*  Version : 1.0                                               *
'*  Notes   :                                                   *
'*          :                                                   *
'****************************************************************
Device = 18F452
XTAL = 20
ALL_DIGITAL TRUE
TRISA=%00000000
TRISB=%11111111
TRISC=%10000100
TRISD=%00000000
TRISE=%00000000

PORTA=%00000000
PORTB=%00000000
PORTC=%00000000
PORTD=%00000000
PORTE=%00000010


PORTB_PULLUPS 0
LCD_DTPORT = PORTD
LCD_RSPIN = PORTE.2
LCD_ENPIN = PORTE.0
LCD_RWPIN = PORTE.1
LCD_CS1PIN = PORTC.1
LCD_CS2PIN = PORTC.0
LCD_TYPE = GRAPHIC
INTERNAL_FONT = On
FONT_ADDR = 0

Symbol SCL=PORTC.3
Symbol SDA=PORTC.4

Symbol RBIF = INTCON.0 ' Port Change Interrupt Flag
Symbol INTF = INTCON.1 ' GP2/INT External Interrupt Flag
Symbol T0IF = INTCON.2 ' TMR0 Overflow Interrupt Flag
Symbol GPIE = INTCON.3 ' Port Change Interrupt Enable
Symbol INTE = INTCON.4 ' GP2/INT External Interrupt Enable
Symbol T0IE = INTCON.5 ' TMR0 Overflow Interrupt Enable
Symbol PEIE = INTCON.6 ' Peripheral Interrupt Enable
Symbol GIE  = INTCON.7  ' Global Interrupt Enable

Symbol RC1IE =PIE1.5
Symbol RC1IF =PIR1.5

Symbol BUZZER PORTA.2

;RBIF=0
GPIE=0
GIE=1
PEIE=1
RC1IE=1


RCSTA = $90 ' Enable serial port & continuous receive
TXSTA = $24 ' Enable transmit, BRGH = 1
SPBRG = 129 ' 9600 Baud @ 20MHz, 0,16%

Declare HSER_SPBRG 129 ' 9600 Baud @ 20MHz, 0,16%
Declare HSER_CLROERR 1 ' Clear overflow automatically
Declare HSERIAL_BAUD 9600
Declare HSERIAL_RCSTA 90
Declare HSERIAL_TXSTA 24
Declare HSERIAL_CLEAR On 
WARNINGS = OFF

Dim  Xpos           As Byte
Dim  Ypos           As Byte
Dim  Addr           As Word
Dim  char           As Byte

Dim B0              As Byte     
Dim B1              As Byte
Dim B2              As Byte

Dim ALARM_AKTIF_DURUMU     As Byte
Dim ID              As Byte



;----------------ANA PROGRAM BURADAN ITIBAREN BASLIYOR----------------
On Interrupt seri_kesme
STAND_BY_RESIM:
    Cls
    For Ypos = 0 To 7
    For Xpos = 0 To 126
    Addr = (Ypos*127)+Xpos
    char = CRead cizgi+Addr
    LCDWrite Ypos,Xpos,[char]
    Next  Ypos
    Next  Xpos

STAND_BY: 
    If RC1IF=1 Then GoSub seri_kesme 
    GoSub STAND_BY_YAZI
    GoSub ID_SEC
    If ALARM_AKTIF_DURUMU=1 Then GoTo ALARM_AKTIF_DISARI_CIK
    Print At 0,0   
    For B2= 0 To 20
   LookUp B0, ["*** KARTINIZI GOSTERDIKTEN SONRA 60 SN ICINDE DISARIYA CIKINIZ***              ?"], B1
    If B1 = "?" Then B0=0
    Print  B1
    B0 = B0 + 1
    Next B2
    DelayMS 300
    B0 = B0 - 20
    GoTo STAND_BY
    

STAND_BY_YAZI:

    Print At 2,0,"**ALARM AKTIF DEGIL**"
    Print At 4,1,"KARTINIZI GOSTERINIZ"
    Print At 5,8," VE",DEC4 ID
    Print At 6,4," 60 SN ICINDE"
    Print At 7,3,"DISARIYA CIKINIZ"
    Return
    

ID_SEC:

Select ID
Case "S"
ALARM_AKTIF_DURUMU=1
Case "I"
ALARM_AKTIF_DURUMU=1
Case "N"
ALARM_AKTIF_DURUMU=1
Case "E"
ALARM_AKTIF_DURUMU=1
Case "M"
ALARM_AKTIF_DURUMU=1
EndSelect
Return




ALARM_AKTIF_DISARI_CIK: 
Cls
GoSub SES_DOGRU 
Print At 2,3,"ALARM AKTIF",DEC4 ID
Print At 3,1,"5 SN ICINDE DISARIYA"
Print At 4,5," CIKINIZ"
DelayMS 5000
GoSub EKRAN_TEMIZLE
GoTo ALARM_AKTIF

EKRAN_TEMIZLE:
Cls
DelayMS 500
Return

ALARM_AKTIF:
Print At 4,2,"ALARM AKTF"
If PORTB.0=1 Then ALARM
If PORTB.1=1 Then ALARM
If PORTB.2=1 Then ALARM
If PORTB.3=1 Then ALARM
GoTo ALARM_AKTIF


ALARM:
reset





SES_DOGRU:
Sound BUZZER,[100,20]
Sound BUZZER,[105,20]
Return

SES_YANLIS:
Sound BUZZER,[100,20]
Sound BUZZER,[90,20]
Return



Resume
Disable 
seri_kesme:  
RC1IE=0
PEIE=0 
GIE=0    
RCSTA =%10010000
;DelayMS 100
ID=RCREG
GoTo exit
exit:
RCREG=0
RC1IE=1 
PEIE=1 
GIE=1 
;Return
;Enable 
Resume  

Include "cizgi.INC"
Include "FONT.INC"
End


usart da bir problem yok simdilik genel yapiyi olusturuorum ayrica bu dtmf ollarak telefonlarida arayacak

bu arada sormak istedigim string ile array ayni sey oluor öyle değilmi? :)
Ey Türk istikbalinin evlâdı! İşte, bu ahval ve şerâit içinde dahi, vazifen; Türk İstiklâl ve Cumhuriyetini kurtarmaktır! Muhtaç olduğun kudret, damarlarındaki asil kanda mevcuttur!

teknikelektronikci

#8
05 Ekim 2008, 12:20:47
bu arada rfid modülü 45 ytl ye petmakdan alacam acaba daha uygun fiyatli ble varmi :S
Ey Türk istikbalinin evlâdı! İşte, bu ahval ve şerâit içinde dahi, vazifen; Türk İstiklâl ve Cumhuriyetini kurtarmaktır! Muhtaç olduğun kudret, damarlarındaki asil kanda mevcuttur!

teknikelektronikci

#9
02 Eylül 2013, 14:51:14
Alıntı yapılan: teknikelektronikci - 05 Ekim 2008, 12:17:57
merhaba hocam seveseve paylasirim ilginiz icin sagolun brenner malzeme engeline takilior malzemeci daha dogrusu. usrat icin kesmeleri aktif yaptim ben bu rfid yi hirsiz alarm da kullanacam yani şifre yerine rfid olcak simdilik yazdigim kodlar asagida ama rf id kismi daha yok onun yerine id ler birer harf oluor 

'****************************************************************
'*  Name    : UNTITLED.BAS                                      *
'*  Author  : [select VIEW...EDITOR OPTIONS]                    *
'*  Notice  : Copyright (c) 2008 [select VIEW...EDITOR OPTIONS] *
'*          : All Rights Reserved                               *
'*  Date    : 08.09.2008                                        *
'*  Version : 1.0                                               *
'*  Notes   :                                                   *
'*          :                                                   *
'****************************************************************
Device = 18F452
XTAL = 20
ALL_DIGITAL TRUE
TRISA=%00000000
TRISB=%11111111
TRISC=%10000100
TRISD=%00000000
TRISE=%00000000

PORTA=%00000000
PORTB=%00000000
PORTC=%00000000
PORTD=%00000000
PORTE=%00000010


PORTB_PULLUPS 0
LCD_DTPORT = PORTD
LCD_RSPIN = PORTE.2
LCD_ENPIN = PORTE.0
LCD_RWPIN = PORTE.1
LCD_CS1PIN = PORTC.1
LCD_CS2PIN = PORTC.0
LCD_TYPE = GRAPHIC
INTERNAL_FONT = On
FONT_ADDR = 0

Symbol SCL=PORTC.3
Symbol SDA=PORTC.4

Symbol RBIF = INTCON.0 ' Port Change Interrupt Flag
Symbol INTF = INTCON.1 ' GP2/INT External Interrupt Flag
Symbol T0IF = INTCON.2 ' TMR0 Overflow Interrupt Flag
Symbol GPIE = INTCON.3 ' Port Change Interrupt Enable
Symbol INTE = INTCON.4 ' GP2/INT External Interrupt Enable
Symbol T0IE = INTCON.5 ' TMR0 Overflow Interrupt Enable
Symbol PEIE = INTCON.6 ' Peripheral Interrupt Enable
Symbol GIE  = INTCON.7  ' Global Interrupt Enable

Symbol RC1IE =PIE1.5
Symbol RC1IF =PIR1.5

Symbol BUZZER PORTA.2

;RBIF=0
GPIE=0
GIE=1
PEIE=1
RC1IE=1


RCSTA = $90 ' Enable serial port & continuous receive
TXSTA = $24 ' Enable transmit, BRGH = 1
SPBRG = 129 ' 9600 Baud @ 20MHz, 0,16%

Declare HSER_SPBRG 129 ' 9600 Baud @ 20MHz, 0,16%
Declare HSER_CLROERR 1 ' Clear overflow automatically
Declare HSERIAL_BAUD 9600
Declare HSERIAL_RCSTA 90
Declare HSERIAL_TXSTA 24
Declare HSERIAL_CLEAR On 
WARNINGS = OFF

Dim  Xpos           As Byte
Dim  Ypos           As Byte
Dim  Addr           As Word
Dim  char           As Byte

Dim B0              As Byte     
Dim B1              As Byte
Dim B2              As Byte

Dim ALARM_AKTIF_DURUMU     As Byte
Dim ID              As Byte



;----------------ANA PROGRAM BURADAN ITIBAREN BASLIYOR----------------
On Interrupt seri_kesme
STAND_BY_RESIM:
    Cls
    For Ypos = 0 To 7
    For Xpos = 0 To 126
    Addr = (Ypos*127)+Xpos
    char = CRead cizgi+Addr
    LCDWrite Ypos,Xpos,[char]
    Next  Ypos
    Next  Xpos

STAND_BY: 
    If RC1IF=1 Then GoSub seri_kesme 
    GoSub STAND_BY_YAZI
    GoSub ID_SEC
    If ALARM_AKTIF_DURUMU=1 Then GoTo ALARM_AKTIF_DISARI_CIK
    Print At 0,0   
    For B2= 0 To 20
   LookUp B0, ["*** KARTINIZI GOSTERDIKTEN SONRA 60 SN ICINDE DISARIYA CIKINIZ***              ?"], B1
    If B1 = "?" Then B0=0
    Print  B1
    B0 = B0 + 1
    Next B2
    DelayMS 300
    B0 = B0 - 20
    GoTo STAND_BY
    

STAND_BY_YAZI:

    Print At 2,0,"**ALARM AKTIF değil**"
    Print At 4,1,"KARTINIZI GOSTERINIZ"
    Print At 5,8," VE",DEC4 ID
    Print At 6,4," 60 SN ICINDE"
    Print At 7,3,"DISARIYA CIKINIZ"
    Return
    

ID_SEC:

Select ID
Case "1"
ALARM_AKTIF_DURUMU=1
Case "2"
ALARM_AKTIF_DURUMU=1
Case "3"
ALARM_AKTIF_DURUMU=1
Case "4"
ALARM_AKTIF_DURUMU=1
Case "5"
ALARM_AKTIF_DURUMU=1
EndSelect
Return




ALARM_AKTIF_DISARI_CIK: 
Cls
GoSub SES_DOGRU 
Print At 2,3,"ALARM AKTIF",DEC4 ID
Print At 3,1,"5 SN ICINDE DISARIYA"
Print At 4,5," CIKINIZ"
DelayMS 5000
GoSub EKRAN_TEMIZLE
GoTo ALARM_AKTIF

EKRAN_TEMIZLE:
Cls
DelayMS 500
Return

ALARM_AKTIF:
Print At 4,2,"ALARM AKTF"
If PORTB.0=1 Then ALARM
If PORTB.1=1 Then ALARM
If PORTB.2=1 Then ALARM
If PORTB.3=1 Then ALARM
GoTo ALARM_AKTIF


ALARM:
reset





SES_DOGRU:
Sound BUZZER,[100,20]
Sound BUZZER,[105,20]
Return

SES_YANLIS:
Sound BUZZER,[100,20]
Sound BUZZER,[90,20]
Return



Resume
Disable 
seri_kesme:  
RC1IE=0
PEIE=0 
GIE=0    
RCSTA =%10010000
;DelayMS 100
ID=RCREG
GoTo exit
exit:
RCREG=0
RC1IE=1 
PEIE=1 
GIE=1 
;Return
;Enable 
Resume  

Include "cizgi.INC"
Include "FONT.INC"
End


usart da bir problem yok simdilik genel yapiyi olusturuorum ayrica bu dtmf ollarak telefonlarida arayacak

bu arada sormak istedigim string ile array ayni sey oluor öyle değilmi? :)
Ey Türk istikbalinin evlâdı! İşte, bu ahval ve şerâit içinde dahi, vazifen; Türk İstiklâl ve Cumhuriyetini kurtarmaktır! Muhtaç olduğun kudret, damarlarındaki asil kanda mevcuttur!
Yazdır
Yukarı git
Kullanıcı Eylemleri
▲