Music Player

Übersicht BlitzBasic Beginners-Corner

Neue Antwort erstellen

 

As$as$iN

Betreff: Music Player

 BeitragSo, März 20, 2005 17:18
Antworten mit Zitat
Benutzer-Profile anzeigen
Hi LeutZ.
Ich versuche grade mal nen Simplen Music Player zu coden!
Doch ich weiss nicht wie ich es so programmieren kann, das es wenn ein lied zu ende ist, das es das nächste in der Playlist vorhandenen Song spielt.
Also z.B.:
Du startest mit Song 5(kann man am anfang wählen welchen song man als erstes will) und wenn dieser fertig ist dann startet Song 6.
Hoffe ihr versteht es, hier mein Code:
Code: [AUSKLAPPEN]

Graphics 640,480
SetBuffer BackBuffer()
Global hf2 = 0
Global hf3 = 0
Global hf4 = 0
Global c2 = 0
Global c3 = 0
Global c4 = 0
Print"(1)Playlist erstellen und sofort starten"
Print"(2)Beenden"
menu = Input("Was willst du machen:")
If menu = 1 Then
hintergrundfarbe()
ClsColor hf2,hf3,hf4
Cls
Color c2,c3,c4
Print"Wenn du zum Beispil Nummer 5-10 nicht besetzen willst, dann gib bei diesen Zahlen einfach"
Print"eine 0 ein!"
Print"Außerdem, die Songs sollten in dem Ordner sein, wo diese Exe datei ist!"
Dim plsnumber(10)
eins = Input   ("Song 1, exakter name:")
zwei = Input   ("Song 2, exakter name:")
drei = Input   ("Song 3, exakter name:")
vier = Input   ("Song 4, exakter name:")
fünf = Input   ("Song 5, exakter name:")
sechs = Input  ("Song 6, exakter name:")
sieben = Input ("Song 7, exakter name:")
acht = Input   ("Song 8, exakter name:")
neun = Input   ("Song 9, exakter name:")
zehn = Input   ("Song 10, exakter name:")
plsnumber(1) = LoadSound(eins)
plsnumber(2) = LoadSound(zwei)
plsnumber(3) = LoadSound(drei)
plsnumber(4) = LoadSound(vier)
plsnumber(5) = LoadSound(fünf)
plsnumber(6) = LoadSound(sechs)
plsnumber(7) = LoadSound(sieben)
plsnumber(8) = LoadSound(acht)
plsnumber(9) = LoadSound(neun)
plsnumber(10) = LoadSound(zehn)
Print"(1) - " + eins
Print"(2) - " + zwei
Print"(3) - " + drei
Print"(4) - " + vier
Print"(5) - " + fünf
Print"(6) - " + sechs
Print"(7) - " + sieben
Print"(8) - " + acht
Print"(9) - " + neun
Print"(10) - " + zehn
startsound = Input("Welchen Song spielen?:")
If startsound = 1 And eins > 0 Then
   PlaySound(plsnumber(1))
ElseIf startsound = 2 And zwei > 0 Then
   PlaySound(plsnumber(2))
ElseIf startsound = 3 And drei > 0 Then
   PlaySound(plsnumber(3))
ElseIf startsound = 4 And vier > 0 Then
   PlaySound(plsnumber(4))
ElseIf startsound = 5 And fünf > 0 Then
   PlaySound(plsnumber(5))
ElseIf startsound = 6 And sechs > 0 Then
   PlaySound(plsnmuber(6))
ElseIf startsound = 7 And sieben > 0 Then
   PlaySound(plsnumber(7))
ElseIf startsound = 8 And acht > 0 Then
   PlaySound(plsnumber(8))
ElseIf startsound = 9 And neun > 0 Then
   PlaySound(plsnumber(9))
ElseIf startsound = 10 And zehn > 0 Then
   PlaySound(plsnumber(10))
EndIf
sv = Input("Lautstärke(zwischen 0 = stille 1 = volles Volumen):")
SoundVolume plsnumber(),sv
If menu = 3 Then End

Function hintergrundfarbe()
Print"Welche Hintergrundfarbe willst du haben?"
Print"(1)Rot"
Print"(2)Grün"
Print"(3)Blau"
hf = Input()
If hf = 1 Then
hf2 = 255
hf3 = 0
hf4 = 0
EndIf
If hf = 2 Then
hf2 = 0
hf3 = 255
hf4 = 0
EndIf
If hf = 3 Then
hf2 = 0
hf3 = 0
hf4 = 255
EndIf
End Function

Function Color()
If hf = 1 Then c3 = 255
If hf = 2 Then c4 = 255
If hf = 3 Then c3 = 255
End Function
 
If menu = 2 Then End


Achso ja, wenn ich versuche meinen Code zu Compilieren, dann kommt diese Fehlermeldung: " 'Function' can only appear in main program ".Was kann ich da machen?
Ich danke für jede Hilfe im vorraus!
Mit freundlichen Grüßen

As$as$iN

Rallimen

Sieger des 30-EUR-Wettbewerbs

BeitragSo, März 20, 2005 17:49
Antworten mit Zitat
Benutzer-Profile anzeigen
BlitzBasic: [AUSKLAPPEN] 
Print\"(1)Playlist erstellen und sofort starten\"
Print\"(2)Beenden\"
menu = Input (\"Was willst du machen:\")
If menu = 1 Then ; wo ist das End if zu dieser If Anweisung??????????????????
    hintergrundfarbe ()
    ClsColor hf2,hf3,hf4
    Cls

wenn du das setzt wird der Compiller das wahrscheinlich ausführen
abgesehen davon solltest du StandartBasic Schlüsselwörter nicht als Functionsnamen verwenden
siehe hierBlitzBasic: [AUSKLAPPEN] 
    Function Color ()
        If hf = 1 Then c3 = 255
        If hf = 2 Then c4 = 255
        If hf = 3 Then c3 = 255
    End Function
[BB2D | BB3D | BB+]
 

As$as$iN

 BeitragSo, März 20, 2005 17:53
Antworten mit Zitat
Benutzer-Profile anzeigen
jo stimmt, danke!
Mit freundlichen Grüßen

As$as$iN
 

As$as$iN

 BeitragSo, März 20, 2005 17:55
Antworten mit Zitat
Benutzer-Profile anzeigen
Immernoch die gleiche Fehlermeldung!
Mit freundlichen Grüßen

As$as$iN
 

As$as$iN

 BeitragSo, März 20, 2005 17:58
Antworten mit Zitat
Benutzer-Profile anzeigen
Achso ich habe den Code mal geändert nur ein Endif verschoben:
Code: [AUSKLAPPEN]

Graphics 640,480
SetBuffer BackBuffer()
Global hf2 = 0
Global hf3 = 0
Global hf4 = 0
Global c2 = 0
Global c3 = 0
Global c4 = 0
Print"(1)Playlist erstellen und sofort starten"
Print"(2)Beenden"
menu = Input("Was willst du machen:")
If menu = 1 Then
hintergrundfarbe()
ClsColor hf2,hf3,hf4
Cls
Color c2,c3,c4
Print"Wenn du zum Beispil Nummer 5-10 nicht besetzen willst, dann gib bei diesen Zahlen einfach"
Print"eine 0 ein!"
Print"Außerdem, die Songs sollten in dem Ordner sein, wo diese Exe datei ist!"
Dim plsnumber(10)
eins = Input   ("Song 1, exakter name:")
zwei = Input   ("Song 2, exakter name:")
drei = Input   ("Song 3, exakter name:")
vier = Input   ("Song 4, exakter name:")
fünf = Input   ("Song 5, exakter name:")
sechs = Input  ("Song 6, exakter name:")
sieben = Input ("Song 7, exakter name:")
acht = Input   ("Song 8, exakter name:")
neun = Input   ("Song 9, exakter name:")
zehn = Input   ("Song 10, exakter name:")
plsnumber(1) = LoadSound(eins)
plsnumber(2) = LoadSound(zwei)
plsnumber(3) = LoadSound(drei)
plsnumber(4) = LoadSound(vier)
plsnumber(5) = LoadSound(fünf)
plsnumber(6) = LoadSound(sechs)
plsnumber(7) = LoadSound(sieben)
plsnumber(8) = LoadSound(acht)
plsnumber(9) = LoadSound(neun)
plsnumber(10) = LoadSound(zehn)
Print"(1) - " + eins
Print"(2) - " + zwei
Print"(3) - " + drei
Print"(4) - " + vier
Print"(5) - " + fünf
Print"(6) - " + sechs
Print"(7) - " + sieben
Print"(8) - " + acht
Print"(9) - " + neun
Print"(10) - " + zehn
startsound = Input("Welchen Song spielen?:")
If startsound = 1 And eins > 0 Then
   PlaySound(plsnumber(1))
ElseIf startsound = 2 And zwei > 0 Then
   PlaySound(plsnumber(2))
ElseIf startsound = 3 And drei > 0 Then
   PlaySound(plsnumber(3))
ElseIf startsound = 4 And vier > 0 Then
   PlaySound(plsnumber(4))
ElseIf startsound = 5 And fünf > 0 Then
   PlaySound(plsnumber(5))
ElseIf startsound = 6 And sechs > 0 Then
   PlaySound(plsnmuber(6))
ElseIf startsound = 7 And sieben > 0 Then
   PlaySound(plsnumber(7))
ElseIf startsound = 8 And acht > 0 Then
   PlaySound(plsnumber(8))
ElseIf startsound = 9 And neun > 0 Then
   PlaySound(plsnumber(9))
ElseIf startsound = 10 And zehn > 0 Then
   PlaySound(plsnumber(10))
sv = Input("Lautstärke(zwischen 0 = stille 1 = volles Volumen):")
SoundVolume plsnumber(),sv
If menu = 3 Then End

Function hintergrundfarbe()
Print"Welche Hintergrundfarbe willst du haben?"
Print"(1)Rot"
Print"(2)Grün"
Print"(3)Blau"
hf = Input()
If hf = 1 Then
hf2 = 255
hf3 = 0
hf4 = 0
EndIf
If hf = 2 Then
hf2 = 0
hf3 = 255
hf4 = 0
EndIf
If hf = 3 Then
hf2 = 0
hf3 = 0
hf4 = 255
EndIf
End Function

Function Colour()
If hf = 1 Then c3 = 255
If hf = 2 Then c4 = 255
If hf = 3 Then c3 = 255
End Function
EndIf 
If menu = 2 Then End
Mit freundlichen Grüßen

As$as$iN

simi

 BeitragSo, März 20, 2005 18:05
Antworten mit Zitat
Benutzer-Profile anzeigen
Zitat:

Graphics 640,480
SetBuffer BackBuffer()
Global hf2 = 0
Global hf3 = 0
Global hf4 = 0
Global c2 = 0
Global c3 = 0
Global c4 = 0
Print"(1)Playlist erstellen und sofort starten"
Print"(2)Beenden"
menu = Input("Was willst du machen:")
If menu = 1 Then
hintergrundfarbe()
ClsColor hf2,hf3,hf4
Cls
Color c2,c3,c4
Print"Wenn du zum Beispil Nummer 5-10 nicht besetzen willst, dann gib bei diesen Zahlen einfach"
Print"eine 0 ein!"
Print"Außerdem, die Songs sollten in dem Ordner sein, wo diese Exe datei ist!"
Dim plsnumber(10)
eins = Input ("Song 1, exakter name:")
zwei = Input ("Song 2, exakter name:")
drei = Input ("Song 3, exakter name:")
vier = Input ("Song 4, exakter name:")
fünf = Input ("Song 5, exakter name:")
sechs = Input ("Song 6, exakter name:")
sieben = Input ("Song 7, exakter name:")
acht = Input ("Song 8, exakter name:")
neun = Input ("Song 9, exakter name:")
zehn = Input ("Song 10, exakter name:")
plsnumber(1) = LoadSound(eins)
plsnumber(2) = LoadSound(zwei)
plsnumber(3) = LoadSound(drei)
plsnumber(4) = LoadSound(vier)
plsnumber(5) = LoadSound(fünf)
plsnumber(6) = LoadSound(sechs)
plsnumber(7) = LoadSound(sieben)
plsnumber(8) = LoadSound(acht)
plsnumber(9) = LoadSound(neun)
plsnumber(10) = LoadSound(zehn)
Print"(1) - " + eins
Print"(2) - " + zwei
Print"(3) - " + drei
Print"(4) - " + vier
Print"(5) - " + fünf
Print"(6) - " + sechs
Print"(7) - " + sieben
Print"(8) - " + acht
Print"(9) - " + neun
Print"(10) - " + zehn
startsound = Input("Welchen Song spielen?:")
If startsound = 1 And eins > 0 Then
PlaySound(plsnumber(1))
ElseIf startsound = 2 And zwei > 0 Then
PlaySound(plsnumber(2))
ElseIf startsound = 3 And drei > 0 Then
PlaySound(plsnumber(3))
ElseIf startsound = 4 And vier > 0 Then
PlaySound(plsnumber(4))
ElseIf startsound = 5 And fünf > 0 Then
PlaySound(plsnumber(5))
ElseIf startsound = 6 And sechs > 0 Then
PlaySound(plsnumber(6))
ElseIf startsound = 7 And sieben > 0 Then
PlaySound(plsnumber(7))
ElseIf startsound = 8 And acht > 0 Then
PlaySound(plsnumber(8))
ElseIf startsound = 9 And neun > 0 Then
PlaySound(plsnumber(9))
ElseIf startsound = 10 And zehn > 0 Then
PlaySound(plsnumber(10))
End If
sv# = Input("Lautstärke(zwischen 0 = stille 1 = volles Volumen):")
SoundVolume plsnumber(startsound),sv
End If

If menu = 2 Then End

Function hintergrundfarbe()
Print"Welche Hintergrundfarbe willst du haben?"
Print"(1)Rot"
Print"(2)Grün"
Print"(3)Blau"
hf = Input()
If hf = 1 Then
hf2 = 255
hf3 = 0
hf4 = 0
EndIf
If hf = 2 Then
hf2 = 0
hf3 = 255
hf4 = 0
EndIf
If hf = 3 Then
hf2 = 0
hf3 = 0
hf4 = 255
EndIf
End Function

Function Colour()
If hf = 1 Then c3 = 255
If hf = 2 Then c4 = 255
If hf = 3 Then c3 = 255
End Function
;hier kommt nichts


Bei den fetten setllen habe ich etwas geändert!!

Hellchest

 BeitragSo, März 20, 2005 18:09
Antworten mit Zitat
Benutzer-Profile anzeigen
Code: [AUSKLAPPEN]


Graphics 640,480
SetBuffer BackBuffer()
Global hf2 = 0
Global hf3 = 0
Global hf4 = 0
Global c2 = 0
Global c3 = 0
Global c4 = 0
Print"(1)Playlist erstellen und sofort starten"
Print"(2)Beenden"
menu = Input("Was willst du machen:")
If menu = 1 Then
hintergrundfarbe()
EndIf
ClsColor hf2,hf3,hf4
Cls
Color c2,c3,c4
Print"Wenn du zum Beispil Nummer 5-10 nicht besetzen willst, dann gib bei diesen Zahlen einfach"
Print"eine 0 ein!"
Print"Außerdem, die Songs sollten in dem Ordner sein, wo diese Exe datei ist!"
Dim plsnumber(10)
eins = Input   ("Song 1, exakter name:")
zwei = Input   ("Song 2, exakter name:")
drei = Input   ("Song 3, exakter name:")
vier = Input   ("Song 4, exakter name:")
fünf = Input   ("Song 5, exakter name:")
sechs = Input  ("Song 6, exakter name:")
sieben = Input ("Song 7, exakter name:")
acht = Input   ("Song 8, exakter name:")
neun = Input   ("Song 9, exakter name:")
zehn = Input   ("Song 10, exakter name:")
plsnumber(1) = LoadSound(eins)
plsnumber(2) = LoadSound(zwei)
plsnumber(3) = LoadSound(drei)
plsnumber(4) = LoadSound(vier)
plsnumber(5) = LoadSound(fünf)
plsnumber(6) = LoadSound(sechs)
plsnumber(7) = LoadSound(sieben)
plsnumber(8) = LoadSound(acht)
plsnumber(9) = LoadSound(neun)
plsnumber(10) = LoadSound(zehn)
Print"(1) - " + eins
Print"(2) - " + zwei
Print"(3) - " + drei
Print"(4) - " + vier
Print"(5) - " + fünf
Print"(6) - " + sechs
Print"(7) - " + sieben
Print"(8) - " + acht
Print"(9) - " + neun
Print"(10) - " + zehn
startsound = Input("Welchen Song spielen?:")
If startsound = 1 And eins > 0 Then
   PlaySound(plsnumber(1))
ElseIf startsound = 2 And zwei > 0 Then
   PlaySound(plsnumber(2))
ElseIf startsound = 3 And drei > 0 Then
   PlaySound(plsnumber(3))
ElseIf startsound = 4 And vier > 0 Then
   PlaySound(plsnumber(4))
ElseIf startsound = 5 And fünf > 0 Then
   PlaySound(plsnumber(5))
ElseIf startsound = 6 And sechs > 0 Then
   PlaySound(plsnmuber(6))
ElseIf startsound = 7 And sieben > 0 Then
   PlaySound(plsnumber(7))
ElseIf startsound = 8 And acht > 0 Then
   PlaySound(plsnumber(8))
ElseIf startsound = 9 And neun > 0 Then
   PlaySound(plsnumber(9))
ElseIf startsound = 10 And zehn > 0 Then
   PlaySound(plsnumber(10))
EndIf
sv = Input("Lautstärke(zwischen 0 = stille 1 = volles Volumen):")
SoundVolume plsnumber(),sv
If menu = 3 Then End
Function hintergrundfarbe()
Print"Welche Hintergrundfarbe willst du haben?"
Print"(1)Rot"
Print"(2)Grün"
Print"(3)Blau"
hf = Input()
If hf = 1 Then
hf2 = 255
hf3 = 0
hf4 = 0
EndIf
If hf = 2 Then
hf2 = 0
hf3 = 255
hf4 = 0
EndIf
If hf = 3 Then
hf2 = 0
hf3 = 0
hf4 = 255
EndIf
End Function

Function Colour()
If hf = 1 Then c3 = 255
If hf = 2 Then c4 = 255
If hf = 3 Then c3 = 255
End Function
If menu = 2 Then End




das geht xD

bloß Funktion plsnumber fehlt xD
Projekt: Dash Off: TiMeS!!
Status:N/A
View News Now!
http://www.dashoff.de.vu

Rallimen

Sieger des 30-EUR-Wettbewerbs

BeitragSo, März 20, 2005 18:13
Antworten mit Zitat
Benutzer-Profile anzeigen
plsnumber ist keine Function sondern der Variablen Name des Arrays
da muß eine Nummer rein von 0-10 oder halt eine Variable die den Wert hat, je nachdem wofür es ist!
[BB2D | BB3D | BB+]

SonGoku

 BeitragSo, März 20, 2005 19:33
Antworten mit Zitat
Benutzer-Profile anzeigen
Du solltest die If anweisungen übersichtlicher machen :

BlitzBasic: [AUSKLAPPEN] 

If dies und das = das
    mache dies und das
EndIf


Wie du siehst, kann man sofort erkennen, wo es anfängt und endet Wink
So kannst du solche fehler vermeiden. Würd ich dir nur empfehlen.
Projekt "BlitzPong" --> 100%

BRL Account mit Blitz3D und BlitzMax für nur 67€!!!
Das Buch "Spiele programmieren mit Blitz Basic" für nur 15€!!!
  • Zuletzt bearbeitet von SonGoku am So, März 20, 2005 23:52, insgesamt einmal bearbeitet
 

As$as$iN

 BeitragSo, März 20, 2005 21:36
Antworten mit Zitat
Benutzer-Profile anzeigen
Danke für alles! Ich seh mir mal beide Quellcodes an und danke für deinen Rat SonGoku!!!
Mit freundlichen Grüßen

As$as$iN

Neue Antwort erstellen


Übersicht BlitzBasic Beginners-Corner

Nach Oben

Gehe zu:

Powered by phpBB © 2001 - 2006, phpBB Group