Seite 2 von 3
Verfasst: 24.03.2005 20:33
von Pure-r-Freak
kann mir den noch jemand sagen wie ich in der console scrollen kann?
Verfasst: 25.03.2005 12:41
von Pure-r-Freak
kann mir einer helfen?
wie kann ich am besten den den status des laufwerks abfragen (zu auf)
mit meinen versuch geht es nicht besonders zuverlässig
Code: Alles auswählen
OpenConsole()
If InitCDAudio() = 0
MessageRequester("Error", "kein laufwerk gefunden", 0)
End
EndIf
Repeat
eject$=Input()
PrintN("")
If eject$="open"
UseCDAudio(0)
EjectCDAudio(1)
status$=""
status$ = "offen"
EndIf
If eject$="close"
UseCDAudio(0)
EjectCDAudio(0)
status$=""
status$ = "zu"
EndIf
If status$="offen"
PrintN("ist offen")
ElseIf status$="zu"
PrintN("ist zu")
ElseIf status$<>"offen" And status$<>"zu"
PrintN(""+(status$)+"")
EndIf
Until Quit=1
Verfasst: 25.03.2005 12:46
von Kiffi
> wie kann ich am besten den den status des laufwerks abfragen (zu auf)
den Status kann man meiner Meinung nach nicht zuverlässig abfragen, weil
der Anwender ja auch die Möglichkeit hat, die Eject-Taste am Laufwerk
manuell zu betätigen und mir bisher kein Code bekannt ist, mit dem man das
ermitteln kann.
Grüße ... Kiffi
Verfasst: 25.03.2005 12:58
von pogi02
Hallo
Naja man kann schon abfragen ob es geöffnet ist und zwar mit CDAudioStatus() dieser Befehl hat 3 Rückgabewerte
-1: CD-Laufwerk nicht fertig (leer oder geöffnet)
0: CD-Laufwerk angehalten (aber die CD ist eingelegt und erkannt)
>0: Nummer des Audio-Tracks, der gerade abgespielt wird.
Also bei dem Rückgabewert -1 kann das Laufwerk offen sein aber der nachteil ist es kann auch keine CD im Laufwerk sein
Es ginge schon nur du müsstes 2 Abfragen machen zuerst ob es nicht fertig ist trifft dieses zu musst du noch eine Abfrage machen ob eine CD eingelegt wurde.
Ich weiss aber nicht obs wirklich Funktioniert habs nicht getestet
Verfasst: 25.03.2005 13:30
von Pure-r-Freak
wie meinst du das?
pogi02 hat geschrieben:
Es ginge schon nur du müsstes 2 Abfragen machen zuerst ob es nicht fertig ist trifft dieses zu musst du noch eine Abfrage machen ob eine CD eingelegt wurde.
Verfasst: 25.03.2005 13:37
von pogi02
Hallo
Nunja
ergebniss = CDAudioStatus()
If ergebniss = 0 ;Hier weiss das Programm das eine CD eingelegt wurde und erkannt wurde
If ergebniss = -1 ;Und hier prüft man ob das Laufwerk bereit ist. Da eine CD drin ist (wurde ja vorhin geprüft) kann es nur mehr offen sein
isopen = 1
Else
isopen = 0
EndIf
EndIf
Das ist nur ein Beispiel ich weiss nicht ob das auch wirklich Funktioniert, musst halt mal probieren
EDIT:
Kann gar net gehen da ja nur einmal ein Rückgabewert da ist looool. Wo war ich denn da mit meinen Kopf
Verfasst: 25.03.2005 14:38
von Pure-r-Freak
ich werd das mal checken
Verfasst: 22.01.2006 01:11
von Konne
Hab mich jetzt auch mal mit dem Problem beschäftigt. Und kam auf folgende Lösung:
Code: Alles auswählen
CD=InitCDAudio()-1
Repeat
For t = 0 To CD
UseCDAudio(t)
Start=ElapsedMilliseconds()
EjectCDAudio(1)
Debug ElapsedMilliseconds()-Start
If ElapsedMilliseconds()-Start<300
EjectCDAudio(0)
EndIf
Next
ForEver
Verfasst: 22.01.2006 21:12
von Sylvia
"Laufwerk auswerfen" ? Geht das überhaupt ??
Verfasst: 22.01.2006 21:29
von DarkDragon
Sylvia hat geschrieben:"Laufwerk auswerfen" ? Geht das überhaupt ??
Hab mich auch gefragt: Ist das nicht gefährlich? Aber geh mal in dein Arbeitsplatz und klick rechts auf dein CD Laufwerk, da steht auch "Auswerfen".
[EDIT]
Habs ausprobiert, es passiert nicht viel, nur das Laufwerk geht auf.