BASCOM BASİC

[muser53]

Bascom basic ile uğraşan yok mu

[O_GUNDUZ]

Sanırım yok

[muser53]

lcd+ds1302+atmega16 uygulaması
kod:

$regfile = "m16def.dat" ' specify the used micro
$crystal = 8000000 ' used crystal frequency
Ddra = 255
Declare Sub Sat
Declare Sub Write_data
Declare Sub Ds1302_write

Dim Sat As Byte , Dak As Byte , Sn As Byte
Dim Gun As Byte , Ay As Byte , Yil As Byte , Bos As Byte
Dim Wr_command As Byte
Dim Wr_byte As Byte
Rst Alias Porta.5
Dta Alias Porta.7
Clk Alias Porta.6


Locate 1 , 1
Lcd "hos geldiniz"
Wait 1
Cursor Off
Call Write_data
Call Sat
Call Sat
Cls
Do

Call Sat

Locate 1 , 1
Lcd "saat:" ; Sat ; ":" ; Dak ; ":" ; Sn
Locate 2 , 1
Lcd "tarih:" ; Gun ; ":" ; Ay ; ":" ; "20" ; Yil


Loop

End


Sub Sat

Set Rst
Ddra.7 = 1
Bos = &HBF
Shiftout Porta.7 , Clk , Bos , 2
Ddra.7 = 0
Shiftin Pina.7 , Clk , Sn , 2
Shiftin Pina.7 , Clk , Dak , 2
Shiftin Pina.7 , Clk , Sat , 2
Shiftin Pina.7 , Clk , Gun , 2
Shiftin Pina.7 , Clk , Ay , 2
Shiftin Pina.7 , Clk , Bos , 2
Shiftin Pina.7 , Clk , Yil , 2
Shiftin Pina.7 , Clk , Bos , 2
Reset Rst


Sn = Makedec(sn)
Dak = Makedec(dak)
Sat = Makedec(sat)
Gun = Makedec(gun)
Ay = Makedec(ay)
Yil = Makedec(yil)
End Sub




'*****************************************************************************
Sub Write_data

Wr_command = &H8E
Wr_byte = Makebcd(00)
Ds1302_write



Wr_command = &H8C '// YY
Wr_byte = Makebcd(10) '2010
Ds1302_write

Wr_command = &H8A '// Day
Wr_byte = &B00000100
Ds1302_write

Wr_command = &H88 '//mon
Wr_byte = Makebcd(04) '//04
Ds1302_write

Wr_command = &H86 '//dd
Wr_byte = 6 '//06
Wr_byte = Makebcd(30)
Ds1302_write

Wr_command = &H84 '// HH
Wr_byte = Makebcd(15)
Ds1302_write

Wr_command = &H82 '//MM
Wr_byte = Makebcd(15)
Ds1302_write

Wr_command = &H80 '//SS
Wr_byte = Makebcd(15)
Ds1302_write


End Sub



' var1 = MAKEDEC(var2)


'*****************************************************************************
Sub Ds1302_write


Config Porta.7 = Output

Set Rst



Shiftout Dta , Clk , Wr_command , 3

Shiftout Dta , Clk , Wr_byte , 3


Reset Rst


End Sub

[muser53]

kod çalışıyor