Etepic

'****************************************************************
'*  Name    : UNTITLED.BAS                                      *
'*  Author  : [select VIEW...EDITOR OPTIONS]                    *
'*  Notice  : Copyright (c) 2019 [select VIEW...EDITOR OPTIONS] *
'*          : All Rights Reserved                              *
'*  Date    : 31.12.2019                                        *
'*  Version : 1.0                                              *
'*  Notes  :                                                  *
'*          :                                                  *
'****************************************************************

@ __config _BODEN_ON & _BOREN_ON & _CP_ON & _PWRTE_ON & _WDT_ON & _LVP_OFF & _MCLRE_OFF & _INTRC_OSC_NOCLKOUT  

 
DEFINE OSC 4        
CMCON=7
PORTB = %00000011
TRISB = %11111100
PORTB = %00000011  
TRISA=%0000000 
INTCON=0
OPTION_REG=%10001111

SEGMENT        VAR Byte
DONGU_CIKIS    VAR BYTE 
INDEX          VAR BYTE
SURULEN_BITLER VAR BYTE
DIGIT_DEGER    VAR BYTE
SEGMENT_CIKISA VAR BYTE

EKRAN_DEGERI  VAR WORD

NOKTA_YAK      VAR BIT
''' sürülmek istenen GRID çıkışları için, datasheet'den bakınız 2- Address command setting 
GRID_0 CON $C0  ; %11000000 GRID1 çıkış adresi  
GRID_1 CON $C1  ; %11000001 GRID2 çıkış adresi 
GRID_2 CON $C2  ; %11000010 GRID3 çıkış adresi  
GRID_3 CON $C3  ; %11000011 GRID4 çıkış adresi
GRID_4 CON $C4  ; %11000100 GRID4 çıkış adresi
GRID_5 CON $C5  ; %11000101 GRID4 çıkış adresi  

''' Display ışığı degerleri, bakınız datasheet 3- Display control 
DISP_ISIK_MAX  CON $8F    ; %10001111    ( Işık Full )
DISP_ISIK_OFF  con $87    ; %10000111    ( Işık Off  )
DISP_ISIK_1_16  CON $88    ; %10001000    ( Işık  1/16 )
DISP_ISIK_2_16  CON $89    ; %10001001    ( Işık  2/16 )
DISP_ISIK_4_16  CON $8A    ; %10001010    ( Işık  4/16 )
DISP_ISIK_10_16 CON $8B  ; %10001011    ( Işık 10/16 )
DISP_ISIK_11_16 CON $8C  ; %10001100    ( Işık 11/16 )
DISP_ISIK_12_16 CON $8D  ; %10001101    ( Işık 12/16 )
DISP_ISIK_13_16 CON $8E  ; %10001110    ( Işık 13/16 )
DISP_ISIK_14_16 CON $8F  ; %10001111    ( Işık 14/16 )

''''  Segmentlere ait bit ler. 
'  seg_x CON %ngfedcba  
SEG_A CON %00000001
SEG_B CON %00000010
SEG_C CON %00000100
SEG_D CON %00001000
SEG_E CON %00010000
SEG_F CON %00100000
SEG_G CON %01000000
SEG_N CON %10000000

'''' değişik karakterler için segment atamaları
'  CHAR_ As %ngfedcba 
CHAR_B_A CON %01110111  ''' Karakter büyük A 
CHAR_K_A CON %01011111  ''' Karakter kücük a 
CHAR_K_B CON %01111100  ''' Karakter kücük b 
CHAR_B_C CON %00111001  ''' Karakter büyük C
'  CHAR_ CON %ngfedcba  
CHAR_K_C CON %01011000  ''' Karakter kücük c 
CHAR_K_D CON %01011110  ''' Karakter kücük d 
CHAR_B_E CON %01111001  ''' Karakter büyük E 
CHAR_K_E CON %01111011  ''' Karakter kücük e  
CHAR_B_F CON %01110001  ''' Karakter büyük F
'  CHAR_ CON %ngfedcba 
CHAR_B_H CON %01110110  ''' Karakter büyük H
CHAR_B_I CON %00000110  ''' Karakter büyük I
CHAR_B_J CON %00001110  ''' Karakter büyük J
CHAR_B_L CON %00111000  ''' Karakter büyük L
CHAR_K_N CON %01010100  ''' Karakter kücük n
CHAR_U_O CON %01100011  ''' Karakter ustte o 
CHAR_A_O CON %01011100  ''' Karakter altta o 
CHAR_B_P CON %01110011  ''' Karakter büyük P  
'  CHAR_ CON %ngfedcba 
CHAR_K_R CON %01010000  ''' Karakter kücük r
CHAR_K_T CON %01111000  ''' Karakter kücük t
CHAR_B_U CON %00111110  ''' Karakter büyük U 
CHAR_K_U CON %00011100  ''' Karakter kücük u
CHAR_B_Y CON %01101110  ''' Karakter büyük Y

symbol CLK=PORTB.0
symbol DIO=PORTB.1
PAUSE 500

clearwdt 

    GoSub aydinlik_ayari  
    ''' isis de "ışık" olarak farkedilmeyebilir. 
    ''' display Pinlerini skop ile gözlemek fikir verebilir.    
    
    GoSub oto_ilerlemeyi_kur
'-------------------------------BAŞLANGIÇ------------------------------------------------    
BASLA:
    clearwdt    
    ''' segment test yapalım
    GoSub segment_test
  
    ''' rakam ekranlayalım, ekranlayacağımız değer
    For ekran_degeri = 0 To 4000
'        ekran_degeri = 4000
        GoSub gonderim_x_hane        
 
            PAUSE 1
    
        CLEARWDT
    Next
    

    
GoTo basla
''''''''''    

'''''''''''
SEGMENT_GONDER:
    surulen_bitler = segment
    
BITLERI_ITELE:            ''' surulen_bitler değerini gönderen dongu    

    SHIFTOUT DIO,CLK,0,[SURULEN_BITLER]
    
    Low CLK          ;  
    While DIO =1
      CLEARWDT
    Wend
    High CLK
    Low CLK
Return

''''''''''''
''' data gönderimi başlıyor
START_VER:
    CLEARWDT
    High CLK
    High DIO
    Low DIO

Return

'' data gönderimi bitti.    
STOP_VER:
    CLEARWDT
    Low CLK
    Low DIO
    High CLK
    High DIO
    
Return


''''''''
SEGMENT_DEGERI_AL:
    CLEARWDT
    LookUp digit_deger, [$3F,$06,$5B,$4F,$66,$6D,$7D,$07,$7F,$6F,$00],segment ; 0-9 ve Blank (10 degeri)
    
    ''' digitin noktası yakılacak ise 
    If nokta_yak = 1 Then
        segment.7 = 1          ''' ilgili biti setle
        nokta_yak = 0
    EndIf
        
Return

''''''''''''''''
GONDERIM_X_HANE:
    ''' Gönderim başlıyor bildirgesi START pulse i
    GoSub start_ver
    
    ''' Gösterime Hangi haneden başlayacağız  
    GoSub ilk_hane_ne

    ''' Kaç hane sürecek isek digitleri almak gerek.
    ''' 4 hane
    For index = 3 To 0 Step -1
        ''' ekran_degeri değişkeninin digitlerini sırayla al 5, 2, 3, 4 gibi
        digit_deger =ekran_degeri DIG index
        
        '''' gereksiz segmentler sönsün denirse
        GoSub gereksizse_sondur
        
        
        ''' alınan digite göre segment bitleri nedir, oradan dönen deger degişkeni "segment" dir
        GoSub segment_degeri_al      ''' segment bitleri oluşturuldu                
        GoSub segment_gonder        ''' mcu pininden TM1637 'ye sür.
    Next
    
    ''' Gönderim bitti STOP pulse i
    GoSub stop_ver
Return    
''''''''''

GEREKSIZSE_SONDUR: 
    If ekran_degeri < 10 Then                  ''' 0 - 9 arası degerde, 3 hane boşa yanar
        If index > 0 Then digit_deger = 10      ''' 10 değeri blank yapar
    EndIf
    
    If ekran_degeri < 100 Then                  ''' 0 - 9 arası degerde, 3 hane boşa yanar
        If index > 1 Then digit_deger = 10      ''' 10 değeri blank yapar
    EndIf
    
    If ekran_degeri < 1000 Then                  ''' 0 - 9 arası degerde, 3 hane boşa yanar
        If index > 2 Then digit_deger = 10      ''' 10 değeri blank yapar
    EndIf
Return 
'''''''''''''


SEGMENT_TEST:

    segment = %00000001 ''' seg_a
    
SEGMENT_TEST_2:
  
    ''' Gönderim başlıyor bildirgesi START pulse i
    GoSub start_ver
    
    ''' Gösterime Hangi haneden başlayacağız  
    GoSub ilk_hane_ne

    ''' Kaç hane sürecek isek digitleri almak gerek.
    ''' 4 hane
    For index = 3 To 0 Step -1
        GoSub segment_gonder        ''' mcu pininden TM1637 'ye sür.
    Next

    ''' Gönderim bitti STOP pulse i
    GoSub stop_ver
  PAUSE 300
    CLEARWDT
    
    segment = segment << 1
    If segment > 0 Then segment_test_2

Return


;;;;;;;;;;;;;;;
''''''''''' KURULUM KOMUTLARI
ILK_HANE_NE:
    '''' Hangi haneden başlıyacağız gösterime, onu bildirelim    
    ''' Haneleri Peşisıra süreceğimiz için ilk haneyi hangisinden versin
    ''' oto ilerlemeli gösterim için ilk hane hangisi olsun
    surulen_bitler = GRID_0        ''' soldan 1.      
'    surulen_bitler = GRID_3      ''' soldan 3. gibi.
    ''' GRID_x 'lerin sayı değerleri en üstte, sabitlerin atamalarında 
    GoSub bitleri_itele            ''' hane bildirimi komutunu TM1637 ye sür
Return


''' bakınız 1- Data command setting bölümünde 
''' Address adding mode setting sekmesi 2 deger içerir
    ''' Automatic address adding. Değeri %01000000 = $40
    ''' Fix address              Değeri %01000100 = $44
OTO_ILERLEMEYI_KUR:
    GoSub START_VER    ''' data gönderimi başlıyor
    ''' Automatic address adding. Otomatik adres ekleme için değer %01000000 = $40
    surulen_bitler = %01000000        ''%01000000 adresi oto arttırma,  bakınız 1- Data command setting 
    GoSub bitleri_itele    '' datayı gönder, Command datası olarak 1 byte gönderir
    GoSub stop_ver        '' data gönderimi bitti.
Return

'''
AYDINLIK_AYARI:
    ''' Display ışık seviyesi ayarı
    GoSub start_ver
    surulen_bitler = DISP_ISIK_MAX    ''' max ışık
'    surulen_bitler = DISP_ISIK_off  ''' ışık kapalı
'    surulen_bitler = DISP_ISIK_12_16  ''' 12/16
    GoSub BITLERI_ITELE
    GoSub stop_ver
Return    
    

    include "16f648.bas"  
    
    SDA VAR PORTB.5
    SCL VAR PORTB.4
    include "Ds3231.bas"
    
    DIO VAR PORTA.3
    CLK VAR PORTA.2 
    include "Tm1637.bas"
    TmDuty  = 2   'display parlaklık
    TmDp    = 0   '2 nokta üstüste
    TmOn    = 1   'Panel aktif
    
    symbol Ld       = porta.4    'LOW Ld = led yanar
    symbol Bz       = porta.0    'LOW Bz = Buzzer çalar
    Symbol Tr       = Portb.3    'High Tr= Transistör çalışır.
        
    Bt1  var Portb.0
    Bt2  var Portb.6
    Bt3  var Portb.7