• Enter Slide 1 Title Here

    This is slide 1 description. Go to Edit HTML of your blogger blog. Find these sentences. You can replace these sentences with your own words.

  • Enter Slide 2 Title Here

    This is slide 2 description. Go to Edit HTML of your blogger blog. Find these sentences. You can replace these sentences with your own words.

  • Enter Slide 3 Title Here

    This is slide 3 description. Go to Edit HTML of your blogger blog. Find these sentences. You can replace these sentences with your own words.

  • Enter Slide 4 Title Here

    This is slide 4 description. Go to Edit HTML of your blogger blog. Find these sentences. You can replace these sentences with your own words.

Rabu, 13 Desember 2017

PROGRAM 3.8

Desember 13, 2017 – by 0
Private Sub Command1_Click() Dim a As String a = Mid(Text2, 1, 4) If a = "2009" Then Text6 = "2009" End If a = Mid(Text2, 5, 1) If a = "A" Then Text7 = "Manajer" Text3 = "A" Text9 = "4000000" Text10 = "1025000" ElseIf a = "B" Then Text7 = "Ka. Seksi" Text3 = "B" Text9 = "3500000" Text10 = "975000" ElseIf...

PROGRAM 3.6

Desember 13, 2017 – by 0
Private Sub Cmdproses_Click() Dim a As String a = Mid(Txtkt, 1, 3) If a = "BIM" Then Txtjk = "BIMA" Txtht = "50000" Txtjb = "16.00" End If If a = "EKO" Then Txtjk = "EKONOMI" Txtht = "35000" Txtjb = "19.00" End If If a = "MUT" Then Txtjk = "MUTIARA" Txtht = "23000" Txtjb =...
Langganan: Postingan (Atom)