Ich würde gern wissen wie der code lautet :
Es soll so funktionieren :
Ich drücke auf einen butten und der sound soll abgespielt werden
Danke für Hilfe

Was ich noch dern wüsste sind die sounds dann im programm gespeichert ?

Was für eine Soundatei soll denn abgespielt werden?
Schau mal hier:http://www.vbarchiv.net/archiv/kat_14.html
Musst mal ein bischen suchen.
Irgenwo da ist auch wie man Soundateien abspielt.
Kommt halt nur drauf an was für eine.

kannst dus mir genau zeigen ich finds ned was ich suche ! bitte

Option Explicit 'Benötigte Objektvariablen

Private VideoW As IVideoWindow
Private Filgraph As FilgraphManager


bei dem text zeigt er fehler an nämlich den hier :
Benutzerdifinirender Typ nicht definiert

Wer lesen kann, ist klar im Vorteil:
http://www.vbarchiv.net/archiv/tipp_502.html

Außerdem gibt es MSDN (Microsoft Developer Network), was ja jeder legalen CD beiliegt. DA stehts auch drin! Ansonsten im Internet MSDN aufmachen und die sogenannte SUCH-Funktion nutzen.

danke

Option Explicit
Dim AnzahlBots As Integer
Dim Zaehler As Integer
Dim BotX(50) As Integer
Dim BotY(50) As Integer
Dim BotDir(50) As Integer


Private Sub From_Load()
Randomize
End Sub


Private Sub Bot_add_Click()
If AnzahlBots < 49 Then
BotX(AnzahlBots) = Int(Rnd * Arena.ScaleWidth)
BotY(AnzahlBots) = Int(Rnd * Arena.ScaleHeight)
AnzahlBots = AnzahlBots + 1
End If
End Sub

Private Sub Bot_update_Timer()
For Zaehler = 0 To (AnzahlBots - 1) Step 1
BotDir(Zaehler) = Int(Rnd * 3)
Next Zaehler
End Sub

Private Sub Bot_zerstören_Click()
If AnzahlBots > 0 Then
AnzahlBots = AnzahlBots - 1
End If
End Sub

Private Sub Bot_Zimer_Timer()
Arena.Cls
For Zaehler = 0 To (AnzahlBots - 1) Step 1
Arena.Circle (BotX(Zaehler), BotY(Zaehler)), 20
If BotDir(Zaehler) = 0 Then BotX(Zaehler) = BotX(Zaehler) + 5
If BotDir(Zaehler) = 1 Then BotX(Zaehler) = BotX(Zaehler) - 5
If BotDir(Zaehler) = 2 Then BotY(Zaehler) = BotY(Zaehler) + 5
If BotDir(Zaehler) = 3 Then BotY(Zaehler) = BotY(Zaehler) - 5

If BotX(Zaehler) > (Arena.ScaleWidth - 50) Then BotDir(Zaehler) = 1
If BotX(Zaehler) < 50 Then BotDir(Zaehler) = 0
If BotY(Zaehler) > (Arena.ScaleHeight - 50) Then BotDir(Zaehler) = 3
If BotY(Zaehler) > 50 Then BotDir(Zaehler) = 2
Next Zaehler

End Sub

Private Sub Picture1_Click()

End Sub



Kann mir jemand sagen wo hier der Fehler is ?

Muss bei diesem
If BotX(Zaehler) > (Arena.ScaleWidth - 50) Then BotDir(Zaehler) = 1
If BotX(Zaehler) < 50 Then BotDir(Zaehler) = 0
If BotY(Zaehler) > (Arena.ScaleHeight - 50) Then BotDir(Zaehler) = 3
If BotY(Zaehler) > 50 Then BotDir(Zaehler) = 2

Nicht in der letzden Zeile das ">" ein "<" sein?

danke hat funktioniert ! Danke danke !

Ps : Kennst du dich mit Visual Basic gut aus ? NEO23 ?