Arsip Bulanan: Januari 2015

D. PROGAM 4

A. progam 4   Private Sub Cbogolongan_Click() Dim gapok, tunjangan, pajak, total As Variant Select Case Cbogolongan.Text Case “I” gapok = 5000000 tunjangan = 500000 Case “II” gapok = 5000000 tunjangan = 5000000 Case “III” gapok = 7000000 tunjangan = … Baca lebih lanjut

Dipublikasi di Tak Berkategori | Meninggalkan komentar

C. PROGAM 3

A. progam 3 Private Sub Cbonpm_Click() Dim nama, jurusan, HM As String Select Case Cbonpm.Text Case “14100571” nama = “YAZID BAROKATULLOH” jurusan = “Sistem Informasi” Case “14100257” nama = “DWI KURNIAWAN” jurusan = “Sistem Informasi” Case “14100419” nama = “IQBAL … Baca lebih lanjut

Dipublikasi di Tak Berkategori | Meninggalkan komentar

B. PROGAM 2

A. progam 2 Private Sub chkBold_Click() Label2.FontBold = ChkBold.Value End Sub   Private Sub chkItalic_Click() Label2.FontItalic = ChkItalic.Value End Sub   Private Sub chkStrike_Click() Label2.FontStrikethru = ChkStrike.Value End Sub   Private Sub chkUnder_Click() Label2.FontUnderline = ChkUnder.Value End Sub   Private … Baca lebih lanjut

Dipublikasi di Tak Berkategori | Meninggalkan komentar

PROGAM 1

A. progam 1   Private Sub Check1_Click() If Check1.Value = 1 Then Label1.FontBold = True Else Label1.FontBold = False End If End Sub   Private Sub Check2_Click() If Check2.Value = 1 Then Label1.FontItalic = True Else Label1.FontItalic = False End … Baca lebih lanjut

Dipublikasi di Tak Berkategori | Meninggalkan komentar

E. TUNJANGAN GAJI POKOK

tunjangan gaji pokok Private Sub Command1_Click() Text4.Text = Val(Text1) + Val(Text2) – Val(Text3) Text5.Text = Val(Text4) * 0.1 Text6.Text = Val(Text4) – Val(Text5) End Sub Private Sub Command2_Click() Text1.SetFocus Text1 = “” Text2 = “” Text3 = “” Text4 = … Baca lebih lanjut

Dipublikasi di Tak Berkategori | Meninggalkan komentar

D. PERHITUNGAN HARGA 10%

perhitungan harga 10% Private Sub Command1_Click() Text2.Text = Val(Text1) * 0.1 Text3.Text = Val(Text1) – Val(Text2) End Sub Private Sub Command2_Click() Text1.secfocus Text1 = “” Text2 = “” Text3 = “” End Sub Private Sub Command3_Click() End End Sub Private … Baca lebih lanjut

Dipublikasi di Tak Berkategori | Meninggalkan komentar

C. TUGAS 3

1. tugas 3 Private Sub Command1_Click() Text3.Text = Val(Text1.Text) + Val(Text2.Text) Text6.Text = Val(Text4.Text) * Val(Text5.Text) Text9.Text = Val(Text7.Text) – Val(Text8.Text) Text12.Text = Val(Text10.Text) / Val(Text11.Text) End Sub Private Sub Command2_Click() Text1.SetFocus Text1 = “” Text2 = “” Text3 = … Baca lebih lanjut

Dipublikasi di Tak Berkategori | Meninggalkan komentar