Guten Abend zusammen,

als absoluter Laie, habe ich mir nun aus ein paar Code-Schnipsel einen Timer gebaut der mit F2 gestartet wird und wenn dieser abgelaufen ist eine Wave Datei abspielen soll, der Timer funktioniert, nur weiß ich nicht wie ich nun die Wave-Datei einfüge und abspiele, vielleicht kann mir ja jemand helfen.

Hier mein bisheriger Code....

Code :

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39

Public Class Form1       Private Declare Function sndPlaySound Lib "Winmm.dll" Alias _    "sndPlaySoundA" (ByVal lpszSoundName As String, _    ByVal uFlags As Long) As Long         Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Int32) As Integer         Dim AsciiCode As Integer     Dim Taste As Integer       Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load         Label2.Text = "gestoppt"     End Sub       Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick         For i = 1 To 255             Taste = GetAsyncKeyState(i)             If Taste = -32767 Then                 If i = 113 Then                     Label2.Text = "5"                     Timer2.Enabled = True                     Timer2.Interval = 1000                 End If             End If             If Label2.Text = "0" Then                 Timer2.Enabled = False                  sndPlaySound()     /* <-------------- Hier soll die Wave Datei abgespielt werden..                 Label2.Text = "fertig!"             End If         Next     End Sub           Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick         Label2.Text -= 1     End Sub End Class

Liebe Grüße Patrick....

Mal davon abgesehen, dass das ganze .NET ist und daher in das entsprechende Forum gehört, du würdest dir mit der System.Media-Klasse leichter tun.

Code vb:

1 2 3 4 5 6 7 8 9 10 11

Imports System.Media Public Class Form1       Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click         Dim sndPlayer As New System.Media.SoundPlayer()           sndPlayer.SoundLocation = "C:\test.wav"         sndPlayer.Load()         sndPlayer.Play()     End Sub End Class

Das ganze musst du nur mit deinem Timer kombinieren, dann hast du ganz einfach deinen Sound.


Der Doc!