Menbuat program nasabah VB 6

Menbuat program nasabah VB 6

disini kita akan membuat contoh program nasabah yang simple.ini hanya contoh saja ,karena kita belajar dari sesuatu hal yang terkecil.. hehe

pertama-tama buka microsoft visual studio 6 -> pilih standard AXE di new project .

kemudian buat label sebanyak 6,textbox sebanyak 3, 1 optionbutton copy menjadi 2, 1 combobbox, 1 checkbox copy menjadi 3, dan commandbutton sebanyak 2

letakan object tersebut di form sesuai dengan gambar 1

gambar 1

ganti properties nya :

jika sudah silahkan kalian double click command1, dan ketik kode nya:

Private Sub Command1_Click()

Dim data As String

Dim i As Integer

Dim a As Integer

data = "No Rekening : " & Text1.Text & Chr(13)

data = data & "Nama Nasabah : " & Text2.Text & Chr(13)

data = data & "Alamat : " & Text3.Text & Chr(13)

For i = 0 To 1

    If Option1(i).Value = True Then

    data = data & "Status : " & Option1(i).Caption & Chr(13)

    End If

    Next

data = data & "Jenis Rekening : " & Combo1.Text & Chr(13)

data = data & "Cabang : "

For a = 0 To 2

    If Check1(a).Value = vbChecked Then

    data = data & Check1(a).Caption & " "

    End If

    Next

    'www.alimahmud23.co.cc

MsgBox data, , "Data Nasabah"

pesan = MsgBox("Apakah data ingin ditampilkan lagi??", vbOKCancel, "Keluar")

If pesan = vbOK Then

Form1.Show

Else

End

End If

End Sub

double click di command2 ,ketik kodenya:

Private Sub Command2_Click()

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Option1(1).Value = False

Combo1.Text = ""

Text1.SetFocus

End Sub

jika sudah silahkan kalian run program nya:

dan seperti ini lah output nya:

disini kita akan membuat contoh program nasabah yang simple.ini hanya contoh saja ,karena kita belajar dari sesuatu hal yang terkecil.. hehe

pertama-tama buka microsoft visual studio 6 -> pilih standard AXE di new project .

kemudian buat label sebanyak 6,textbox sebanyak 3, 1 optionbutton copy menjadi 2, 1 combobbox, 1 checkbox copy menjadi 3, dan commandbutton sebanyak 2

letakan object tersebut di form sesuai dengan gambar 1

gambar 1

ganti properties nya :

jika sudah silahkan kalian double click command1, dan ketik kode nya:

Private Sub Command1_Click()

Dim data As String

Dim i As Integer

Dim a As Integer

data = "No Rekening : " & Text1.Text & Chr(13)

data = data & "Nama Nasabah : " & Text2.Text & Chr(13)

data = data & "Alamat : " & Text3.Text & Chr(13)

For i = 0 To 1

    If Option1(i).Value = True Then

    data = data & "Status : " & Option1(i).Caption & Chr(13)

    End If

    Next

data = data & "Jenis Rekening : " & Combo1.Text & Chr(13)

data = data & "Cabang : "

For a = 0 To 2

    If Check1(a).Value = vbChecked Then

    data = data & Check1(a).Caption & " "

    End If

    Next

    'www.alimahmud23.co.cc

MsgBox data, , "Data Nasabah"

pesan = MsgBox("Apakah data ingin ditampilkan lagi??", vbOKCancel, "Keluar")

If pesan = vbOK Then

Form1.Show

Else

End

End If

End Sub

double click di command2 ,ketik kodenya:

Private Sub Command2_Click()

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Option1(1).Value = False

Combo1.Text = ""

Text1.SetFocus

End Sub

jika sudah silahkan kalian run program nya:

dan seperti ini lah output nya: