Üdvözlet Mindenkinek!
Akadt egy problémám, kérném a segítségeteket, mit rontok el.
A feladat annyi lenne, hogy a lookup utasítással be kéne tegyek egy long típusú változóba egy binárisan leírt számot, aztán ki kéne maszkolnom a 24. bitet, és az eredménytől függően egy bit-es változót 1-be vagy 0-ba állítani.
A maszkolással szerintem nincs gond, az adat felvételével már annál inkább. bármilyen formában is teszem a "data" után a vizsgálandó számot (hex, bin, dec.), a lookup után a változóba nem az kerül, mint aminek szerintem kéne. (Szimulátorban néztem), mintha nem azt az adatot venné fel.
Ha valakinek van 5lete kérem ossza meg velem.
(Lehet, hogy csak matekból vagyok 0a:))
$regfile = "m8def.dat"
$crystal = 20000000
Dim Adat_1 As Long
Dim Adat_2 As Long
Dim A As Bit
Adat_1 = Lookup(0 , Adat)
Adat_2 = Adat_1 And &H800000 ' &b00000000100000000000000000000000
If Adat_2 <> 0 Then A = 1 Else A = 0
Print A
End 'end program
Adat:
Data &B00000000101010101010101010101010
[/code]
Lookup probléma
Próbáld így:
Idézet a Help Data:
Difference with QB
Integer and Word constants must end with the %-sign.
Long constants must end with the &-sign.
Single constants must end with the !-sign.
Double constants must end with the #-sign.
Kód: Egész kijelölése
$regfile = "m8def.dat"
$crystal = 20000000
$sim
Dim Adat_w As Word
Dim Adat_1 As Long
Dim Adat_2 As Long
Dim A As Bit
Adat_1 = Lookup(0 , Adat)
Adat_2 = Adat_1 And &H800000 ' &b00000000100000000000000000000000
If Adat_2 <> 0 Then A = 1 Else A = 0
Print A
End 'end program
Adat:
Data &B00000000101010101010101010101010&
Idézet a Help Data:
Difference with QB
Integer and Word constants must end with the %-sign.
Long constants must end with the &-sign.
Single constants must end with the !-sign.
Double constants must end with the #-sign.
kb. 5x néztem meg a helpben, de efölött átsiklottam!