Selasa, 19 November 2013





Pertemuan Pertama (I) : Menggunakan Textbox dan Button




Kodingnya sebagai berikut ;

Public Class Form1



Private Sub keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles keluar.Click

End

End Sub



Private Sub hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus.Click

panjang.Text = " "

lebar.Text = " "

luas.Text = " "



End Sub



Private Sub hitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hitung.Click

luas.Text = panjang.Text * lebar.Text

End Sub

End Class




Pertemuan Kedua(II) : Menggunakan Combobox




Kodingnya adalah sebagai berikut;

Public Class Form1



Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nama.TextChanged



End Sub



Private Sub keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles keluar.Click

End

End Sub



Private Sub hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus.Click

npm.Text = " "

nama.Text = " "

dosen.Text = " "

nilaihadir.Text = " "

kuis.Text = " "

nilaiuts.Text = " "

nilaiuas.Text = " "

nilaiakhir.Text = " "



End Sub



Private Sub hitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hitung.Click

nilaiakhir.Text = 0.1 * nilaihadir.Text + 0.15 * kuis.Text + 0.25 * nilaiuts.Text + 0.5 * nilaiuas.Text

End Sub



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

npm.Items.Add("12111076")

npm.Items.Add("12110248")

npm.Items.Add("12110299")

npm.Items.Add("12110786")

npm.Items.Add("12110761")



dosen.Items.Add("Mesran,S.Kom,M.Kom")

dosen.Items.Add("Kristian Siregar")

dosen.Items.Add("Hery Sunandar")

dosen.Items.Add("Pandi Simangunsong")

dosen.Items.Add("Pilipus Tarigan,ST")







End Sub

End Class






Pertemuan Selanjutnya : Perulangan




Kodingnya adalah sebagai berikut;

Public Class Form1



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

Dim i As Integer

For i = 1 To 100

ComboBox1.Items.Add("i")

Next i

i = 100

Do While i >= 1

ComboBox2.Items.Add("STMIK" & i)

i = i - 1

Loop

For i = 100 To 1 Step -1

ListBox1.Items.Add(i)

Next i

For i = 1 To 255

ListBox2.Items.Add(Chr(i))

Next i





End Sub







End Class






Pertemuan Selanjutnya; Fungsi String dan If




Kodingnya adalah sebagai berikut;

Public Class Form2



Private Sub keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles keluar.Click

End

End Sub



Private Sub hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus.Click

Nilaia.Text = ""

keterangan.Text = ""



End Sub



Private Sub proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles proses.Click

If Nilaia.Text >= 50 Then

keterangan.Text = "LULUS"

Else

keterangan.Text = "GAGAL"

End If

End Sub



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



End Sub

End Class




Pertemuan Selanjutnya : Select Case




Kodingnya adalah sebagai berikut;

Public Class Form3



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

nik.Items.Add(2012069436)

nik.Items.Add(2012069437)

nik.Items.Add(2012069490)



jabatan.Items.Add("Manager")

jabatan.Items.Add("Supervisor")

jabatan.Items.Add("Jenderal Manager")



status.Items.Add("Menikah")

status.Items.Add("Tidak Menikah")



End Sub



Private Sub nik_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nik.SelectedIndexChanged

Select Case nik.Text

Case "2012069436"

nama.Text = "Tison November Simanjuntak"

dept.Text = "Finance"



Case "2012069437"

nama.Text = "BOrjong"

dept.Text = "Personalia"



Case "2012069490"

nama.Text = "Sutra Purnama Sari"

dept.Text = "Programmer"

End Select

End Sub



Private Sub nama_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nama.TextChanged



End Sub



Private Sub tunjangan_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tunjangan.TextChanged



End Sub



Private Sub jabatan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jabatan.SelectedIndexChanged

Select Case jabatan.Text

Case "Manager"

pokok.Text = 4000000

pajak.Text = 0.02 * pokok.Text



Case "Supervisor"

pokok.Text = 2500000

pajak.Text = 0.02 * pokok.Text



Case "Jenderal Manager"

pokok.Text = 7000000

pajak.Text = 0.02 * pokok.Text



End Select

End Sub



Private Sub status_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles status.SelectedIndexChanged

Select Case status.Text

Case "Menikah"

tunjangan.Text = 0.15 * pokok.Text



Case "Tidak Menikah"

tunjangan.Text = 0 * pokok.Text







End Select

End Sub



Private Sub proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles proses.Click

total.Text = pokok.Text - pajak.Text + tunjangan.Text

End Sub

End Class




Pertemuan Selanjutnya : Listbox











Kodingnya adalah sebagai berikut ;

Public Class Form3

Sub buattabel()

List.Columns.Add("NIK", 50, HorizontalAlignment.Center)

List.Columns.Add("Nama", 80, HorizontalAlignment.Left)

List.Columns.Add("Departemen", 70, HorizontalAlignment.Left)

List.Columns.Add("Jabatan", 50, HorizontalAlignment.Left)

List.Columns.Add("Gaji Pokok", 50, HorizontalAlignment.Left)

List.Columns.Add("Pajak", 50, HorizontalAlignment.Left)

List.Columns.Add("Tunjangan", 50, HorizontalAlignment.Left)

List.Columns.Add("Status", 50, HorizontalAlignment.Left)

List.Columns.Add("Total Gaji", 90, HorizontalAlignment.Left)

List.View = View.Details

List.GridLines = True

List.FullRowSelect = True



End Sub

Sub isitabel()

Dim l As New ListViewItem

l.Text = nik.Text

l.SubItems.Add(nama.Text)

l.SubItems.Add(dept.Text)

l.SubItems.Add(jabatan.Text)

l.SubItems.Add(pokok.Text)

l.SubItems.Add(pajak.Text)

l.SubItems.Add(tunjangan.Text)

l.SubItems.Add(status.Text)

l.SubItems.Add(total.Text)

List.Items.Add(l)

End Sub

































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

buattabel()



nik.Items.Add(2012069436)

nik.Items.Add(2012069437)

nik.Items.Add(2012069490)



jabatan.Items.Add("Manager")

jabatan.Items.Add("Supervisor")

jabatan.Items.Add("Jenderal Manager")



status.Items.Add("Menikah")

status.Items.Add("Tidak Menikah")



End Sub



Private Sub nik_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nik.SelectedIndexChanged

Select Case nik.Text

Case "2012069436"

nama.Text = "Tison November Simanjuntak"

dept.Text = "Finance"



Case "2012069437"

nama.Text = "BOrjong"

dept.Text = "Personalia"



Case "2012069490"

nama.Text = "Sutra Purnama Sari"

dept.Text = "Programmer"

End Select

End Sub



Private Sub nama_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nama.TextChanged



End Sub



Private Sub tunjangan_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tunjangan.TextChanged



End Sub



Private Sub jabatan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jabatan.SelectedIndexChanged

Select Case jabatan.Text

Case "Manager"

pokok.Text = 4000000

pajak.Text = 0.02 * pokok.Text



Case "Supervisor"

pokok.Text = 2500000

pajak.Text = 0.02 * pokok.Text



Case "Jenderal Manager"

pokok.Text = 7000000

pajak.Text = 0.02 * pokok.Text



End Select

End Sub



Private Sub status_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles status.SelectedIndexChanged

Select Case status.Text

Case "Menikah"

tunjangan.Text = 0.15 * pokok.Text



Case "Tidak Menikah"

tunjangan.Text = 0 * pokok.Text







End Select

End Sub



Private Sub proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles proses.Click

total.Text = pokok.Text - pajak.Text + tunjangan.Text

End Sub



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



End Sub



Private Sub List_SelectedIndexChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles List.SelectedIndexChanged



End Sub



Private Sub simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan.Click

isitabel()

nik.Text = ""

nama.Text = ""

dept.Text = ""

jabatan.Text = ""

pokok.Text = ""

pajak.Text = ""

tunjangan.Text = ""

status.Text = ""

total.Text = ""

End Sub

End Class







Byeeeee...................

Sampai bertemu kembali ya sob, diwaktu berikutnya !!!!!!!!!!!!!!!!!!!!!!



salam hangat !!!!!!!!!!!!!!!
Diposting oleh di

Tidak ada komentar:

Posting Komentar

Langganan: Posting Komentar (Atom)