Membuat Aplikasi starkey-emoticon

Kali ini Saya akan membahas tentang bagaimana cara membuat aplikasi sederhana (generator) menggunakan VB 6.0, Sebagai contoh Saya ambil syntax dari starkey-emoticon 1.0 .

Oke langsung saja,
1. Buka Vb 6.0
2. New Project Standard EXE


3. Tambahkan 2 buah TextBox & 2 buah CommandButton, dimana Command1 (Caption = Generate) & Command2 (Caption = Clear)


4. Copas semua Code di bawah ini

Private Sub Command1_Click()
Dim data, hasil As String
If Len(Text1.Text) <> 0 Then
hasil = ""
For i = 1 To Len(Text1.Text)
data = LCase(Mid(Text1.Text, i, 1))
Select Case UCase(data)
Case "A"
hasil = hasil & "[[244961858909298]] "
Case "B"
hasil = hasil & "[[344113652270150]] "
Case "C"
hasil = hasil & "[[344991278847613]] "
Case "D"
hasil = hasil & "[[164461493653696]] "
Case "E"
hasil = hasil & "[[196752423751220]] "
Case "F"
hasil = hasil & "[[301630573215430]] "
Case "G"
hasil = hasil & "[[251496118250464]] "
Case "H"
hasil = hasil & "[[266394220086654]] "
Case "I"
hasil = hasil & "[[164866556948132]] "
Case "J"
hasil = hasil & "[[180599335371968]] "
Case "K"
hasil = hasil & "[[209067005843651]] "
Case "L"
hasil = hasil & "[[238594039545396]] "
Case "M"
hasil = hasil & "[[147702285338528]] "
Case "N"
hasil = hasil & "[[309221402452022]] "
Case "O"
hasil = hasil & "[[180901405340714]] "
Case "P"
hasil = hasil & "[[246506925416551]] "
Case "Q"
hasil = hasil & "[[333343613344059]] "
Case "R"
hasil = hasil & "[[123128367803569]] "
Case "S"
hasil = hasil & "[[316143388416019]] "
Case "T"
hasil = hasil & "[[334073456605673]] "
Case "U"
hasil = hasil & "[[199626093460643]] "
Case "V"
hasil = hasil & "[[224202614323263]] "
Case "W"
hasil = hasil & "[[336032459740792]] "
Case "X"
hasil = hasil & "[[205228226232732]] "
Case "Y"
hasil = hasil & "[[142420399202282]] "
Case "Z"
hasil = hasil & "[[157919817645224]] "
Case " "
hasil = hasil & " "
End Select
Next
Text2.Text = hasil
Else
Text2.Text = ""
End If
If Text1 = "" Then
MsgBox "Input kata yang akan di convert...!!!", vbCritical, "Peringatan"
Else
End If

End Sub

Private Sub Command2_Click()
Text1 = ""
Text2 = ""
Text1.SetFocus
End Sub

Private Sub Form_Load()

End Sub


5. Jalankan dengan menekan tombol F5

Semoga bermanfaat, !