斷了線的小木偶的部落格

  Dim A As New BEEPDOREMI
        Console.Beep(A.DD("D"), 300)
        Console.Beep(A.DD("D"), 300)
        Console.Beep(A.DD("S"), 300)
        Console.Beep(A.DD("S"), 300)
        Console.Beep(A.DD("L"), 300)
        Console.Beep(A.DD("L"), 300)
        Console.Beep(A.DD("S"), 600)

        Console.Beep(A.DD("F"), 300)
        Console.Beep(A.DD("F"), 300)
        Console.Beep(A.DD("M"), 300)
        Console.Beep(A.DD("M"), 300)
        Console.Beep(A.DD("R"), 300)
        Console.Beep(A.DD("R"), 300)
        Console.Beep(A.DD("D"), 600)

        Console.Beep(A.DD("S"), 300)
        Console.Beep(A.DD("S"), 300)
        Console.Beep(A.DD("F"), 300)
        Console.Beep(A.DD("F"), 300)
        Console.Beep(A.DD("M"), 300)
        Console.Beep(A.DD("M"), 300)
        Console.Beep(A.DD("R"), 600)

        Console.Beep(A.DD("D"), 300)
        Console.Beep(A.DD("D"), 300)
        Console.Beep(A.DD("S"), 300)
        Console.Beep(A.DD("S"), 300)
        Console.Beep(A.DD("L"), 300)
        Console.Beep(A.DD("L"), 300)
        Console.Beep(A.DD("S"), 600)

        Console.Beep(A.DD("F"), 300)
        Console.Beep(A.DD("F"), 300)
        Console.Beep(A.DD("M"), 300)
        Console.Beep(A.DD("M"), 300)
        Console.Beep(A.DD("R"), 300)
        Console.Beep(A.DD("R"), 300)
        Console.Beep(A.DD("D"), 600)




Public Class BEEPDOREMI
    Public Function DD(ByVal MUSICBE As String) As Integer
        Dim DA As Integer
        Select Case MUSICBE
            Case "D"
                DA = 523
            Case "R"
                DA = 587
            Case "M"
                DA = 659
            Case "F"
                DA = 698
            Case "S"
                DA = 784
            Case "L"
                DA = 880
            Case "T"
                DA = 988
            Case "DD"
                DA = 1046
        End Select
        Return DA
    End Function
End Class