دوستان به نظر شما ارایه تو 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
دیدگاه