PROGRAM 1 FORM 1 Private Sub cbogol_Click() Dim gapok, pajak, tunjangan, total As Variant Select Case cbogol.Text Case “I” gapok = 1500000 tunjangan = 200000 Case “II” gapok = 2000000 tunjangan = 200000 Case “III” gapok = 2500000 tunjangan = 250000 Case “IV” gapok = 3000000 tunjangan = 350000 Case Else gapok = 0 tunjangan… Continue reading TUGAS AKHIR SEMESTER II

PROGRAM 1 Private Sub cbogol_Click() Dim gapok, pajak, tunjangan, total As Variant Select Case cbogol.Text Case “I” gapok = 1500000 tunjangan = 200000 Case “II” gapok = 2000000 tunjangan = 200000 Case “III” gapok = 2500000 tunjangan = 250000 Case “IV” gapok = 3000000 tunjangan = 350000 Case Else gapok = 0 tunjangan = 0… Continue reading TUGAS 5

PROGRAM FONT COLOUR & FONT STYLE PROGRAM 1 Private Sub Chkbold_Click() If Chkbold.Value = 1 Then txt1.FontBold = True Else txt1.FontBold = False End If End Sub   Private Sub Chkitalic_Click() If Chkitalic.Value = 1 Then txt1.FontItalic = True Else txt1.FontItalic = False End If End Sub   Private Sub Chkstrikethru_Click() If Chkstrikethru.Value = 1… Continue reading TUGAS 4

PROGRAM PERHITUNGAN HARGA   1.1      PROGRAM 1 Private Sub Command1_Click() Text2.Text = Val(Text1) * 0.2 Text3.Text = Val(Text1) – Val(Text2)   End Sub   Private Sub Command2_Click() Text1.SetFocus Text1 = “” Text2 = “” Text3 = “” End Sub   Private Sub Command3_Click() End End Sub   1.2     PROGRAM 2 Private Sub Command1_Click() Text2.Text =… Continue reading TUGAS 3

Private Sub text1_keypress(Keyascii As Integer) If Keyascii = 13 Then Text2.SetFocus End If End Sub Private Sub Command1_Click() Text3.Text = Val(Text1.Text) + Val(Text2.Text) End Sub Private Sub Command2_Click() Text3.Text = Val(Text1.Text) * Val(Text2.Text) End Sub Private Sub Command3_Click() Text3.Text = Val(Text1.Text) / Val(Text2.Text) End Sub Private Sub Command4_Click() Text3.Text = Val(Text1.Text) – Val(Text2.Text) End Sub… Continue reading TUGAS 2

Private Sub cmdbatal_Click() txtnpm.Text = “” txtnama.Text = “” txtalamat.Text = “” txtprody.Text = “” txtjur.Text = “” Txtagama.Text = “” End Sub Private Sub Cmdkeluar_Click() End End Sub Private Sub cmdlagi_Click() txtnpm.Text = “” txtnama.Text = “” txtalamat.Text = “” txtprody.Text = “” txtjur.Text = “” Txtagama.Text = “” End Sub Private Sub txtalamat_KeyPress(KeyAscii… Continue reading TUGAS 1

Facebook dikabarkan sedang bersiap untuk meluncurkan aplikasi tersendiri khusus untuk berita dalam waktu dekat. Untuk mendukung aplikasi ini, Facebook disebut telah bekerja sama dengan penyedia konten dari beberapa media ternama. Mengutip informasi dari laman Financial Times, Jumat (6/11/2015), aplikasi bernama Notify ini merupakan kelanjutan dari fitur Instant Article milik Facebook yang hadir beberapa bulan lalu… Continue reading TEKNOLOGI – Facebook Siapkan Notify Sebagai Aplikasi Khusus Baca Berita