CD Autorun...

If cdersati Then
  Label1.Text = "Hello"
End If

//>Rune

Private Sub Command1_Click()
On Error GoTo fejl

file1.Path = "d:\" ' cd drevet

MsgBox "Der er en cd i drevet", vbInformation

Exit Sub
fejl:

MsgBox "Der er ingen cd i drevet!", vbCritical
End Sub

/Answer

medions> dit virkede ikke. Der skete ingenting.

answermaster> den skal hele tiden checke mens programmet kører, og ikke kun når man trykker på Command1.

Hvad gør jeg så?

Hmm.. så prøv med denne:

Private Sub form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    On Error GoTo fejl
   
    file1.Path = "d:\" ' cd drevet
   
    MsgBox "Der er en cd i drevet", vbInformation
   
    Exit Sub
fejl:
   
    MsgBox "Der er ingen cd i drevet!", vbCritical
    End Sub
End Sub


//>Rune

Brug en timer..

Private Sub Timer1_Timer()

On Error GoTo fejl

file1.Path = "d:\" ' cd drevet

label1.Caption "Der er en cd i drevet", vbInformation

Exit Sub
fejl:

label1.Caption "Der er ingen CD i drevet"
End Sub


/Answer

og en label

Fejl.

ikke

label1.Caption "Der er en cd i drevet", vbInformation

men

label1.Caption "Der er en cd i drevet"

Det jeg har skrevet viser hele tiden om der er en cd i. Den viser det i label1. Mediations, som ca. bare har kopieret mit, kommer frem med en message box, ligesom mit første svar.

Vender tilbage i aften!

Ok answermaster, nu har jeg sat det i en timer det sidste du skrev, men når jeg kører formen så sker der ikke noget. Skal jeg gøre et eller andet for at aktivere timeren eller lign.?

Hmm... har fået en bedre ide... kan man ikke få VB til at reagere på et tryk på Eject-knappen?

Hej igen.

Du skal sætte timerens 'interval' til ca. 10.

Du kan nok godt finde svar på dit sidste spm., men opret et nyt Spørgsmål om det.

Okay her i dette program kan du ejecte cd en:

http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=24699&lngWId=1

/Answer

Ok nu fik jeg med timeren til at virke (altså ved at sætte intervallen til 10), men nu har jeg det problem at når CD'en er i så bliver den ved med hele tiden at stå og prøve at spille filmen. Hvad gør jeg ved det??

Sæt intervalen til 60000 så gør den det en gang i minuttet.

Hvis intervalen er:

1000 = en gang i sekuntet
(1000 * 60) 60000 = en gang i minuttet
60000 * 60 = en gang i timen
60000 * 60 * 24 = en gang pr. 24 timer.

Jeps, men den skulle gerne helt holde op med at stå og prøve at åbne filmen. Sådan at den bare gør det EN gang når CD'en er i.

og hvis jeg sætter intervallen højere (f.eks. 6000) så er det jo ikke særligt autorun-agtigt, hvis man skal sidde at vente noget tid efter man har sat CD'en i ;-)

Ok så bare skriv dette i timeren.

Timer1.enable = false

Så gør den det kun en gang!

/Answer

Du skal IKKE accepter mediatons, for han har bare kopieret mit og så sat det ind i en anden prosedure!

Held og lykke, med dit cd projekt!!

Mvh:
AnswerMaster >AM<

Yep, men så har jeg jo det problem at så holder den sig ikke længere opdateret når jeg tager CD'en ud igen!

Nej nej, skal nok give dig pointene, du har trods alt været temmelig hjælpsom! :)

Tak for det!

:)

Men ved du hvad jeg skal gøre ved det sidste problem?

Skriv dette når du vil have den til at checke om der er en cd i:

Timer1.enable = true

/Answer

Nu ser koden sådan ud:

Private Sub Timer1_Timer()

On Error GoTo Fail
MediaPlayer1.DisplaySize = mpFullScreen
    File1.Path = "F:\"
        Label1.Caption = "The CD is in the drive"
MediaPlayer1.FileName = "F:\" + File1.List(0)
    Timer1.Enabled = "False"

    Exit Sub

Fail:

Label1.Caption = "The CD is not in the drive"

End Sub



Hvor vil du så sætte Timer1.enable = true ind henne?

Jeg kan efter alle dine spm. regne ud at du er ved at lave et audio program. Held og lykke med det!
Hvis du vil have lidt hjælp så kig lidt på dette program:

http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=15207&lngWId=1

Han skriver oven i købet at det ca. er en kopi af Winamp, så det er bare med at komme i gang!!!

/Answer

Jep det ser rigtigt ud!

answermaster> Hvorfor skulle han dog ikke det? - well, det er da totalt lige meget om man kopiere hinnandens koder her på Eksperten! - Bare så længe man hjælper den der har brug for hjælp! - Desto hurtigere desto bedere...! - Det er trods alt det forumet her går ud på!!! - Og en anden gang... Pas dine egne sager!!!

//>Rune

Vil gerne se programmet når det er færdigt!

Evt. screen shot eller endnu bedre en Zip fil!

Hm... det er faktisk et program til at se AVI-film.

Det er sådan at jeg har en masse CD'er som alle indeholder en AVI-film hver. Så vil jeg have programmet til at afspille filmen i fullscreen når CD'en bliver sat. Og så når jeg trykker Eject skal filmen stoppe. Det fungerer også 100%. MEN der bare det sidste problem, som er at når jeg har sat Timer1.enabled til "False" så kan jeg ikke få den til at køre igen.

Så du gider vel ikke lige svare på mit sidste spm. hvis du ved det? :)

Answermaster, ok det skal du komme til :) Men hvor ville du sætte Timer1.enable = true henne i den ovenstående kode jeg skrev til dig?

Hvad mener du??

Kan man bare gå ind og kopier andres koder og så få point for det?? Det er hvad jeg kalder > SNYD <. Og eksperten skal holdes fri for snydere. Eller de skal lade hver med at snyde, og den bedste måde at få dem til at lade hver med det er at lade hver med at give dem point!

Jeg siger ikke at DU er en snyder, men det giver ikke mening at gå ind og kopier en andens kode. Og i øvrigt så det jeg/vi skrev var ikke det han skulle bruge, hvor imod det jeg har skrevet nu virker!!!

Det var til mediations!

Du må simpelt hen bare få den til at checke om der er en cd i en gang i mellem!

Vender tilbage i aften!

Skriv evt. til:

answer@jubiimail.dk

/Answer

answermaster: kan jeg ikke bare give dig point og lukke svaret for det du har svaret på nu (du har faktisk besvaret spørgsmålet). Men der er yderligere et par småting jeg gerne lige vil have i orden... har du ICQ?

answermester> Stav mit nick rigtigt, -da Eksperten oxo helst skal holdes fri for brugere der ikke kan stave!!! - Og fat det lige, det er da totalt ondsvagt at jeg skal til at sætte mig ned og skrive kode, og at det så tager 5 min. mere... .- så hellere lade ham få den nyttige kode med det samme!

//>Rune

>> medions
Jeg vil gerne have en tone der er til at holde ud! Ekspertens point system er til at vise hvor flittig man er til at svare på spørgsmål, ikke hvor flittig man er til at kopier andres svar, og rette lidt i dem. Det er selvfølgelig i orden, hvis der bliver en væsentlig forandring, men ikke hvis man i dette tilfælde bare sætter koden ind i en anden prosedure for at få point! Det du forsøger at gøre i dette tildfælde, er at score point, men da jeg ikke synes at eksperten skal være et "spil", men et forum hvor man svare på andres spørgsmål, og BEHANDLER HINANDEN ORDENTLIG. Der er ingen grund til at svine andre til!
>"så hellere lade ham få den nyttige kode med det samme!"< ja det er rigtigt nok, men da det du skrev faktisk bare var en kopi af mit, og han faktisk havde skrevet at det ikke virkede efter hensigten, så er det ikke "nyttig kode"!! Jeg skrev lige efter det som han skulle bruge, og så skriver du at det du skrev var "nyttig kode"!
Hvis webwally giver dig pointene, er det i orden med mig, men hvis alle gør det, kan man ikke bedømme folk efter pointene. Så kan en med 500 point måske være lige så god som en med 1500 point.

Men husk medions, at skrive noget ordentligt! Starten af dit "svar" lige oven over, skulle FORBYDES!

-------------
>>webwally
Nej jeg har ikke icq, men du kan jo bare oprette et spm. til! (behøves ikke at være point, bare for at "ryde op")
Du kan også maile på answer@jubiimail.dk

/Answer

Nu kom jeg, klodset som jeg er, selvfølgelig til at give jer begge lige mange point, hvilket ikke er helt fair, men answermaster, hvis du vil have flere point kan vi godt finde ud af det.

answermaster: Jeg fandt ud af problemet, så det virker nu (ok med små skønhedspletter) :) Hvis du vil se resultatet kan jeg da godt maile det til dig?

Det med at du har givet medions point er lidt unfair, da han faktisk ikke har svaret på dit spørgsmål, men det har jeg!

Så det er lidt unfair....

Det er ligemeget med pointene, ellers tak!

/Answer

faktum er at medions har ret
det gælder om at få hjælp så hurtigt som muligt
hvis jeg har brug for hjælp så er jeg flintrene ligeglad med om en eller anden har kopieret din kode og sat ind i sin egen procedure
bare jeg får hjælp med mit problem
din kommentar lugter langt væk af småligt piveri
no offence intended :)

/slapstick