Private Sub Command1_Click()
Text1.Text = Len(SMS)
'Text2(0).Text = Left(SMS, 0)
'Text2(1).Text = Mid(SMS, 1)
'Text2(2).Text = Right(SMS, 2)
For ct = 1 To Len(SMS) - 1
Text2(ct).Text = Mid(SMS, ct, 1)
Next
'************
For ct = 1 To Len(SMS) - 1
If Text2(ct).Text = "A" Then
Label1_Click
delay
End If
If Text2(ct).Text = "B" Then
Label2_Click
delay
End If
If Text2(ct).Text = "C" Then
Label3_Click
delay
End If
If Text2(ct).Text = "D" Then
Label9_Click
delay
End If
If Text2(ct).Text = "E" Then
Label10_Click
delay
End If
If Text2(ct).Text = "F" Then
Label11_Click
delay
End If
If Text2(ct).Text = "G" Then
Label12_Click
delay
End If
If Text2(ct).Text = "H" Then
Label13_Click
delay
End If
If Text2(ct).Text = "I" Then
Label14_Click
delay
End If
If Text2(ct).Text = "J" Then
Label15_Click
delay
End If
If Text2(ct).Text = "K" Then
Label16_Click
delay
End If
If Text2(ct).Text = "L" Then
Label17_Click
delay
End If
If Text2(ct).Text = "M" Then
Label18_Click
delay
End If
If Text2(ct).Text = "N" Then
Label19_Click
delay
End If
If Text2(ct).Text = "O" Then
Label20_Click
delay
End If
If Text2(ct).Text = "P" Then
Label21_Click
delay
End If
If Text2(ct).Text = "Q" Then
Label22_Click
delay
End If
If Text2(ct).Text = "R" Then
Label23_Click
delay
End If
If Text2(ct).Text = "S" Then
Label24_Click
delay
End If
If Text2(ct).Text = "T" Then
Label25_Click
delay
End If
If Text2(ct).Text = "U" Then
Label26_Click
delay
End If
If Text2(ct).Text = "V" Then
Label27_Click
delay
End If
If Text2(ct).Text = "W" Then
Label28_Click
delay
End If
If Text2(ct).Text = "X" Then
Label29_Click
delay
End If
If Text2(ct).Text = "Y" Then
Label30_Click
delay
End If
If Text2(ct).Text = "Z" Then
Label31_Click
delay
End If
Next ct
'************
End Sub
Private Sub delay()
For ct = 1 To 25000
For ct1 = 1 To 1000
Next ct1
Next ct
End Sub
Private Sub Form_Load()
' Set properties needed by MCI to open.
MMControl1.Notify = False
MMControl1.Wait = True
MMControl1.Shareable = False
MMControl1.DeviceType = "WaveAudio"
MMControl1.FileName = "D:\0 PKM\PKM2008\abjad.wav"
' Open the MCI WaveAudio device.
MMControl1.Command = "Open"
MMControl1.TimeFormat = 0
MMControl2.Notify = False
MMControl2.Wait = True
MMControl2.Shareable = False
MMControl2.DeviceType = "WaveAudio"
MMControl2.FileName = "D:\0 PKM\PKM2008\abjad\abjad.wav"
' Open the MCI WaveAudio device.
MMControl2.Command = "Open"
MMControl2.TimeFormat = 0
End Sub
Private Sub Form_Unload(Cancel As Integer)
MMControl1.Command = "Close"
MMControl2.Command = "Close"
End Sub
Private Sub Label1_Click()
MMControl1.From = 200
MMControl1.To = 900
MMControl1.Command = "play"
End Sub
Private Sub Label10_Click()
MMControl1.From = 2800
MMControl1.To = 3300
MMControl1.Command = "play"
End Sub
Private Sub Label11_Click()
MMControl1.From = 3300
MMControl1.To = 3800
MMControl1.Command = "play"
End Sub
Private Sub Label12_Click()
MMControl1.From = 3800
MMControl1.To = 4300
MMControl1.Command = "play"
End Sub
Private Sub Label13_Click()
MMControl1.From = 4300
MMControl1.To = 4900
MMControl1.Command = "play"
End Sub
Private Sub Label14_Click()
MMControl1.From = 4900
MMControl1.To = 5500
MMControl1.Command = "play"
End Sub
Private Sub Label15_Click()
MMControl1.From = 5400
MMControl1.To = 6000
MMControl1.Command = "play"
End Sub
Private Sub Label16_Click()
MMControl1.From = 6000
MMControl1.To = 6600
MMControl1.Command = "play"
End Sub
Private Sub Label17_Click()
MMControl1.From = 6600
MMControl1.To = 7200
MMControl1.Command = "play"
End Sub
Private Sub Label18_Click()
MMControl1.From = 7200
MMControl1.To = 7700
MMControl1.Command = "play"
End Sub
Private Sub Label19_Click()
MMControl1.From = 7700
MMControl1.To = 8300
MMControl1.Command = "play"
End Sub
Private Sub Label2_Click()
MMControl1.From = 900
MMControl1.To = 1600
MMControl1.Command = "play"
End Sub
Private Sub Label20_Click()
MMControl1.From = 8300
MMControl1.To = 8900
MMControl1.Command = "play"
End Sub
Private Sub Label21_Click()
MMControl1.From = 8900
MMControl1.To = 9500
MMControl1.Command = "play"
End Sub
Private Sub Label22_Click()
MMControl1.From = 9500
MMControl1.To = 10100
MMControl1.Command = "play"
End Sub
Private Sub Label23_Click()
MMControl1.From = 10100
MMControl1.To = 10700
MMControl1.Command = "play"
End Sub
Private Sub Label24_Click()
MMControl1.From = 10700
MMControl1.To = 11300
MMControl1.Command = "play"
End Sub
Private Sub Label25_Click()
MMControl1.From = 11300
MMControl1.To = 11900
MMControl1.Command = "play"
End Sub
Private Sub Label26_Click()
MMControl1.From = 11900
MMControl1.To = 12500
MMControl1.Command = "play"
End Sub
Private Sub Label27_Click()
MMControl1.From = 12500
MMControl1.To = 13100
MMControl1.Command = "play"
End Sub
Private Sub Label28_Click()
MMControl1.From = 13100
MMControl1.To = 13600
MMControl1.Command = "play"
End Sub
Private Sub Label29_Click()
MMControl1.From = 13600
MMControl1.To = 14200
MMControl1.Command = "play"
End Sub
Private Sub Label3_Click()
MMControl1.From = 1700
MMControl1.To = 2300
MMControl1.Command = "play"
End Sub
Private Sub Label30_Click()
MMControl1.From = 14200
MMControl1.To = 14600
MMControl1.Command = "play"
End Sub
Private Sub Label31_Click()
MMControl1.From = 14700
MMControl1.To = 15200
MMControl1.Command = "play"
End Sub
Private Sub Label4_Click(Index As Integer)
MMControl2.From = 200
MMControl2.To = 500
MMControl2.Command = "play"
End Sub
Private Sub Label5_Click()
MMControl2.From = 550
MMControl2.To = 900
MMControl2.Command = "play"
End Sub
Private Sub Label6_Click()
MMControl2.From = 1100
MMControl2.To = 1400
MMControl2.Command = "play"
End Sub
Private Sub Label7_Click()
MMControl2.From = 1500
MMControl2.To = 1900
MMControl2.Command = "play"
End Sub
Private Sub Label8_Click()
MMControl2.From = 2000
MMControl2.To = 2400
MMControl2.Command = "play"
End Sub
Private Sub Label9_Click()
MMControl1.From = 2300
MMControl1.To = 2800
MMControl1.Command = "play"
End Sub
semoga anda dapat mengembangkan dengan kreatifitas anda sendiri, baik pelajar, para mahasiswa ataupun para pengembang pikiran lainnya.
semoga bermanfaat.