kode pemrograman kombo box untuk perhitungan gaji karyawan berdasarkan golongan pada VB pertemuan ke-3

Private Sub Cmdbatal_Click()

kosong

End Sub

Private Sub cmdlagi_Click()

kosong

End Sub

Private Sub Form_load()

cbogolongan.AddItem “I”

cbogolongan.AddItem “II”

cbogolongan.AddItem “III”

cbogolongan.AddItem “IV”

End Sub

Private Sub Cmdkeluar_Click()

Unload Me

End Sub

Private Sub cbogolongan_Click()

Dim gapok, pajak, tunjangan, total As Variant

Select Case cbogolongan.Text

Case “I”

gapok = 1500000

tunjangan = 150000

Case “II”

gapok = 2000000

tunjangan = 200000

Case “III”

gapok = 2500000

tunjangan = 250000

Case “IV”

gapok = 3000000

tunjangan = 300000

Case Else

gapok = 0

tunjangan = 0

End Select

total = gapok + tunjangan

pajak = total * 0.1

txtgapok.Text = gapok

txttunjangan.Text = tunjangan

txtpajak.Text = pajak

txttotal.Text = total – pajak

End Sub

Public Sub kosong()

txtnidn.SetFocus

txtnidn.Text = “”

txtnama.Text = “”

cbogolongan.Text = “”

txtgapok.Text = “”

txttunjangan.Text = “”

txtpajak.Text = “”

txttotal.Text = “”

End Sub

Private Sub txtnind_keypress(keyascii As Integer)

If keyascii = 13 Then

txtnama.SetFocus

End If

End Sub

 

Advertisements

kode pemrograman pada untuk property test pada visual basic(VB)pertemuan ke-3

Private Sub Command1_Click()

    Label2.Caption = Text1.Text

End Sub

Private Sub Command2_Click()

    End

End Sub

Private Sub Option1_Click()

    Label2.ForeColor = vbBlue

End Sub

Private Sub Option2_Click()

    Label2.ForeColor = vbRed

End Sub

Private Sub Check1_Click()

    Label2.FontBold = Check1.Value

End Sub

Private Sub Check2_Click()

    Label2.FontItalic = Check2.Value

End Sub

KODE PROGRAM KOMBO BOX PADA VISUAL BASIC(vb)pertemuan ke-3

Gambar

Private Sub Cbonpm_Click()

Dim nama, jurusan, HM As String

Select Case Cbonpm.Text

 Case “12100429″

 nama = “DIAN WIDIANTO”

 jurusan = “Sistem Informasi”

 Case “12100435″

 nama = “AVIA PUSPITA”

 jurusan = “Manajemen Informatika”

 Case “12100443″

 nama = “EDISUT RAHMAD KARTOLO”

 jurusan = “Tehnik Informatika”

 End Select

 txtnama.Text = nama

 txtjurusan.Text = jurusan

 txtquis.SetFocus

 End Sub

Private Sub Cmdbatal_Click()

Cbonpm.SetFocus

Cbonpm.Text = “”

txtnama.Text = “”

txtjurusan.Text = “”

txtquis.Text = “”

txttugas.Text = “”

txtuts.Text = “”

txtuas.Text = “”

txtna.Text = “”

txthm.Text = “”

End Sub

Private Sub Cmdkeluar_Click()

Unload Me

End Sub

Private Sub Cmdproses_Click()

Dim NA As Integer

Dim HM As String

QUIS = Val(txtquis.Text)

TUGAS = Val(txttugas.Text)

UTS = Val(txtuts.Text)

UAS = Val(txtuas.Text)

NA = (QUIS + TUGAS + UTS + UAS) / 4

txtna.Text = NA

Select Case txtna.Text

 Case Is > 80

 HM = “A”

 Case Is > 70

 HM = “B”

 Case Is > 60

 HM = “C”

 Case Is > 50

 HM = “D”

 Case Is < 50

 HM = “E”

  End Select

  txthm.Text = HM

 End Sub

Private Sub Form_Load()

Cbonpm.AddItem “09100027”

Cbonpm.AddItem “09200048”

Cbonpm.AddItem “09300024”

End Sub

Private Sub txtquis_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txttugas.SetFocus

End If

End Sub

Private Sub txttugas_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtuts.SetFocus

End If

End Sub

Private Sub txtuts_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtuas.SetFocus

End If

End Sub

kode pemrograman pada aplikasi perhitungan gaji pada visual basic pertemuan ke-3

Private Sub cmdKeluar_Click()

End

End Sub

Private Sub cmdProses_Click()

Dim A, B, C, D, E, F As Double

txtD.Text = Val(txtA.Text) + Val(txtB.Text) – Val(txtC.Text)

txtE.Text = Val(txtD.Text) * (0.1)

txtF.Text = Val(txtD.Text) – Val(txtE.Text)

End Sub

Private Sub cmdUlang_Click()

txtA = “”

txtB = “”

txtC = “”

txtD = “”

txtE = “”

txtF = “”

End Sub

Option Button Control, digunakan dalam suatu group, dimana seorang user dapat memilih salah satu saja dalam suatu group.

Gambar

 

Private Sub optRed_Click()

‘Membuat teks bewarna merah

lblTeks.ForeColor = vbRed

End Sub

 

Private Sub chkBold_Click()

‘Membuat teks Tebal

If chkBold.Value = 1 Then

    lblTeks.FontBold = True

Else

    lblTeks.FontBold = False

End If

End Sub

 Gambar

kode pemrograman pada visual basic(VB)pertemuan ke-3

Gambar

Gambar

Private Sub cmdBersih_Click()

‘Mengosongkan isi TextBox

txtBil1.Text = “”

txtBil2.Text = “”

txtHasil.Text = “”

End Sub

 

Private Sub cmdHitung_Click()

‘Deklarasi Variabel Lokal

Dim a As Single

Dim b As Single

Hasil As Single

 

a = txtBil1.Text

b = txtBil2.Text

Hasil = a * b

txtHasil.Text = Hasil

End Sub

 

Private Sub cmdKeluar_Click()

‘Mengakhiri Program

End

End Sub