open/close CD

Alles over het toepassen van API en DLL's in Liberty BASIC

Moderator: anthonio

open/close CD

Berichtdoor anthonio » di mei 22, 2007 10:54 pm

heb ik even zelf geschreven in 15minuten.

Code: Selecteer alles
nomainwin

WindowWidth = 100
WindowHeight = 100

button #main.b, "Open/close", [Open], UL, 10, 10, 70, 25
open "Open/close CD" for window as #main
#main, "trapclose [Quit]"
wait

[Open]

if opencd = 1 then
    r$ = mciSendString$("set CDAudio door closed")
    r$ = mciSendString$("CloseCD")
    opencd = 0
else
    r$ = mciSendString$("set CDAudio door open")
    r$ = mciSendString$("OpenCD")
    opencd = 1
end if
wait

[Quit]

if opencd = 1 then
r$ = mciSendString$("set CDAudio door closed")
r$ = mciSendString$("CloseCD")
end if
close #main
end

Function mciSendString$(s$)
    buffer$ = space$(1024) + chr$(0)
    calldll #winmm, "mciSendStringA", s$ as ptr,_
        buffer$ as ptr, 127 as long, 0 as long, r as long
    if r>0 then
        mciSendString$ = "error"
    else
        mciSendString$ = buffer$
    end if
End Function
Dual boot: Ubuntu 8.04 - WIndows XP SP2 (via VMware) - Windows Vista 32bit - Toshiba L40 - Dual Core @ 1,76GHz - 1GB RAM - 120GB HDD - VDSL Connection
Avatar gebruiker
anthonio
 
Berichten: 281
Geregistreerd: zo mei 20, 2007 9:58 pm

Berichtdoor Gordon » di mei 22, 2007 11:20 pm

Antonio,

Knap werk!
Ik kan dit heel goed gebruiken.
Misschien nu niet direct, maar later vast wel.

Waar heb jij de informatie over mciSendString$
eigenlijk vandaan?

Gordon.
Avatar gebruiker
Gordon
Site Admin
 
Berichten: 684
Geregistreerd: zo mei 22, 2005 12:50 am

Berichtdoor anthonio » di mei 22, 2007 11:29 pm

bedankt.
lol, is het normaal niet de bedoeling dat gebruikers vragen stellen aan de admin en niet andersom :P
http://www.andreavb.com/API_List.html

is een VB site.
je hoeft enkel de VB te vertalen naar LB.
niet dat ik iets van VB ken maar het trekt er goed op.
handige site trouwens.
Dual boot: Ubuntu 8.04 - WIndows XP SP2 (via VMware) - Windows Vista 32bit - Toshiba L40 - Dual Core @ 1,76GHz - 1GB RAM - 120GB HDD - VDSL Connection
Avatar gebruiker
anthonio
 
Berichten: 281
Geregistreerd: zo mei 20, 2007 9:58 pm

Berichtdoor Gordon » zo mei 27, 2007 12:43 pm

Antonio,

VB vertalen naar LB gaat mij niet zo eenvoudig af.
Knap werk van jouw.

Gordon
Avatar gebruiker
Gordon
Site Admin
 
Berichten: 684
Geregistreerd: zo mei 22, 2005 12:50 am

Berichtdoor anthonio » zo mei 27, 2007 6:12 pm

lol, mij ook niet maar wat uit proberen kan nooit kwaad en uiteindelijk kom je er wel.
met andere woorden vragen over API's laat maar komen :D
Dual boot: Ubuntu 8.04 - WIndows XP SP2 (via VMware) - Windows Vista 32bit - Toshiba L40 - Dual Core @ 1,76GHz - 1GB RAM - 120GB HDD - VDSL Connection
Avatar gebruiker
anthonio
 
Berichten: 281
Geregistreerd: zo mei 20, 2007 9:58 pm

Berichtdoor Gordon » zo mei 27, 2007 9:02 pm

Weet waar je aan begint.
Iemand vroeg mij eens tachtig functie uit één DLL
voor hem om te zetten in voor LB duidelijke taal.
De meeste waren recht toe recht aan.
Maar er zaten enkele problematische tussen (struct vind ik
gecompliceerd)

Ik vroeg weer een goede vriend (ook een LB fan) van mij
en die heeft ze bijna allemaal (misschien intussen allemaal)
omgezet.

Gordon.
Avatar gebruiker
Gordon
Site Admin
 
Berichten: 684
Geregistreerd: zo mei 22, 2005 12:50 am

Berichtdoor anthonio » zo mei 27, 2007 9:06 pm

die struct is idd een taaie om onder de knie te krijgen.
oefening baart kunst
Dual boot: Ubuntu 8.04 - WIndows XP SP2 (via VMware) - Windows Vista 32bit - Toshiba L40 - Dual Core @ 1,76GHz - 1GB RAM - 120GB HDD - VDSL Connection
Avatar gebruiker
anthonio
 
Berichten: 281
Geregistreerd: zo mei 20, 2007 9:58 pm

Berichtdoor Gordon » zo mei 27, 2007 9:15 pm

anthonio schreef:die struct is idd een taaie om onder de knie te krijgen.
oefening baart kunst


Voor het goede zou ik misschien veel meer VB of C moeten doen.
Microsoft vertaald de functies uit zijn DLL's alleen in C en voor VB
Jammer dat VB niet door te worstelen is.

Ik heb een hekel aan die wirwar van declaraties en types van types enz.
Maar misschien zal ik er maar aan moeten geloven.

Gordon
Avatar gebruiker
Gordon
Site Admin
 
Berichten: 684
Geregistreerd: zo mei 22, 2005 12:50 am


Keer terug naar API/DLL

Wie is er online

Gebruikers op dit forum: Geen geregistreerde gebruikers. en 1 gast

cron