[TUT] How to make a Beeper [TUT]

Hello

I will learn you how to make a Beeper in VB08

File > New Project > Windows Application

Make :

- 4 Buttons
- 1 Timer

Here is the code : ( Just Copy and Paste )

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.Stop()
    End Sub

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


    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 Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Me.Hide()
        ShowInTaskbar = False

    End Sub
End Class

Picture:

Press Thanks !

i think this has been posted before, but thanks anyways

.

Originally Posted by XGelite

i think this has been posted before, but thanks anyways

.

I dont know i

, but the version is mine

No Problem

Originally Posted by mizzer3

Hello

I will elarn you how to make a Beeper in VB08

File > New Project > Windows Application

Make :

- 4 Buttons
- 1 Timer

Here is the code : ( Just Copy and Paste )

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.Stop()
    End Sub

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


    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 Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Me.Hide()
        ShowInTaskbar = False

    End Sub
End Class

Picture:

Press Thanks !

Nice man u doing great progress! keep it up!