ايران ويج

صفحه‌ها: 1 2 3

کد: 
$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) مابین ساعت و دقیقه روشن بشه چیکار کنم

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

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

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

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

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

کد 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 هم روشن باشه و همزمان با اون هم خاموش بشه!!!

کد: 
'======================================================================

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

'======================================================================

نشد که بشه

کار نکرد

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

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

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

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

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

(۱۷-اردیبهشت-۱۳۹۲, ۱۲:۵۹:۲۱)رسول نوشته است: [ -> ]مگه میشه وصلش نکرده باشم

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

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

الله اکبر!
چه سوتی دادم Biggrin

این قسمتشو تغییر بده

کد: 
If Comm = &B1101 Then

   If Pinb.0 = 1 Then

      Set Portd.7

   End If

End If

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

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

(۱۷-اردیبهشت-۱۳۹۲, ۱۶:۲۸:۰۱)رسول نوشته است: [ -> ]شما هم خوب بلدی سوت بزنی ها

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

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

صفحه‌ها: 1 2 3

behzady

رسول

behzady

رسول

behzady

رسول

behzady

رسول

behzady

رسول

behzady