Beeper Pro :D

[sinic907]

Hey helpmijers

Ik ben een dagje bezig geweest met een progje
Met deze programma kun je je vrienden iriteren

1Start het programma
2Klik Go advanced
3Druk op Start
4Kies snelhied
5Dan Hide me
6je kunt het afsluiten in Taskmanger (beeper.vhost.exe)

Als je code wilt van geluidjes moet je maar ff poste

have fun

 

[Yavanna]

leuk...

maar je kan die andere geluidjes niet laten spelen...

 

[sinic907]

Wat gebruik je windows vista ??

 

[Yavanna]

oud en vertrouwde xp;;;

 

[sinic907]

Mmm gek
Ik d8 mischien dat hij geluid niet kon vinden door dat het vista war maar nee
Ach maar den geen functie xD

Klopt deze code ??
Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Console.Beep()
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Timer1.Start()
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Timer1.Stop()
End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Timer1.Interval = 1000
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Console.Beep()
End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
Timer1.Interval = 250
End Sub

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
Timer1.Interval = 100
End Sub

Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
Timer1.Interval = 1
End Sub

Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
Me.Hide()
ShowInTaskbar = False
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
Me.Size = New Size(300, 163)
End Sub

Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
Me.Size = New Size(304, 273)
End Sub

Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
Media.SystemSounds.Exclamation.Play()
End Sub

Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click
Media.SystemSounds.Hand.Play()
End Sub

Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click
Media.SystemSounds.Asterisk.Play()

End Sub

Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
Beep()
End Sub

Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click
If MsgBox("lawl") Then
Media.SystemSounds.Question.Play()
End If
End Sub
End Class

 

[bn2vs]

Zou je je buttons geen degelijke namen geven? zo snap je er de koekjes van...

 

[CoD_NL]

Zou je je buttons geen degelijke namen geven? zo snap je er de koekjes van...

If it was hard to write, it should be hard to read ?