 |
Das deutsche QBasic- und FreeBASIC-Forum
Für euch erreichbar unter qb-forum.de, fb-forum.de und freebasic-forum.de!
|
| Vorheriges Thema anzeigen :: Nächstes Thema anzeigen |
| Autor |
Nachricht |
Thomas Antoni
Anmeldungsdatum: 12.10.2004
Beiträge: 220
Wohnort: Erlangen
|
 Verfasst am: 23.03.2006, 19:26 Titel: Zur FAQ: Feststellen, ob e.Diskette/CD/DVD eingelegt ist? |
 |
|
Version 2.0 der QB-MonsterFAQ ist fast fertig. Sie hat ca. 2,7 x soviel Umfang wie die aktuelle Version.
Nun gibt es noch einige wenige Restfragen, zu denen ich noch keine Antwort gefunden habe. Helft mir bitte, sie zu beantworten.
Die erste Frage lautet:
Wie stelle ich fest, ob eine Diskette/CD/DVD im Laufwerk liegt?
_________________
+++ Die beliebte QBasic CD-ROM von QBasic.de - 670 MB QBasic-Stuff mit komfortabler HTML-Oberfläche. Für nur 5 EUR bestellbar auf www.antonis.de/qbcdueb.htm +++ |
|
| Nach oben |
|
 |
Lutz Ifer
Grillmeister
Anmeldungsdatum: 23.09.2005
Beiträge: 555
|
| Verfasst am: 23.03.2006, 20:24 Titel: |
|
|
Sorry, die Frage ist evtl. Mehrdeutig:
Geht es um eine bestimmte CD oder ob überhaupt ein Medium eingelegt ist? Ist die Laufwerkskennung vorgegeben, oder soll die Funktion unabhängig davon sein?
Gruß
Lutz  Ifer
_________________
Wahnsinn ist nur die Antwort einer gesunden Psyche auf eine kranke Gesellschaft. |
|
| Nach oben |
|
|
Sebastian
Administrator
Anmeldungsdatum: 10.09.2004
Beiträge: 5969
Wohnort: Deutschland
|
| Verfasst am: 23.03.2006, 20:31 Titel: |
|
|
| Code: | ON ERROR GOTO ErrorHandler
INPUT "Welches Laufwerk testen? [D,E,F]", x$ '<- Liste gemäß MonFAQ vorher ermitteln
CHDIR UCASE$(x$)+":\"
PRINT "Laufwerk verfügbar, Medium eingelegt."
SLEEP: END
ErrorHandler:
IF ERR = 71 THEN
PRINT "Laufwerk nicht verfügbar, kein Medium eingelegt!"
SLEEP: END
ELSE
PRINT "Irgendein anderer Fehler."
SLEEP: END
END IF |
_________________
Die gefährlichsten Familienclans | Opas Leistung muss sich wieder lohnen - für 6 bis 10 Generationen! |
|
| Nach oben |
|
|
Thomas Antoni
Anmeldungsdatum: 12.10.2004
Beiträge: 220
Wohnort: Erlangen
|
| Verfasst am: 30.03.2006, 16:16 Titel: |
|
|
Vielen Dank für eure Antworten. ich habe daraus den folgenden Eintrag für die QB-MonsterFAQ erstellt:
Frage deutsch
~~~~~~~~~~~~~~~~
Wie stelle ich fest, ob eine Diskette/CD/DVD im Laufwerk liegt?
Question English
~~~~~~~~~~~~~~~~
How to detect a floppy/CD/DVD medium being inserted in the drive?
Antwort 1
~~~~~~~~~~~~~~~~
[ von Sebastian Steiner (sebastian_steiner@gmx.de), im QB-Forum, 23.3.2006 ]
Das geht mit ON ERROR und einer entsprechenden Fehler-Routine
gemäß meinem folgenden Programm:
| Code: |
'***************************************************************
' MEDICHK.BAS = Prueft ob eine Diskette/CD/DVD im Laufwerk liegt
' ===========
'
' Dieses Q(uick)Basic-Programm prueft, ob ein Wechselmedium in
' das Disketten-, CD-, oder DVD-Laufwerk eingelegt ist und
' zeigt eine entsprechenden Meldung an.
'
' (c) Sebastian Steiner (sebastian_steiner@gmx.de), 23.3.2006
'***************************************************************
'
ON ERROR GOTO ErrorHandler
CLS
INPUT "Welches Laufwerk testen? [A,D,E,F]", x$
'--- Liste evtl. gemaess chkdrive.bas vorher ermitteln
PRINT
CHDIR UCASE$(x$) + ":\"
PRINT "Laufwerk verfuegbar, Medium eingelegt."
SLEEP
END
'
ErrorHandler:
IF ERR = 71 THEN
PRINT "Laufwerk nicht verfuegbar, kein Medium eingelegt!"
SLEEP: END
ELSE
PRINT "Irgendein anderer Fehler."
SLEEP: END
END IF
|
(( MEDICHK bereits in .../progs/neu/... ))
_________________
+++ Die beliebte QBasic CD-ROM von QBasic.de - 670 MB QBasic-Stuff mit komfortabler HTML-Oberfläche. Für nur 5 EUR bestellbar auf www.antonis.de/qbcdueb.htm +++ |
|
| Nach oben |
|
|
Jojo
alter Rang
Anmeldungsdatum: 12.02.2005
Beiträge: 9736
Wohnort: Neben der Festplatte
|
| Verfasst am: 30.03.2006, 22:01 Titel: |
|
|
ich würde es sogar so machebn, dass das aktuelle laufwerk erhalten bleibt:
| Code: |
....
Laufwerk$="D"
open Laufwerk$+":\NUL" for input as #1 'NUL Existiert immer
close #1
....
|
_________________
» Die Mathematik wurde geschaffen, um Probleme zu lösen, die es nicht gäbe, wenn die Mathematik nicht erschaffen worden wäre.
 |
|
| Nach oben |
|
|
|
|
Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
|
|
FAQ
Suchen
Mitgliederliste
Benutzergruppen
Registrieren
Profil
Einloggen, um private Nachrichten zu lesen
Login
