CARA MEMBUAT INFORMASI DATA DIRI DENGAN VB 6.0

OBJEK	PROPERTIES	VALUE
FORM1	name	frmData_diri
	Caption	Informasi Data Diri
	BorderStyle	3-fixed Dialod
	StartUpPosition	centerscreen
Label1	name	lbljam
	caption	00:00:00
	Appearance	0-flat
	Backstyle	0-transparent
	BorderStyle	1-fixed single
Label2	Name	lbltgl
	Caption	00/00/00
	Appearance	0-flat
	BackStyle	0-transparent
	Borderstyle	1-fixed single
Label3	Name	Label3
	Caption	NAMA
Label4	name	Label4
	Caption	ALAMAT
Label5	Name	Label5
	Caption	JENIS KELAMIN
Label6	Name	Label6
	Caption	PENDIDIKAN AKHIR
Label7	Name	Label7
	Caption	Pekerjaan
Label8	Name	Label8
	Caption	Hobby
Label9	Name	lblHasil
	caption	Hasil
Textbox1	Name	Txtnama
Textbox2	name	txtalamat
Combobox1	Name	cmbpen
Combobox2	Name	cmbpek
Listbox1	Name	lsthobby
Optionbutton1	Name	optlaki
	caption	Laki-Laki
Optionbutton2	Name	optPre
	Caption	Perempuan
Command1	name	cmdTambah1
	caption	TAMBAH
Command2	name	CmdTambah2
	caption	TAMBAH
Command3	Name	cmdTambah3
	caption	TAMBAH
Command4	Name	cmdcetak
	caption	CETAK INFORMASI
Command5	Name	cmdClear
	caption	CLEAR
Command6	Name	cmdExit
	caption	EXIT
Timer1	Name	Timer1
	Interval	100

KODE PROGRAM :

Private Sub cmdClear_Click()

txtNama.Text = ""

txtAlamat.Text = ""

optLaki.Value = False

optPre.Value = False

lblHasil.Caption = ""

lstHobby.Text = ""

cmbPen.Text = ""

cmbPek.Text = ""

End Sub

Private Sub cmdexit_Click()

End

End Sub

Private Sub Form_Activate()

txtNama.SetFocus

End Sub

Private Sub Timer1_Timer()

lblJam.Caption = Time

lblTgl.Caption = Date

End Sub

Private Sub cmdcetak_Click()

Dim jenis, a As String

'hobi = lstHobby.Text

If optLaki.Value = True Then

   jenis = "Laki-Laki"

Else

   jenis = "Perempuan"

End If

'UNTUK JENIS KELAMIN iif (optlaki.value=true),optlaki.caption, optperempuan.caption) '

lblHasil.Caption = "Nama Saya " & txtNama.Text & " Seorang " & jenis & _

", Berpendidikan " & cmbPen.Text & " Saya Tinggal di " & txtAlamat.Text & _

" Pekerjaan Sekarang " & cmbPek.Text & " Hobbyku Adalah "

For i = 0 To lstHobby.ListCount - 1

 If lstHobby.Selected(i) Then

 a = lstHobby.List(i)

 lblHasil.Caption = lblHasil.Caption & ", " & a

End If

Next i

End Sub

Private Sub cmdTambah1_Click()

masukan = InputBox("Tambahkan Jenis Pendidikan yang Baru", "Tambah Pendidikan")

 cmbPen.AddItem masukan

End Sub

Private Sub cmdTambah2_Click()

masuk = InputBox("Masukan Data Pekerjaan", "Add")

cmbPek.AddItem masuk

End Sub

Private Sub cmdTambah3_Click()

mask = InputBox("Masukan Data Hobby", "Add Hobby")

lstHobby.AddItem mask

End Sub

Private Sub Form_Load()

lstHobby.AddItem ("mancing")

lstHobby.AddItem ("Berenang")

lstHobby.AddItem ("Jalan Sore")

lstHobby.AddItem ("Membaca")

lstHobby.AddItem ("Tidur")

lstHobby.AddItem ("Musik")

cmbPen.AddItem ("Sarjana")

cmbPen.AddItem ("SMA")

cmbPen.AddItem ("SMP")

'===============================

cmbPek.AddItem ("Pengusaha")

cmbPek.AddItem ("Pelajar")

End Sub

Private Sub optLaki_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

  cmdCetak.SetFocus

End If

End Sub

Private Sub txtAlamat_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

   optLaki.SetFocus

End If

End Sub

Private Sub txtNama_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

   txtAlamat.SetFocus

End If

End Sub

Untuk teman2 yang ingin sewa hosting atau beli domain bisa disini iya : Link

dan gunakan Kode Kupon Berikut : YBNBLOG20 untuk mendapatkan potongan 5%

*KEJUJURAN ADALAH KEBIJAKSANAAN YANG PALING BAIK *