سلام دوستان
سوال در باره label دستور loockupداشتم
یه نگاهی به این کد بیندازید
[code=qbasic]
$regfile = "m8def.dat"
$crystal = 8000000
Dim A(20) As Byte
Dim B As Byte
Do
B = Lookup(b , A0)
Loop
A0:
Data 11 , 22 , 22 , 33
A1:
A2:
A3:
[/code]
اگرlabel a0 a1 a2زیاد باشن در حدود 1000تا یعنی ما باید 1000تا دستور loock upرو بنویسیم یعنی راه ساده تری نیست؟
سوال در باره label دستور loockupداشتم
یه نگاهی به این کد بیندازید
[code=qbasic]
$regfile = "m8def.dat"
$crystal = 8000000
Dim A(20) As Byte
Dim B As Byte
Do
B = Lookup(b , A0)
Loop
A0:
Data 11 , 22 , 22 , 33
A1:
A2:
A3:
[/code]
اگرlabel a0 a1 a2زیاد باشن در حدود 1000تا یعنی ما باید 1000تا دستور loock upرو بنویسیم یعنی راه ساده تری نیست؟
دیدگاه