Program penyelesaian pembayaran GAJI PEGAWAI PT.TELKOM menggunakan Visual Basic
Public Class Form1
Private Sub Form1_Load(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
golongan.Items.Add("IIIA")
golongan.Items.Add("IIIB")
golongan.Items.Add("IIIC")
End Sub
Private Sub golongan_SelectedIndexChanged(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
golongan.SelectedIndexChanged
If golongan.Text
= "IIIA" Then
gaji.Text = "1500000"
ElseIf
golongan.Text = "IIIB" Then
gaji.Text = "2500000"
Else
gaji.Text = "350000"
End If
End Sub
Private Sub btnproses_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles btnproses.Click
If
gaji.Text = 0.15 * pinjaman.Text Then
End If
gaji_bersih.Text = Val(gaji.Text) -
Val(pinjaman.Text) * 0.15
End Sub
End Class
Demikianlah program penyelesaian pembayaran GAJI PEGAWAI
PT.TELKOM menggunakan Visual Basic
Program penyelesaian pembayaran tagihan air minum menggunakan Visual Basic
Public Class Form1
Private Sub Form1_Load(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
golongan.Items.Add("IIIA")
golongan.Items.Add("IIIB")
golongan.Items.Add("IIIC")
End Sub
Private Sub golongan_SelectedIndexChanged(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
golongan.SelectedIndexChanged
If golongan.Text
= "IIIA" Then
gaji.Text = "1500000"
ElseIf
golongan.Text = "IIIB" Then
gaji.Text = "2500000"
Else
gaji.Text = "350000"
End If
End Sub
Private Sub btnproses_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles btnproses.Click
If
gaji.Text = 0.15 * pinjaman.Text Then
End If
gaji_bersih.Text = Val(gaji.Text) -
Val(pinjaman.Text) * 0.15
End Sub
End Class
Demikianlah program penyelesaian pembayaran GAJI PEGAWAI
PT.TELKOM menggunakan Visual Basic
Program penyelesaian pembayaran tagihan air minum menggunakan Visual Basic
Public Class Form1
Private Sub Form1_Load(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
golongan.Items.Add("IIIA")
golongan.Items.Add("IIIB")
golongan.Items.Add("IIIC")
End Sub
Private Sub golongan_SelectedIndexChanged(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
golongan.SelectedIndexChanged
If golongan.Text
= "IIIA" Then
gaji.Text = "1500000"
ElseIf
golongan.Text = "IIIB" Then
gaji.Text = "2500000"
Else
gaji.Text = "350000"
End If
End Sub
Private Sub btnproses_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles btnproses.Click
If
gaji.Text = 0.15 * pinjaman.Text Then
End If
gaji_bersih.Text = Val(gaji.Text) -
Val(pinjaman.Text) * 0.15
End Sub
End Class
Demikianlah program penyelesaian pembayaran GAJI PEGAWAI
PT.TELKOM menggunakan Visual Basic
Program penyelesaian pembayaran tagihan air minum menggunakan Visual Basic
Public Class Form1
Private Sub Form1_Load(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
golongan.Items.Add("IIIA")
golongan.Items.Add("IIIB")
golongan.Items.Add("IIIC")
End Sub
Private Sub golongan_SelectedIndexChanged(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
golongan.SelectedIndexChanged
If golongan.Text
= "IIIA" Then
gaji.Text = "1500000"
ElseIf
golongan.Text = "IIIB" Then
gaji.Text = "2500000"
Else
gaji.Text = "350000"
End If
End Sub
Private Sub btnproses_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles btnproses.Click
If
gaji.Text = 0.15 * pinjaman.Text Then
End If
gaji_bersih.Text = Val(gaji.Text) -
Val(pinjaman.Text) * 0.15
End Sub
End Class
Tidak ada komentar:
Posting Komentar