Tällainen, että miten Rapid-Q:lla saisin selvitettyä Windows-version? Kokeilin vanhaa API-kutsua (Visual Basicilla ver. 2 toimii) ja uudempiakin mutta jossain tökkii, ilmeisesti se deklaraatio-osuus.
ensinnäkin Rapid-Q antaa virheilmoituksen seuraavista: (ohessa sitä vanhempaa API-juttua)
DECLARE FUNCTION GetVersion& Lib "Kernel" ()
ja
Dim vernum&, verword% -rivi tunnistusosassa aiheuttaa myös virheilmoituksen
Laitan koko tunnistusosuuden koodin tähän:
>SUB Button1Click (Sender AS QBUTTON)
'-- Enter your code here
Dim vernum&, verword%
vernum& = GetVersion&()
verword% = CInt(vernum& / &H10000)
'***** Ensteks selvitetään MS-Dos versio
A = verword% / 256: A = Mid$(Str$(A), 2, 1)
B = verword% And &HFF: B = Mid$(Str$(B), 2, 2)
'***** Sitten selvitetään Windows versio
verword% = CInt(vernum& And &HFFFF&)
C = verword% And &HFF
D = CInt(verword% / 256)
Label1.Caption = A "." B
'Label2.Caption = verword% And &HFF
Label2.Caption = C & "." & D
END SUB<
Mikä tuossa koodissa siis tökkii? Tuo Rapid-Q:han on lähestulkoon Visual Basic yhteensopiva mutta tuota juttua en saa toimimaan.
Uudempiakaan juttuja en saanut juuri jonkun deklaraatiojutun takia. Osaisko joku auttaa?
ensinnäkin Rapid-Q antaa virheilmoituksen seuraavista: (ohessa sitä vanhempaa API-juttua)
DECLARE FUNCTION GetVersion& Lib "Kernel" ()
ja
Dim vernum&, verword% -rivi tunnistusosassa aiheuttaa myös virheilmoituksen
Laitan koko tunnistusosuuden koodin tähän:
>SUB Button1Click (Sender AS QBUTTON)
'-- Enter your code here
Dim vernum&, verword%
vernum& = GetVersion&()
verword% = CInt(vernum& / &H10000)
'***** Ensteks selvitetään MS-Dos versio
A = verword% / 256: A = Mid$(Str$(A), 2, 1)
B = verword% And &HFF: B = Mid$(Str$(B), 2, 2)
'***** Sitten selvitetään Windows versio
verword% = CInt(vernum& And &HFFFF&)
C = verword% And &HFF
D = CInt(verword% / 256)
Label1.Caption = A "." B
'Label2.Caption = verword% And &HFF
Label2.Caption = C & "." & D
END SUB<
Mikä tuossa koodissa siis tökkii? Tuo Rapid-Q:han on lähestulkoon Visual Basic yhteensopiva mutta tuota juttua en saa toimimaan.
Uudempiakaan juttuja en saanut juuri jonkun deklaraatiojutun takia. Osaisko joku auttaa?
Vastaukset
Vanhimmat
Ei vielä vastauksia
Aloittaja odottaa vastauksia. Kerro oma näkemyksesi ensimmäisenä.