Penjelasan program :
RadioButton 2 = Untuk memilih karakter dari sebelah tengah kalimat
RadioButton 3 = Untuk memilih karakter dari sebelah kanan kalimat
Posisi Awal = Posisi karakter yg diinginkan di awal
Posisi Akhir = Posisi karakter yg diinginkan di akhir
Banyak Karakter = Banyaknya karakter yg diinginkan dari kalimat yg di inginkan
Button Proses = Untuk memproses program ini
Button Keluar = Untuk keluar dari program ini
Hasil = Akan tampil suatu hasil dari pemilihan kata yg ada di atas
SCREENSHOOT :
Tampilan Form 1 sebelum didebug :
Saat di debug di ms. Visual Basic :
Tampilan screen shot kodingnya :
Tampilan koding form 1 :
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If rb_kiri.Checked = True Then
txt_awal.Text = "1"
txt_akhir.Text = txt_karakter.Text
txt_hasil.Text = Microsoft.VisualBasic.Left(txt_teks.Text, Val(txt_karakter.Text))
End If
If rb_tengah.Checked = True Then
txt_hasil.Text = Microsoft.VisualBasic.Mid(txt_teks.Text, Val(txt_karakter.Text), Val(txt_akhir.Text))
End If
If rb_kanan.Checked = True Then
txt_awal.Text = Len(txt_teks.Text) - Val(txt_karakter.Text) + 1
txt_akhir.Text = Len(txt_teks.Text)
txt_hasil.Text = Microsoft.VisualBasic.Right(txt_teks.Text, Val(txt_karakter.Text))
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
End
End Sub
End Class
Tidak ada komentar:
Posting Komentar