Das deutsche QBasic- und FreeBASIC-Forum

[Degolino]

wie kann ich ein laufwerk öffnen??
und zwar so das es funktionier?
ich kenne zwar schon zwei möglichkeiten, aber die gehen nicht

[Sebastian]

[Jojo]

[Degolino]

ne weist ich nehm c4 dann gehts schneller

[Mao]

Du willst dein Problem gelöst haben. Schön und gut.
Aber wenn du dann nur was nicht ernst-gemeintes auf einen nicht-ernst-gemeinten Beitrag postest, obwohl du etwas bzgl. des Problems gefragt wurdest - das kann ich dann einfach nicht verstehen...
_________________
Eine handvoll Glück reicht nie für zwei.
--

[Manuel]

Kumpel, wir können nicht gedankenlesen oder meditieren, um herauszufinden, WAS du schon probiert hast^^. Schreib mal welche(s)

• Betriebssystem
  
• Q(uick)-/FreeBasic-Version
  
• Laufwerk (CD, Diskette...)
  

Du hast und was du schon probiert hast, dann können wir (hoffentlich) helfen... Bei so wenig Infos leider nicht...
_________________
DL Walk (Denkspiel) | DL Malek (Denkspiel) | DL Warrior (ASCII-Adventure) | DL Sokodos (Sokoban-Klon)
---
www.astorek.de.vu

[Degolino]

Ich habe XP
Qbasic version 1.1
Und ausprobiert habe ich das:

DECLARE FUNCTION lowbyte% (word%)
DECLARE FUNCTION highbyte% (word%)
DECLARE SUB door (switch%)
'
CONST openIt = 0
CONST closeIt = 5
'
TYPE RegTypeX
ax AS INTEGER
bx AS INTEGER
cx AS INTEGER
dx AS INTEGER
bp AS INTEGER
si AS INTEGER
di AS INTEGER
flags AS INTEGER
ds AS INTEGER
es AS INTEGER
END TYPE
'
DIM SHARED inregsx AS RegTypeX
DIM SHARED outregsx AS RegTypeX
DIM SHARED drive AS INTEGER
DIM SHARED control AS STRING * 1
DIM SHARED request(1 TO 20) AS STRING * 1
'
request(1) = CHR$(26)
request(2) = CHR$(0)
request(3) = CHR$(12)
request(19) = CHR$(lowbyte(1))
request(20) = CHR$(highbyte(1))
'
inregsx.ax = &H1500
inregsx.bx = &H0
inregsx.cx = &H0
CALL INTERRUPTX(&H2F, inregsx, outregsx)
drive = outregsx.cx
'
CLS
door openIt
LOCATE 1, 1: PRINT "Press any key to close it again."
SLEEP
door closeIt
END
'
SUB door (switch%)
control = CHR$(switch%)
request(15) = CHR$(lowbyte(VARPTR(control)))
request(16) = CHR$(highbyte(VARPTR(control)))
request(17) = CHR$(lowbyte(VARSEG(control)))
request(1 = CHR$(highbyte(VARSEG(control)))
inregsx.ax = &H1510
inregsx.cx = drive
inregsx.es = VARSEG(request(1))
inregsx.bx = VARPTR(request(1))
CALL INTERRUPTX(&H2F, inregsx, outregsx)
END SUB
'
FUNCTION highbyte% (word%)
IF word% >= 0 THEN
highbyte% = word% \ 256
ELSE
highbyte% = (65536 + word%) \ 256
END IF
END FUNCTION
'
FUNCTION lowbyte% (word%)
IF word% >= 0 THEN
lowbyte% = word% MOD 256
ELSE
lowbyte% = (65536 + word%) MOD 256
END IF
END FUNCTION

und das:

Dim shared reg as regtypex
'
reg.ax =&H1510
reg.cx = Laufwerk (0=A,1=B,2=C,3...)
reg.es = Varseg(requestheader)
reg.bx = Varptr(requestheader)

[Degolino]

die Smylies sollen da eigentlich nicht rein!!!!!

[dreael]

Gemäss

http://www.ctyme.com/intr/rb-4493.htm

willst Du also einen Device Driver Request senden.

Vielleicht ein paar Bemerkungen zur Codegestaltung:
1.) Solche Strukturen wie der Device Driver Reqest Header würde ich mit einem TYPE abbilden und dann mit einem DIM eine Variable instanzieren. Ist viel klarer zum Lesen/Verstehen als da irgendwelche Arrays zusammenPOKEen.
2.) Vermeide dagegen die CPU-Register selber zu deklarieren, dafür gibt es ja schliesslich Headerdateien wie in C/C++, so dass ein

[Mao]

Warum immer wieder das gleiche?!
Codeboxen und die edit-Funktion benutzen...
_________________
Eine handvoll Glück reicht nie für zwei.
--

[dreael]

Habe auf einem Labor-PC die IOCTL-Variante vom Usenet-Posting vorhin kurz erfolgreich getestet. Code:

http://beilagen.dreael.ch/QB/CDSCHUBL.BAS

Testumgebung: Standard-PC mit handelsüblichem ATAPI-Laufwerk, MS-DOS 6.22, dort OAKCDROM.SYS geladen (ist ein Universal-CD-ROM-Treiber für ATAPI-Laufwerke und wird auf die Notfall-Startdiskette von Windows Millennium Edition draufgepackt). In der CONFIG.SYS-Zeile befindet sich daher ein

[Und3rt4ker]

hi@all
sry, wennn der thread schon zu alt ist
wie kann man denn per freebasic befehl das cd rom lauferk aufmachen und wieder schließen? So gut bin ich noch nicht *g* und die qb befehle funktionieren nicht...

Mfg Und3rt4ker
_________________
I Only Understand Railroad Station =>Ich Versteh Nur Bahnhof
The People-Car-Factory =>Das Volkswagenwerk
The Picture-Umbrella =>Der Bildschirm

[King-01]

[Und3rt4ker]

das ist bestimmt schon geklärt....aber nicht die frage, wie man unter freebasic die cd-lade öffnet.


MFG Und3rt4ker
_________________
I Only Understand Railroad Station =>Ich Versteh Nur Bahnhof
The People-Car-Factory =>Das Volkswagenwerk
The Picture-Umbrella =>Der Bildschirm

[Mao]

@King-01:
Es bringt bestimmt was, wenn du zu einem längst geklärtem, alten Problem, einen eher unwichtigen Hinweis postest.

@Und3rt4ker:
Bitte erstelle für neue Fragen auch neue Threads.
(Das Ganze lässt sich mit MCI lösen, sofern du Windows benutzt.)
_________________
Eine handvoll Glück reicht nie für zwei.
--