Minggu, 27 April 2014

Visual Basic

kali ini saya akan mengupload syntaks untuk materi String dari Laporan Visual saya..


Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim data, besar As String
        Dim panjang As Integer
        data = TextBox1.Text
        panjang = data.Length
        besar = data.ToUpper
        kanan = Microsoft.VisualBasic.Right(data, 3)

        ListBox1.Items.Add("Asli: " & data)
        ListBox1.Items.Add("Panjang String: " & CStr(panjang))
        ListBox1.Items.Add("Huruf Besar: " & besar)
        ListBox1.Items.Add("Karakter ke-3 dari kanan: " & kanan)

    End Sub
End Class

Hasilnya setelah di Run adalah:



Tidak ada komentar:

Posting Komentar