Data Mahasiswa dengan vb 6 tanpa database

Option Base 1
Dim data() As dataMahasiswa
Dim indeks As Integer

Private Type dataMahasiswa
nama As String
nomor As String
jurusan As String
tanggal As String
alamat As String
End Type

Sub tampilanForm()
Me.txtNama.Text = data(indeks).nama
Me.txtNim.Text = data(indeks).nomor
Me.txtJurusan.Text = data(indeks).jurusan
Me.txtlahir.Text = data(indeks).tanggal
Me.txtAlamat.Text = data(indeks).alamat

End Sub
Sub daftarMahasiswa()
data(indeks).nama = Me.txtNama.Text
data(indeks).nomor = Me.txtNim.Text
data(indeks).jurusan = Me.txtJurusan.Text
data(indeks).tanggal = Me.txtlahir.Text
data(indeks).alamat = Me.txtAlamat.Text

End Sub

Private Sub Command1_Click()
txtNama.Text = “”
Me.txtNim.Text = “”
Me.txtJurusan.Text = “”
Me.txtlahir.Text = “”
Me.txtAlamat.Text = “”
Me.txtNama.SetFocus

End Sub

Private Sub Command2_Click()
If indeks > LBound(data) Then

daftarMahasiswa
indeks = indeks – 1
tampilanForm
End If
Me.txtInput.Text = indeks
Me.txtNama.SetFocus
End Sub

Private Sub Command3_Click()
Me.txtInput.Text = indeks
If indeks = UBound(data) Then ReDim Preserve data(indeks + 1)
daftarMahasiswa
indeks = indeks + 1
Me.txtInput.Text = indeks
tampilanForm

Me.txtNama.SetFocus
End Sub

Private Sub Command4_Click()
MsgBox “Informasi data mahasiswa” & vbCrLf & _
“Data ke : ” & Me.txtInput.Text & vbCrLf _
& “nama :” & Me.txtNama.Text & vbCrLf _
& “Nim : ” & Me.txtNim.Text & vbCrLf _
& “Jurusan : ” & Me.txtJurusan.Text & vbCrLf _
& “Tanggal Lahir :” & Me.txtlahir.Text & vbCrLf _
& “Alamat : ” & Me.txtAlamat.Text, , “Data Mahasiswa”

End Sub

Private Sub Command5_Click()
End
End Sub

Private Sub Form_Load()
indeks = 1
ReDim data(indeks)
Me.txtInput.Text = indeks

End Sub

Outpunya:

Output

Keterangan : pada TekBox dan Label

Text1 adalah Tektbox pada label Nama yg diubah menjadi textNama

Text2 adalah Tektbox pada label Nim yg diubah menjadi textNim

Text3 adalah Tektbox pada label Jurusan yg diubah menjadi textJurusan

Text4 adalah Tektbox pada label Tanggal Lahir yg diubah menjadi textNamaLahir

Text5 adalah Tektbox pada label Alamat yg diubah menjadi textAlamat

Text6 adalah Tektbox pada label Date ke yg diubah menjadi textInput

Keterangan Pada CommandButtom sebagai Tombol fungsi

Commad1 yg di berinama Pada Caption dengan nama Data Baru

Commad2 yg di berinama Pada Caption dengan nama Data Sebelumnya

Commad3 yg di berinama Pada Caption dengan nama Data Sesudah

Commad4 yg di berinama Pada Caption dengan nama Tampulkan

Commad5 yg di berinama Pada Caption dengan nama Keluar

 

Posted on April 16, 2013, in Uncategorized. Bookmark the permalink. Leave a comment.

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

%d bloggers like this: