AGENDA
Tutorials - VB.NET
Tutorial 38 : Palindrom (VB User Control)

Program ini akan menentukan apakah sebuah string itu palindrome atau tidak.



Palindrom

Program ini akan menentukan apakah sebuah string itu palindrome atau tidak. Palindrome adalah suatu kata atau kumpulan kata yang jika dibaca dari kiri ke kanan atau dari kanan ke kiri akan bernilai sama.

1) Ketikkan nama submenu ke-14 , yang akan dibuat, yaitu Palindreom.

2) 1. Pada Solution, klik kanan DemoUserControlVB, pilih Add » User Control .

     2. Pilih User Control dan berikan nama pada Name uc_palindrom. Lalu Klik Add.

3) Pada toolbox, double klik atau drag 3 Label,1 Textbox dan2 Button. Lalu pada properties isikan seperti table dibawah ini :

4) Selanjutkan kita akan mengetikkan kode program. Caranya double klik button proses, lalu modifikasi source codenya sehingga menjadi seperti berikut 

'Program   = uc_palindrom.vb
'Tanggal   = Juli 2014
'Deskripsi = Menentukan apakah sebuah string itu palindrom atau tidak

Public Class uc_palindrom
    Dim kata1 As String
    Private Sub btn_proses_Click(sender As Object, e As EventArgs) Handles btn_proses.Click
        kata1 = txt_input.Text
        If txt_input.Text = StrReverse(kata1) Then
            lbl_hasil.Text = "PALINDROM"
        Else
            lbl_hasil.Text = "Bukan PALINDROM"
        End If
    End Sub

    Private Sub btn_hapus_Click(sender As Object, e As EventArgs) Handles btn_hapus.Click
        txt_input.Text = ""
        lbl_hasil.Text = "-"
    End Sub
End Class

5) Pastikan anda telah mengubah source code pada Form1, seperti pada latihan-latihan sebelumnya.Lalu simpan hasil modifikasi dengan CTRL+S.

6) Kemudian, running program dengan menekan tombol CTRL + F5 :

Like or Share This Article




COMMENTS ( 0 )
 
Keep connected with us, mobile apps available now !!