Sabtu, 06 Oktober 2012

Program Sederhana VB.Net

Ass..
Sobat bloger semua....semoga hari ini adalah hari lebih baik dari hari kemarin...
och ya kemarin aye baru di kasih tugas nech sama dosen...ya kataya sich kite2 di suruh buat program VB.Net apa aja yang penting pas di Debug hasilnya Ok..
dari pada ilmu itu aye Pendem sendiri,klo kata orang dulu jangan pelit..ntar rejekinya susah...haa...haa..haa
Ok gan kita fokus ke TKP...
Saya buat Program Identitas.
Jangan Lupa di atur propetynya.

Property   setting   silakan   ditentukan   sendiri   yang   terdiri  dari   GroupBox/Frame  (Data   Pribadi, Data
Akademik,   Cetak   Data   Pribadi,   Cetak   Data   Akademik).   Label,   Textbox,   ComboBox   (Sex,Agama, Jenjang,   Program   Studi,  Semester), CheckBox   (Nonton,   Membaca,   Menulis,  Travelling,   Fishing, Shopping), RadioButton (Baru, Pindahan) dan Button (Show, Clear, Exit)
klo udah di atur akan seperti ini tampilannya


klo Desainnya sudah jadi jangan Lupa Scriptnya..


Public Class frmIdentitas
    Sub ShowIdentitasDiri()
        Dim hb1, hb2, hb3, hb4 As String
        Dim hobby As String
        hb1 = "" : hb2 = "" : hb3 = "" : hb4 = ""
        If chkMembaca.Checked = True Then
            hb1 = "Membaca"
        End If
        If chkNonton.Checked = True Then
            hb2 = "Nonton"
        End If
        If chkRenang.Checked = True Then
            hb3 = "Renang"
        End If
        If chkMemancing.Checked = True Then
            hb4 = "Memancing"
        End If
        hobby = hb1 + hb2 + hb3 + hb4
        lblIdentitas.Text = "Nama : " & txtNama.Text & Chr(13) & _
                             "TTL : " & txtTTL.Text & Chr(13) & _
                             "Sex : " & cboSex.Text & Chr(13) & _
                             "Agama : " & cboAgama.Text & Chr(13) & _
                             "Alamat : " & txtAlamat.Text & Chr(13) & _
                             "Telefon : " & txtTelp.Text & Chr(13) & _
                             "Kebangsaan : " & txtKebangsaan.Text & Chr(13) & _
                             "Hobby : " & hobby
    End Sub

    Private Sub btnShow_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnShow.Click
        Call ShowIdentitasDiri()
    End Sub

    Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click
        txtNama.Text = ""
        txtAlamat.Text = ""
        txtTelp.Text = ""
        txtTTL.Text = ""
        txtKebangsaan.Text = ""
        cboAgama.Text = ""
        cboSex.Text = ""
        chkMemancing.Checked = False
        chkMembaca.Checked = False
        chkNonton.Checked = False
        chkRenang.Checked = False
    End Sub

    Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
        End
    End Sub
End Class

klo Desain & Scriptnya sudah tinggal di Debug / F5 dech.


Ok Sekian Tutorial Sederhana dari Aye...
Biar sedikit yang Penting ada Manfaatnya..











2 komentar: