سلام
میشه بگید تو این برنامه ی کانتر 0 تا 99ثانیه k چیه؟وچرا تا 500تعریف شده و من تا 1000 اش میکنم هر 2 ثانیه یه بار یکی اضافه میکنه؟؟؟
' counter 0...99 with 2 7 segment
$regfile = "m8def.dat"
$crystal = 1000000
Config Portc = Output
Config Portd = Output
Dim I As Byte
Dim J As Byte
Dim K As Word
I = 0
J = 0
K = 0
Set Portd.0
Set Portd.1
Do
For K = 0 To 500
If Portd.0 = 1 Then
If K = 100 Then
I = I + 1
Elseif I = 10 Then
I = 0
J = J + 1
Elseif J = 10 Then
J = 0
I = 0
End If
End If
Set Portd.1
Reset Portd.0
Portc = I
Waitms 1
Set Portd.0
Reset Portd.1
Portc = J
Waitms 1
Next K
Loop
End 'end program
میشه بگید تو این برنامه ی کانتر 0 تا 99ثانیه k چیه؟وچرا تا 500تعریف شده و من تا 1000 اش میکنم هر 2 ثانیه یه بار یکی اضافه میکنه؟؟؟
' counter 0...99 with 2 7 segment
$regfile = "m8def.dat"
$crystal = 1000000
Config Portc = Output
Config Portd = Output
Dim I As Byte
Dim J As Byte
Dim K As Word
I = 0
J = 0
K = 0
Set Portd.0
Set Portd.1
Do
For K = 0 To 500
If Portd.0 = 1 Then
If K = 100 Then
I = I + 1
Elseif I = 10 Then
I = 0
J = J + 1
Elseif J = 10 Then
J = 0
I = 0
End If
End If
Set Portd.1
Reset Portd.0
Portc = I
Waitms 1
Set Portd.0
Reset Portd.1
Portc = J
Waitms 1
Next K
Loop
End 'end program
دیدگاه