Minggu, 04 Desember 2011

Latihan 5 - Fungsi String - Visual Basic

Buat Desainnya seperti ini :






dan ni scriptnya ::


' klo lower berarti untuk comand yang menjadi kecil
' klo upper berarti untuk comand yang menjadi besar
' klo proper berarti untuk comand yang awalnya aja menjadi besar

Private Sub Command1_Click()
Text2.Text = ""
Text2.Text = StrConv(Text1.Text, vbUpperCase)
End Sub

Private Sub Command2_Click()
Text2.Text = ""
Text2.Text = StrConv(Text1.Text, vbLowerCase)
End Sub

Private Sub Command3_Click()
Text2.Text = ""
Text2.Text = StrConv(Text1.Text, vbProperCase)
End Sub

Private Sub Command4_Click()
Text1.Text = ""
Text2.Text = ""
End Sub

Private Sub Command5_Click()
Unload Me
End Sub

Tidak ada komentar:

Posting Komentar