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..
makasih om
BalasHapusSama-sama Gan...
BalasHapusCasinos in the UK - How to find good games - GrizzGo
BalasHapusSo, what do we mean by “casinos in https://jancasino.com/review/merit-casino/ the UK”? https://vannienailor4166blog.blogspot.com/ to find wooricasinos.info a casino gri-go.com and live casino games on a mobile phone goyangfc.com device in 2021.