'*****************************************************************
'*  Dosya Adı : TSA5511-REV2.BAS                                 *
'*  Yazan     : Yunus Emre Sürücü => ElektroEmre                 *
'*  Not       : Copyright (c) 2008 All Rights Reserved           *
'*  Tarih     : 08.02.2008                                       *
'*  Versiyon  : 1.0                                              *
'*****************************************************************
'---------------------------PIC Ayarları------------------------ '
Device 16F628                                 
Config XT_OSC,PWRTE_OFF,WDT_OFF,CP_OFF 
XTAL 4                                                           '
'---------------------------LCD Ayarları-------------------------'
Declare LCD_DTPIN PORTB.0                                        '
Declare LCD_ENPIN PORTA.3                                        '
Declare LCD_RSPIN PORTB.4                                        '
Declare LCD_INTERFACE 4                                          '
Declare LCD_LINES 2                                              '
                                                                 '
Dim SAYAC1  As Byte                                              '
Dim KONTROL As Byte                                              '
Dim ADRES   As Byte                                              '
Dim FREKANS As Word                                              '
Dim TAM     As Word                                              '
Dim ONDA    As Word                                              '
Dim HESAP   As DWord                                             '
                                                                 '
Symbol ALT      = FREKANS.LowByte                                '
Symbol UST      = FREKANS.HighByte                               '
Symbol ASAGI    = PORTA.2                                        '
Symbol YUKARI   = PORTA.3                                        '
Symbol H_YUKARI = PORTA.4                                        '
Symbol SDA      = PORTA.1                                        '
Symbol SCL      = PORTA.0                                        '
                                                                 
PORTA=0  
PORTB=0                                                '
TRISA=%11100000 
TRISB=%00000000                                    '
                                                                 
DelayMS 300     
Cls   
FREKANS=2666                             
ADRES=$C2                                                        '
'For SAYAC1= $C0 To $C0 Step -1                                   '
Print At 1,1,"Designed by"                                      '
Print At 2,1,"     ElektroEmre"                              '
DelayMS 1000  
'Next                                                '
'DelayMS 1500  
'Cls                                               '
                                                                 '
'Print $FE,$48,14,17,14,4 ,28,4,28,0                            
'Print $FE,$40,1 ,3 ,29,21,29,3, 1,0                            
                                                                 '
'-------------------------ANA PROGRAM----------------------------'
ANA:                                                             '
    If ASAGI=0 Then                                                  '
        FREKANS=FREKANS-1                                                '
        DelayMS 80  
    EndIf                                               '
    If FREKANS<2666 Then                                             '
        FREKANS=2666  
    EndIf                                             '
                                                                 '
    If YUKARI=0 Then                                                 '
        FREKANS=FREKANS+1                                                '
        DelayMS 80  
    EndIf                                               '
    If FREKANS>3266 Then                                             '
        FREKANS=3266  
    EndIf                                             '
                                                                 '
    If H_YUKARI=0 Then                                               '
            FREKANS=FREKANS+20                                               '
        DelayMS 80  
    EndIf                                               '
    If FREKANS>3266 Then                                             '
        FREKANS=3266  
    EndIf                                             '
                                                                 '
HESAP=(FREKANS*50)                                               '
HESAP=HESAP+10700                                                '
TAM =HESAP/ 1000                                                 '
ONDA=HESAP//1000                                                 '
                                                                 '
Print At 1,1,"Frekans:"
Print At 1,13,0,")))"                         
Print At 2,1,DEC3 TAM,".",DEC3 ONDA," MHz"                      '
Print At 2,13,"Dr:"                                              
                                                                 '
GONDER:                                                          '
I2COUT SDA,SCL,ADRES,[UST,ALT,$8E,$00]                           '
DelayMS 40                                                       '
OKU:                                                             '
I2CIN  SDA,SCL,ADRES, [KONTROL]                                  '
    If KONTROL.6=1 Then                                              '
        KONTROL=0  
        Print At 2,9,1                                     
    Else                                                             '
        KONTROL=0  
        Print 2,16,"X"                                    '
    EndIf                                                            '
GoTo ANA                                                         '
'****************************************************************'