program data keluarga dengan vb.NET


NAMA : VASKO EDO GULTOM
NIM : 071402009
MATA KULIAH : PEMROGRAMAN .NET

UJIAN TENGAH SEMESTER (UTS)
KODE SOURCE : DATA KELUARGA VASKO

Public Class FrmKeluarga
Dim i As Integer
Dim j As Integer
Dim a As Integer
Dim JmlLaki As Integer
Dim JmlPerempuan As Integer
Dim idJenkel As Integer
Dim idStatus As Integer
Dim output As String = “”
Dim Keluarga As CKeluarga()
Dim Pekerjaan As CPekerjaan

Private Sub FrmKeluarga_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

‘Set jam, menit dan detik 1
For i = 0 To 23
CBoxJam1.Items.Add(i)
Next
For i = 0 To 59
CBoxMenit1.Items.Add(i)
Next
For i = 0 To 59
CBoxDetik1.Items.Add(i)
Next

‘Set agama 1
CBoxAgama1.Items.Add(“Islam”)
CBoxAgama1.Items.Add(“Kristen”)
CBoxAgama1.Items.Add(“Protestan”)
CBoxAgama1.Items.Add(“Hindu”)
CBoxAgama1.Items.Add(“Buddha”)

‘Set jam, menit dan detik 2
For i = 0 To 23
CBoxJam2.Items.Add(i)
Next
For i = 0 To 59
CBoxMenit2.Items.Add(i)
Next
For i = 0 To 59
CBoxDetik2.Items.Add(i)
Next

‘Set agama 2
CBoxAgama2.Items.Add(“Islam”)
CBoxAgama2.Items.Add(“Kristen”)
CBoxAgama2.Items.Add(“Protestan”)
CBoxAgama2.Items.Add(“Hindu”)
CBoxAgama2.Items.Add(“Buddha”)
End Sub

Private Sub CBoxBulan1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CBoxBulan1.SelectedIndexChanged
‘Set tanggal 1
CBoxTanggal1.Items.Clear()

If CBoxBulan1.Text = “1” Or _
CBoxBulan1.Text = “3” Or _
CBoxBulan1.Text = “5” Or _
CBoxBulan1.Text = “7” Or _
CBoxBulan1.Text = “8” Or _
CBoxBulan1.Text = “10” Or _
CBoxBulan1.Text = “12” Then
For i = 1 To 31
CBoxTanggal1.Items.Add(i)
Next
ElseIf CBoxBulan1.Text = “4” Or _
CBoxBulan1.Text = “6” Or _
CBoxBulan1.Text = “9” Or _
CBoxBulan1.Text = “11” Then
For i = 1 To 30
CBoxTanggal1.Items.Add(i)
¬
Next
Else
If Val(TBoxTahun1.Text) Mod 4 = 0 Then
For i = 1 To 29
CBoxTanggal1.Items.Add(i)
Next
Else
For i = 1 To 28
CBoxTanggal1.Items.Add(i)
Next
End If
End If
End Sub

Private Sub TBoxTahun1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TBoxTahun1.TextChanged

CBoxTanggal1.Items.Clear()

If CBoxBulan1.Text = “2” Then
If Val(TBoxTahun1.Text) Mod 4 = 0 Then
For i = 1 To 29
CBoxTanggal1.Items.Add(i)
Next
Else
For i = 1 To 28
CBoxTanggal1.Items.Add(i)
Next
End If
End If
End Sub
Private Sub CBoxBulan2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CBoxBulan2.SelectedIndexChanged
‘Set tanggal 2
CBoxTanggal1.Items.Clear()

If CBoxBulan2.Text = “1” Or _
CBoxBulan2.Text = “3” Or _
CBoxBulan2.Text = “5” Or _
CBoxBulan2.Text = “7” Or _
CBoxBulan2.Text = “8” Or _
CBoxBulan2.Text = “10” Or _
CBoxBulan2.Text = “12” Then
For i = 1 To 31
CBoxTanggal1.Items.Add(i)
Next
ElseIf CBoxBulan2.Text = “4” Or _
CBoxBulan2.Text = “6” Or _
CBoxBulan2.Text = “9” Or _
CBoxBulan2.Text = “11” Then
For i = 1 To 30
CBoxTanggal2.Items.Add(i)
Next
Else
If Val(TBoxTahun2.Text) Mod 4 = 0 Then
For i = 1 To 29
CBoxTanggal2.Items.Add(i)
Next
Else
For i = 1 To 28
CBoxTanggal2.Items.Add(i)
Next
End If
End If
End Sub

Private Sub TBoxTahun2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TBoxTahun2.TextChanged

CBoxTanggal2.Items.Clear()

If CBoxBulan2.Text = “2” Then
If Val(TBoxTahun2.Text) Mod 4 = 0 Then
For i = 1 To 29
CBoxTanggal2.Items.Add(i)
¬
Next
Else
For i = 1 To 28
CBoxTanggal2.Items.Add(i)
Next
End If
End If
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonOK1.Click
a = 0
Dim Keluarga(a) As CKeluarga
Keluarga(a) = New CKeluarga
Keluarga(a).SetDefaultValue()

Pekerjaan = New CPekerjaan

If RButtonLaki1.Checked = True Then
idJenkel = 1
JmlLaki += 1
ElseIf RButtonPerempuan1.Checked = True Then
idJenkel = 2
JmlPerempuan += 1
End If

Keluarga(a).SetAnggotaKeluarga(TBoxNoKartuKeluarga.Text, _
TBoxKepalaKeluarga.Text, _
idJenkel, _
TBoxTempatLahir1.Text, _
Val(TBoxTahun1.Text), _
Val(CBoxBulan1.Text), _
Val(CBoxTanggal1.Text), _
Val(CBoxJam1.Text), _
Val(CBoxMenit1.Text), _
Val(CBoxDetik1.Text), _
CBoxAgama1.Text, _
0)

Pekerjaan.SetPekerjaan(CBoxBidangPekerjaan.Text, CBoxJenisPekerjaan.Text)

‘Masukkan data ke rich text box
output &= Keluarga(a).GetNoKk & vbTab & _
Keluarga(a).GetNama & vbTab & _
Keluarga(a).GetJenkel & vbTab & _
Keluarga(a).GetTempatLahir & vbTab & _
Keluarga(a).GetTahunLahir & vbTab & _
Keluarga(a).GetBulanLahir & vbTab & _
Keluarga(a).GetTanggalLahir & vbTab & _
Keluarga(a).GetJamLahir & vbTab & _
Keluarga(a).GetMenitLahir & vbTab & _
Keluarga(a).GetDetikLahir & vbTab & _
Keluarga(a).GetAgama & vbTab & _
Keluarga(a).GetStatus & vbTab

‘RichTextBox1.Text = output

a = a + 1
GBoxDataAnggotaKeluarga.Enabled = True

End Sub

Private Sub RButtonIstri_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RButtonIstri.CheckedChanged
If RButtonIstri.Checked = True Then
RButtonPerempuan2.Checked = True
End If
End Sub

Private Sub RButtonLaki2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RButtonLaki2.CheckedChanged
If RButtonLaki2.Checked = True Then
RButtonIstri.Checked = False
End If
End Sub

Private Sub ButtonKembali2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
GBoxDataPokok.Enabled = True
GBoxDataAnggotaKeluarga.Enabled = False
End Sub

Private Sub ButtonSubmit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonSubmit.Click
Dim Keluarga(a) As CKeluarga
Keluarga(a) = New CKeluarga
Keluarga(a).SetDefaultValue()

If RButtonLaki2.Checked = True Then
idJenkel = 1
JmlLaki += 1
ElseIf RButtonPerempuan2.Checked = True Then
idJenkel = 2
JmlPerempuan += 1
End If

If RButtonIstri.Checked = True Then
idStatus = 1
JmlLaki += 1
ElseIf RButtonAnak.Checked = True Then
idStatus = 2
JmlPerempuan += 1
End If

Keluarga(a).SetAnggotaKeluarga(TBoxNoKartuKeluarga.Text, _
TBoxNamaAnggota.Text, _
idJenkel, _
TBoxTempatLahir2.Text, _
Val(TBoxTahun2.Text), _
Val(CBoxBulan2.Text), _
Val(CBoxTanggal2.Text), _
Val(CBoxJam2.Text), _
Val(CBoxMenit2.Text), _
Val(CBoxDetik2.Text), _
CBoxAgama2.Text, _
idStatus)

output &=

a = a + 1

‘Bersihkan seluruh field data anggota keluarga
TBoxNamaAnggota.Text = “”
RButtonLaki2.Checked = False
RButtonPerempuan2.Checked = False
TBoxTempatLahir2.Text = “”
TBoxTahun2.Text = “”
CBoxBulan2.Text = “”
CBoxTanggal2.Text = “”
CBoxJam2.Text = “”
CBoxMenit2.Text = “”
CBoxDetik2.Text = “”
CBoxAgama2.Text = “”
RButtonIstri.Checked = False
RButtonAnak.Checked = False
End Sub

Private Sub ButtonUbahAnggota_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

‘Isi seluruh field data anggota keluarga
TBoxNamaAnggota.Text = “”
RButtonLaki2.Checked = False
RButtonPerempuan2.Checked = False
TBoxTempatLahir2.Text = “”
TBoxTahun2.Text = “”
CBoxBulan2.Text = “”
CBoxTanggal2.Text = “”
CBoxJam2.Text = “”
CBoxMenit2.Text = “”
CBoxDetik2.Text = “”
¬
CBoxAgama2.Text = “”
RButtonIstri.Checked = False
RButtonAnak.Checked = False
End Sub

Private Sub CBoxBidangPekerjaan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CBoxBidangPekerjaan.SelectedIndexChanged

CBoxJenisPekerjaan.Items.Clear()

If CBoxBidangPekerjaan.Text = “Pemerintahan” Then
CBoxJenisPekerjaan.Items.Add(“Presiden”)
CBoxJenisPekerjaan.Items.Add(“PGubernur”)
CBoxJenisPekerjaan.Items.Add(“Walikota”)
CBoxJenisPekerjaan.Items.Add(“Pegawai Negri Sipil”)
CBoxJenisPekerjaan.Items.Add(“Lain-lain”)
ElseIf CBoxBidangPekerjaan.Text = “Kesehatan” Then
CBoxJenisPekerjaan.Items.Add(“Dokter Umum”)
CBoxJenisPekerjaan.Items.Add(“Dokter Spesialis”)
CBoxJenisPekerjaan.Items.Add(“Dokter Gigi”)
CBoxJenisPekerjaan.Items.Add(“Perawat”)
CBoxJenisPekerjaan.Items.Add(“Lain-lain”)
ElseIf CBoxBidangPekerjaan.Text = “Teknologi Informasi” Then
CBoxJenisPekerjaan.Items.Add(“Admin Jaringan”)
CBoxJenisPekerjaan.Items.Add(“Sistem Analis”)
CBoxJenisPekerjaan.Items.Add(“Programmer”)
CBoxJenisPekerjaan.Items.Add(“Grafik Desainer”)
CBoxJenisPekerjaan.Items.Add(“Lain-lain”)
ElseIf CBoxBidangPekerjaan.Text = “Wiraswasta” Then
CBoxJenisPekerjaan.Items.Add(“Pedagang”)
CBoxJenisPekerjaan.Items.Add(“Buruh”)
CBoxJenisPekerjaan.Items.Add(“Supir”)
CBoxJenisPekerjaan.Items.Add(“Lain-lain”)
End If
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Close()
End Sub
End Class

Class.vb
Public Class CKeluarga
Private NoKk As String
Private Nama As String
Private Jenkel As Integer
Private TempatLahir As String
Private TahunLahir As Integer
Private BulanLahir As Integer
Private TanggalLahir As Integer
Private JamLahir As Integer
Private MenitLahir As Integer
Private DetikLahir As Integer
Private Agama As String
Private Status As String
Private TahunUmur As Integer
Private BulanUmur As Integer
Private TanggalUmur As Integer
Private JamUmur As Integer
Private MenitUmur As Integer
Private DetikUmur As Integer

Public Sub SetDefaultValue()
NoKk = “”
Nama = “”
Jenkel = 0
TempatLahir = “”
TahunLahir = 0
BulanLahir = 0
¬
TanggalLahir = 0
JamLahir = 0
MenitLahir = 0
DetikLahir = 0
Agama = “”
Status = “”
TahunUmur = 0
BulanUmur = 0
TanggalUmur = 0
JamUmur = 0
MenitUmur = 0
DetikUmur = 0
End Sub

Public Sub SetAnggotaKeluarga(ByRef NoKkValue As String, _
ByRef NamaValue As String, _
ByRef JenkelValue As Integer, _
ByRef TempatLahirValue As String, _
ByRef TahunLahirValue As Integer, _
ByRef BulanLahirValue As Integer, _
ByRef TanggalLahirValue As Integer, _
ByRef JamLahirValue As Integer, _
ByRef MenitLahirValue As Integer, _
ByRef DetikLahirValue As Integer, _
ByRef AgamaValue As String, _
ByRef StatusValue As Integer)

NoKk = NoKkValue
Nama = NamaValue
Jenkel = JenkelValue
TempatLahir = TempatLahirValue
TahunLahir = TahunLahirValue
BulanLahir = BulanLahirValue
TanggalLahir = TanggalLahirValue
JamLahir = JamLahirValue
MenitLahir = MenitLahirValue
DetikLahir = DetikLahirValue
Agama = AgamaValue
If StatusValue = 0 Then
Status = “Kepala Keluarga”
ElseIf StatusValue = 1 Then
Status = “Istri”
Else
Status = “Anak”
End If
End Sub

Function GetNoKk()
Return NoKk
End Function
Function GetNama()
Return Nama
End Function
Function GetJenkel()
If Jenkel = 1 Then
Return “Laki-laki”
Else
Return “Perempuan”
End If
End Function
Function GetTempatLahir()
Return TempatLahir
End Function
Function GetTahunLahir()
Return TahunLahir
End Function
Function GetBulanLahir()
Return BulanLahir
End Function
Function GetTanggalLahir()
Return TanggalLahir
End Function
Function GetJamLahir()
Return JamLahir
End Function
Function GetMenitLahir()
¬
Return MenitLahir
End Function
Function GetDetikLahir()
Return DetikLahir
End Function
Function GetAgama()
Return Agama
End Function
Function GetStatus()
Return Status
End Function

End Class

Public Class CPekerjaan

Dim BidangPekerjaan As String
Dim jenisPekerjaan As String

Public Sub SetPekerjaan(ByRef BidangPekerjaanValue As String, ByRef JenisPekerjaanValue As String)
BidangPekerjaan = BidangPekerjaanValue
jenisPekerjaan = JenisPekerjaanValue
End Sub

Function GetBidangPekerjaan()
Return Bidangpekerjaan
End Function
Function GetJenisPekerjaan()
Return jenisPekerjaan
End Function
End Class

Tinggalkan Balasan

Please log in using one of these methods to post your comment:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s