تغییر برنامه ساعت

[behzady]

کد:

$regfile = "m8def.dat"
$crystal = 4000000
Config Portd = Output
Config Portc = Output
Config Pinb.0 = Input
Config Pinb.2 = Input

Dataport Alias Portd
Comm Alias Portc


Dim A As Byte , B As Byte , C As Word , D As Word , N As Byte , M As Byte , V As Byte , T As Byte , Hh As Byte , S As Byte
Dim Aa As Byte , Bb As Byte
Declare Sub Q
Declare Sub W
Declare Sub E
Declare Sub K
Declare Sub X

Do
Call E
Call Q
Call K
If S > 59 Then
N = N + 1
S = 0
End If
If M = 6 Then
V = V + 1
M = 0
N = 0
End If
If T = 6 Then
N = 0
M = 0
T = 0
V = 0
End If
If Pinb.0 = 0 Then
Aa = 0
End If
If Pinb.2 = 0 Thrn
Bb = 0
End If
Loop
'=============================================================================
Sub K
If Aa = 0 Then
If Pinb.0 = 1 Then
Incr S
Call X
Aa = 1
End If
End If
If Bb = 0 Then
If Pinb.2 = 1 Then
N = 0
M = 0
T = 0
V = 0
S = 0
Call X
Bb = 1
End If
End If
End Sub



'========================================================================
Sub E
If N > 9 Then
N = 0
Incr M
If M > 9 Then
M = 0
Incr V
If V > 9 Then
V = 0
Incr T
If T > 9 Then
T = 0
End If
End If
End If
End If
End Sub

'======================================================================
Sub Q
Comm = &B0111 : A = N : Call W
Comm = &B1011 : A = M : Call W
Comm = &B1101 : A = V : Call W
Comm = &B1110 : A = T : Call W

End Sub
'======================================================================
Sub W
Dataport = Lookup(a , Sa)
Waitms 4
Dataport = &H00
End Sub
'========================================================================
Sub X
   For Hh = 1 To 2

   Call E
      Call Q
   Next
End Sub
'=============================================================================
Sa:
Data &B00111111 , &B00000110 , &B01011011 , &B01001111
Data &B01100110 , &B01101101 , &B01111101 , &B00000111
Data &B01111111 , &B01101111

[رسول]

یه چیز یادم رفت

اگه بخوام اون نقطه (همون H) مابین ساعت و دقیقه روشن بشه چیکار کنم

یعنی هر ثانیه رو اون نقطه وسطی با خاموش روشن شدنش نشون بده

[behzady]

تجربه نشون داده که شما پول بده نیستی تا این دفعه پولو ندی از کد خبری نیست

---

هی ...
(ما انسان های آزاده زیر بار زور نمی ریم مگر اینکه زورش خیلی پر زور باشه)

---

مشکل شرعی داره گفته باشم

[رسول]

بهزاد جونی من کلا برنامم رو به این شکل تغییر دادم :

کد php:

$regfile = "m8def.dat"
$crystal = 1000000
Config Portd = Output
Config Portc = Output
Config Pinb.0 = Input
Config Pinb.1 = Input
Config Pinb.2 = Input
Config Pinb.3 = Input

Dataport Alias Portd
Comm Alias Portc


Dim A As Byte , B As Byte , C As Word , D As Word , N As Byte , M As Byte , V As Byte , T As Byte , S As Byte
Dim Aa As Byte
Declare Sub Q
Declare Sub W
Declare Sub E
Declare Sub K


Do
Call E
Call Q
Call K

If S > 59 Then
Incr N
S = 0
End If

If N > 9 Then
N = 0
Incr M
If M > 5 Then
M = 0
Incr V
If V > 9 Then
V = 0
Incr T
Else
If T = 2 And V > 3 Then
T = 0
V = 0
Aa = 1
End If
End If
End If
End If
If Pinb.0 = 0 Then
Aa = 0
End If
Loop
'=============================================================================
Sub K
If Aa = 0 Then
If Pinb.0 = 1 Then
Incr S
Aa = 1
End If
End If
If Pinb.1 = 1 Then
N = 0
M = 0
T = 0
V = 0
S = 0
End If

Do
Loop Until Pinb.1 = 0
End Sub



'========================================================================
Sub E
If Pinb.2 = 1 Then
Incr N
End If
If N > 9 Then
N = 0
Incr M
End If
If M > 5 Then
N = 0
M = 0
End If

If Pinb.3 = 1 Then
Incr V
End If
If V > 9 Then
V = 0
Incr T
Else
If T = 2 And V > 3 Then
T = 0
V = 0
End If
End If

Do
Loop Until Pinb.2 = 0
Do
Loop Until Pinb.3 = 0
End Sub

'======================================================================
Sub Q
Comm = &B0111 : A = N : Call W
Comm = &B1011 : A = M : Call W
Comm = &B1101 : A = V : Call W
Comm = &B1110 : A = T : Call W

End Sub
'======================================================================
Sub W
Dataport = Lookup(a , Sa)
Waitms 1
Dataport = &H00
End Sub
'======================================================================
Sa:
Data &B00111111 , &B00000110 , &B01011011 , &B01001111
Data &B01100110 , &B01101101 , &B01111101 , &B00000111
Data &B01111111 , &B01101111 


فقط اون قسمت H رو که گفتم لطفا به این برنامه اضافش کن

ضمنا مثل اون H قبلی که گذاشته بودین نباشه

طوری باشه که فقط در همون لحظه ای که پالس مثبته اون پایه H هم روشن باشه و همزمان با اون هم خاموش بشه!!!

[behzady]

کد:

'======================================================================
Sub W
Dataport = Lookup(a , Sa)
If Comm = &B1101 Then
   If Pinb.0 = 1 Then
      Set Pind.7
   End If
End If
Waitms 1
Dataport = &H00
End Sub
'======================================================================

[رسول]

نشد که بشه

کار نکرد

[behzady]

پین هفت رو وصل کردی؟

---

به مدار این پست توجه بنما

[رسول]

مگه میشه وصلش نکرده باشم

اون برنامه قبلیت کار میکنه

اما اینی که جدید می خوام تغییرش بدم نه

[behzady]

مگه میشه وصلش نکرده باشم

اون برنامه قبلیت کار میکنه

اما اینی که جدید می خوام تغییرش بدم نه

الله اکبر!
چه سوتی دادم
این قسمتشو تغییر بده

کد:

If Comm = &B1101 Then
   If Pinb.0 = 1 Then
      Set Portd.7
   End If
End If

[رسول]

شما هم خوب بلدی سوت بزنی ها

خب این که شد همون قبلی

[behzady]

شما هم خوب بلدی سوت بزنی ها

خب این که شد همون قبلی

اولی بودpind.7 حالا شد portd.7 تفاوت را با ما احساس کنید