Czy wolisz polską wersję strony elektroda?
Nie, dziękuję Przekieruj mnie tam
Config Timer0 = Counter , Edge = Rising
Config Timer1 = Timer , Prescale = 64
Config Timer2 = Timer , Prescale = 1
Dim Czasstr As String * 4
Dim P As Word
Dim Czas As Single
If Cos =1 Then
Incr P
Cls
Lcd "Pomiar"
End If
If Cos = 0 Then
Czas = P / 10
Czasstr = Fusing(czas , " 0.0")
Lcd ": " ; Czasstr ; " s"
Wait 10
Czas = 0
P = 0
End If
sliver1 napisał:znalazlem taki kod jak ponizej ale wynik jest przeklamany. nadal szukam rozwiazania. macie jakies pomysly??Dim Czasstr As String * 4 Dim P As Word Dim Czas As Single If Cos =1 Then Incr P Cls Lcd "Pomiar" End If If Cos = 0 Then Czas = P / 10 Czasstr = Fusing(czas , " 0.0") Lcd ": " ; Czasstr ; " s" Wait 10 Czas = 0 P = 0 End If
Config Timer0 = Counter , Edge = Rising
Config Timer1 = Timer , Prescale = 64
Config Timer2 = Timer , Prescale = 1
$crystal=8000000
Config Lcd ........... {tu sobie dopisz co trzeba}
Config Timer1 = Timer, Prescale = 1024
Dim Wsk As Bit
Dim L_sek As Byte
Dim L_min As Byte
Dim L_god As Byte
Load Timer1, 7812
On Timer1 Sekunda
Enable Timer1
Enable Interrupts
wsk=1
Start Timer1
Do
Lcd "Godzina:" ; L_god ; ":" ; L_min ; ":" ; L_sek
Loop
Sekunda:
Load Timer1, 7812
If Wsk = 1 Then Incr L_sek
If L_sek>59 Then
L_sek=0 : Incr L_min
End If
Return
If L_min>59 Then
L_min=0 : Incr L_god
End If
If L_god>23 Then L_god=0
Return
