Das deutsche QBasic- und FreeBASIC-Forum Foren-Übersicht Das deutsche QBasic- und FreeBASIC-Forum
Für euch erreichbar unter qb-forum.de, fb-forum.de und freebasic-forum.de!
 
FAQFAQ   SuchenSuchen   MitgliederlisteMitgliederliste   BenutzergruppenBenutzergruppen  RegistrierenRegistrieren
ProfilProfil   Einloggen, um private Nachrichten zu lesenEinloggen, um private Nachrichten zu lesen   LoginLogin
Zur Begleitseite des Forums / Chat / Impressum
Aktueller Forenpartner:

Laufwerk auswerfen?

 
Neues Thema eröffnen   Neue Antwort erstellen    Das deutsche QBasic- und FreeBASIC-Forum Foren-Übersicht -> Allgemeine Fragen zu QBasic.
Vorheriges Thema anzeigen :: Nächstes Thema anzeigen  
Autor Nachricht
mismoose



Anmeldungsdatum: 13.05.2005
Beiträge: 6

BeitragVerfasst am: 10.07.2005, 09:14    Titel: Laufwerk auswerfen? Antworten mit Zitat

Hallo,

gibt es einen QBasic-Befehl, um einen Datenträger, z. B. DVD-Laufwerk auszuwerfen? Und vielleicht auch wieder zu schließen.
Ich weiß, dass das nciht besonders viel Sinn macht, aber interessieren würde es mich schon mal.

Dankeschön,
missmoose
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
MisterD



Anmeldungsdatum: 10.09.2004
Beiträge: 3071
Wohnort: bei Darmstadt

BeitragVerfasst am: 10.07.2005, 12:08    Titel: Antworten mit Zitat

ich weiß nicht, aber unter win95 hieß das auswerfen bei CD-Laufwerken glaub ich löschen, probier doch einfahc mal
SHELL "del d:" oder so, ka ob das geht.
_________________
"It is practically impossible to teach good programming to students that have had a prior exposure to BASIC: as potential programmers they are mentally mutilated beyond hope of regeneration."
Edsger W. Dijkstra
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
volta



Anmeldungsdatum: 04.05.2005
Beiträge: 1876
Wohnort: D59192

BeitragVerfasst am: 10.07.2005, 12:12    Titel: Antworten mit Zitat

Hallo,
mit QBasic kenne ich mich leider nicht sehr gut aus.
Es gibt wohl keine Möglichkeit die winmm.dll anzuzapfen??
In freeBASIC mache ich das durch diese Funktionen:
Code:
Sub OpenDoor(ByVal Drive As String)
  Dim Buffer As String * 255

  mciSendString "Open " + Drive + " Type cdaudio Alias cd", Buffer, 255, 0
  mciSendString "set cd door open", 0, 0, 0
  mciSendString "close cd", 0, 0, 0
End Sub

Sub CloseDoor(ByVal Drive As String)
  Dim Buffer As String * 255

  mciSendString "Open " + Drive + " Type cdaudio Alias cd", Buffer, 255, 0
  mciSendString "set cd door closed", 0, 0, 0
  mciSendString "close cd", 0, 0, 0
End Sub

Gruß
Volta
_________________
Warnung an Choleriker:
Dieser Beitrag kann Spuren von Ironie & Sarkasmus enthalten.
Zu Risiken & Nebenwirkungen fragen Sie Ihren Therapeuten oder Psychiater.
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden Website dieses Benutzers besuchen
code



Anmeldungsdatum: 19.01.2005
Beiträge: 154

BeitragVerfasst am: 11.07.2005, 14:46    Titel: Antworten mit Zitat

ich glaube das quark48 mal eine library für cd-laufwerke unter qb geschrieben hat. http://forum.qbasic.at/viewtopic.php?t=581
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
Beiträge der letzten Zeit anzeigen:   
Neues Thema eröffnen   Neue Antwort erstellen    Das deutsche QBasic- und FreeBASIC-Forum Foren-Übersicht -> Allgemeine Fragen zu QBasic. Alle Zeiten sind GMT + 1 Stunde
Seite 1 von 1

 
Gehe zu:  
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.

 Impressum :: Datenschutz