计算机VB编程

如何用VB编写一个MP3播放器，求原代码。

答案：
我这有一个简单的计算机代码
结构如下：
代码：
Dim index
Private Sub Command1_Click()
    index = "+"
End Sub
Private Sub Command2_Click()
    index = "-"
End Sub
Private Sub Command3_Click()
    index = "*"
End Sub
Private Sub Command4_Click()
    index = "/"
End Sub
Private Sub Command5_Click()
    Select Case index
        Case "+"
            Text3.Text = Val(Text1.Text) + Val(Text2.Text)
        Case "-"
            Text3.Text = Val(Text1.Text) - Val(Text2.Text)
        Case "*"
            Text3.Text = Val(Text1.Text) * Val(Text2.Text)
        Case "/"
            Text3.Text = Val(Text1.Text) / Val(Text2.Text)
    End Select
End Sub
Private Sub Command6_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub
 
楼主给分哦！
最简单的办法是利用API函数mciSendString 

　　mciSendString 函数可以播放 MP3、WAV、MID 音乐文件及 CD 碟片，它有 4个参数，
在播放音乐时只需第一个参数就可以了，该参数是一个字符串，其内容主要包括 5项，各项
之间以空格分隔：
　1.操作命令。例如打开文件 Open，关闭文件 Close，等等
　2.全路径音乐文件名。
　3.播放类型。如果是 MP3，就可以省略
　4.别名。这是由用户自己指定的一个名称，以代表第 2、3 项内容,这样在后续的操作中，
在操作命令后面使用别名就可以了，否则你在所有的操作命令后面都得写上第 2、3 项。别
名一般在 Open 命令时设定。
　5.附加命令。如 FROM 0 表示从 0 毫秒处开始播放

代码如下：

……
If Dir(MusicName) <> "" Then '如果盘上有这个音乐文件
  ST = UCase(Right(MusicName, 3))
  If ST = "MP3" Then '如果是 MP3
    mciSendString "open " & MusicName & " alias music", 0&, 0, 0
  ElseIf ST = "WAV" Then '如果是 WAV
    mciSendString "open " & MusicName & " type waveaudio alias music", 0&, 0, 0
  Else '如果是 MID
    mciSendString "open " & MusicName & " type sequencer alias music", 0&, 0, 0
  End If
  mciSendString "play music FROM 0", 0&, 0, 0
End If
 
现在很少有人用VB啦，过时了，懂编程的专家都用Java啦。看你应该是个高学历的人，建议你还是学Java吧。现在北大青鸟北大公学推出新课程，适合高学历的人学习，是混合式教学，挺不错的。可以加了解 93 60 5 41 13

上一个：VB汉诺塔编制
下一个：VB中缺少列表分隔符