دوستان به نظر شما ارایه تو Bascom چجوری تعریف میشه؟
من از این دستور استفاده کردم ولی برنامه error میده....
للطفا راهنماییی کنید.
من از این دستور استفاده کردم ولی برنامه error میده....
للطفا راهنماییی کنید.
کد:
$regfile = "M32def.dat"
$crystal = 8000000
'---------------------
Config Portb.0 = Output
Const A = -1
Const B = 1
Const I = 1
Dim K As Word , S1 As Word , S2 As Word , S3 As Word , S4 As Word
Dim S5 As Word
'Dim N As Integer , H As Long , A As Word , B As Word
Dim X(100) As Long
X(1) = 0
K = 1
For K = 0 To N
S1 = 0.1 * A
S2 = S1 + I
S3 = S2 * X(k)
S4 = 0.1 * B
S5 = S3 + S4
X(k + 1) = S5
If S5 > 0.7 Then
Set Portb.0
End if
Next K
End
oo:
(درس و مشق فعالیتمو تو انجمن کم کرده)
دیدگاه