Witam,
W chwili obecnej mam napisany odczyt godziny z PFC i zastanawiam się nad tematem ustawiania godziny. Jak napisać funkcję która po wybraniu w terminalu np. b zapyta mnie o wprowadzeni godziny w formie GG:MM:SS
Pozdrawiam
Jarek
W chwili obecnej mam napisany odczyt godziny z PFC i zastanawiam się nad tematem ustawiania godziny. Jak napisać funkcję która po wybraniu w terminalu np. b zapyta mnie o wprowadzeni godziny w formie GG:MM:SS
Pozdrawiam
Jarek
$regfile = "attiny2313.DAT"
$crystal = 8000000
$baud = 9600
Config Sda = Portb.6
Config Scl = Portb.7
Declare Sub Odczyt_rtc(sekundy As Byte , Minuty As Byte , Godziny As Byte)
Declare Sub Zapis_rtc(sekundy1 As Byte , Minuty1 As Byte , Godziny1 As Byte)
Dim Znak_chr As Byte
Dim Sekundy As Byte
Dim Minuty As Byte
Dim Godziny As Byte
Dim Sekundy1 As Byte
Dim Minuty1 As Byte
Dim Godziny1 As Byte
' Program główny
'--------------------------------------
Do
Znak_chr = Inkey()
If Znak_chr = 65 Then
Print Chr(12)
Call Odczyt_rtc(sekundy , Minuty , Godziny)
Print "Zegar wewnetrzny (HH:MM:SS) " ; Godziny ; ":" ; Minuty ; ":" ; Sekundy
End If
If Znak_chr = 66 Then
Print Chr(12)
Licznik1 = 0
Licznik2 = 0
Sekundy1 = 12
Minuty1 = 12
Godziny1 = 14
Call Zapis_rtc(sekundy1 , Minuty1 , Godziny1)
End If
Loop
End
' koniec program główny
'--------------------------------------------------------
Sub Odczyt_rtc(sekundy As Byte , Minuty As Byte , Godziny As Byte)
I2cstart
I2cwbyte 160
I2cwbyte 2
I2cstart
I2cwbyte 161
I2crbyte Sekundy , Ack
I2crbyte Minuty , Ack
I2crbyte Godziny , Nack
I2cstop
Sekundy = Makedec(sekundy)
Minuty = Makedec(minuty)
Godziny = Makedec(godziny)
End Sub
Sub Zapis_rtc(sekundy1 As Byte , Minuty1 As Byte , Godziny1 As Byte)
Sekundy1 = Makebcd(sekundy1)
Minuty1 = Makebcd(minuty1)
Godziny1 = Makebcd(godziny1)
I2cstart
I2cwbyte 160
I2cwbyte 0
I2cwbyte 6
I2cstop
I2cstart
I2cwbyte 160
I2cwbyte 2
I2cwbyte Sekundy1
I2cwbyte Minuty1
I2cwbyte Godziny1
I2cstop
End Sub