/ Forside / Teknologi / Udvikling / VB/Basic / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
VB/Basic
#NavnPoint
berpox 2425
pete 1435
CADmageren 1251
gibson 1230
Phylock 887
gandalf 836
AntonV 790
strarup 750
Benjamin... 700
10  tom.kise 610
Undervisningsvideoer fra cd-rom
Fra : Torben Kam Nielsen


Dato : 10-08-01 13:33

Problem:
Jeg vil gerne installere en Front-End, som kan vise 4 undervisningsvideoer i
MPG-format fra hver deres cd-rom.

Spørgsmål:
1. Hvorledes skal koden herunder tilrettes for at MPG-filerne kan vises fra
cd-rom drevet (uafhængig af drevbetegnelsen for cd-rom drevet)
2. Hvorledes kan jeg give brugeren besked om, at det evt. er den forkerte
cd-rom der er i drevet og hvilken der skal isættes i stedet.

Dele af nuværende kode:
I Visual Basic 6.0 har jeg lavet en Front-End, som kan vise 4
undervisningsvideoer fra harddisken. Jeg eksekverer MPG-filerne som anført
herunder:

'***********Code begin*********************
Private Sub VideoOption_Click(Index As Integer)
Select Case Index
Case 0
MediaPlayer1.FileName = "c:\video\ukrudt.mpg"

Case 1
MediaPlayer1.FileName = "C:\video\brand.mpg"

Case 2
MediaPlayer1.FileName = "c:\video\redning.mpg"

Case 3
MediaPlayer1.FileName = "c:\video\dyreredning.mpg"

Case 4
MediaPlayer1.FileName = "c:\" 'Afslutter aktuelle video
End Select

End Sub
'************Code end*********************

Med venlig hilsen

Torben Kam Nielsen



 
 
Jens Andersen (12-08-2001)
Kommentar
Fra : Jens Andersen


Dato : 12-08-01 13:11

Jeg ved ikke om jeg har forstået spørgsmålene rigtig...

Koden er noget som jeg lige har fundet på så se lige om det virker først !

1. Finder det første cdrom drev

Private Declare Function GetDriveTypeA Lib "Kernel32" (ByVal nDrive As
String) As Long
Dim Cd As String
Dim Tel As Long

Private Sub Form_Load()

For Tel = 65 To 91

If Tel = 91 Then
MsgBox "Der er ikke cdrom i maskinen !", vbCritical
End If

Cd = GetDriveTypeA(Chr(Tel) & ":\")

If Cd = "5" Then
Cd = Chr(Tel) & ":\"
Exit For
End If

Next

MsgBox "Dit første Cdrom drev hedder " & Cd

End Sub

2. Her spørg programmet om filen er hvor den skal være

Dim Filcheck as String

Private Sub VideoOption_Click(Index As Integer)
Select Case Index
Case 0
Filcheck = Dir("c:\video\ukrudt.mpg")
If Filcheck = "" Then Msgbox "Skift cden ud !"
MediaPlayer1.FileName = "c:\video\ukrudt.mpg"





Torben Kam Nielsen (12-08-2001)
Kommentar
Fra : Torben Kam Nielsen


Dato : 12-08-01 19:49

Hej Jens
Du fangede langt det meste - det er testet og virker perfekt.

Det er dog ikke præcist det jeg ønsker - jeg prøver her at konkritisere det
lidt mere. Jeg har lavet en Fornt-End i VB, som installeres på en pc. Denne
Front-End anvendes til at vise forskellige undervisningsvideoer i
MPG-format. Hver undervisningsningsfilm distribueres på egen cd-rom. Fra
Front-End'en er det muligt at eksekvere alle undervisningsningsfilm såfremt
den rigtige cd-rom er i cd-rom drevet.

Kan man i pkt. 2 anvende informationen, som pkt. 1 resulterer i (cd-rom
drev), til at spørge om en bestemt MPG-fil findes på cd-rom drevet. Fx Hvis
koden i pkt. 1 finder cd-rom drevet som drev d:\ så skal det gerne resultere
i, at programmet automatisk spørger efter "nuværende
kode............Filcheck =
Dir("d:\video\ukrudt.mpg")..........................nuværende kode".

Tak for hjælpen Jens

mvh Torben



"Jens Andersen" <til@infojens.dk> skrev i en meddelelse
news:3b767263$0$321$edfadb0f@dspool01.news.tele.dk...
> Jeg ved ikke om jeg har forstået spørgsmålene rigtig...
>
> Koden er noget som jeg lige har fundet på så se lige om det virker først !
>
> 1. Finder det første cdrom drev
>
> Private Declare Function GetDriveTypeA Lib "Kernel32" (ByVal nDrive As
> String) As Long
> Dim Cd As String
> Dim Tel As Long
>
> Private Sub Form_Load()
>
> For Tel = 65 To 91
>
> If Tel = 91 Then
> MsgBox "Der er ikke cdrom i maskinen !", vbCritical
> End If
>
> Cd = GetDriveTypeA(Chr(Tel) & ":\")
>
> If Cd = "5" Then
> Cd = Chr(Tel) & ":\"
> Exit For
> End If
>
> Next
>
> MsgBox "Dit første Cdrom drev hedder " & Cd
>
> End Sub
>
> 2. Her spørg programmet om filen er hvor den skal være
>
> Dim Filcheck as String
>
> Private Sub VideoOption_Click(Index As Integer)
> Select Case Index
> Case 0
> Filcheck = Dir("c:\video\ukrudt.mpg")
> If Filcheck = "" Then Msgbox "Skift cden ud !"
> MediaPlayer1.FileName = "c:\video\ukrudt.mpg"
>
>
>
>



Torben Kam Nielsen (13-08-2001)
Kommentar
Fra : Torben Kam Nielsen


Dato : 13-08-01 17:00

Hej Jens og andre interesserede - jeg har har løst problemet således

Private Sub Videoprodyktioner_Click (Index as Integer)
Select Case Index
Case 0
FilCheck=Dir(Cd & "NavnPåFil.mpg"
If FilCheck = "" Then
MsgBox "Indsæt cd-rom'en med titlen ""NavnPåCd-rom""" & VbNewLine &
VbNewLine & "Prøv igen......"", VbCritical
Mediaplayer1.FileName = Cd & "\NavnPåFil.mpg"
End Select
End Sub

Jeg skrev:
> Kan man i pkt. 2 anvende informationen, som pkt. 1 resulterer i (cd-rom
> drev), til at spørge om en bestemt MPG-fil findes på cd-rom drevet. Fx
Hvis
> koden i pkt. 1 finder cd-rom drevet som drev d:\ så skal det gerne
resultere
> i, at programmet automatisk spørger efter "nuværende
> kode............Filcheck =
> Dir("d:\video\ukrudt.mpg")..........................nuværende kode".




Søg
Reklame
Statistik
Spørgsmål : 177552
Tips : 31968
Nyheder : 719565
Indlæg : 6408847
Brugere : 218887

Månedens bedste
Årets bedste
Sidste års bedste