All Stories

Data Mahasiswa dan Harga

Codenya: Private Sub Command1_Click() Dim jr, ps As String Text5.Text = “20″ & Left(Text2.Text, 2) a = Mid(Text2.Text, 3, 1) If a = “1″ Then jr = “sistem ...

Koneksi VB dengan Access

  Private Sub Command1_Click() Dim snpm As String snpm = InputBox(“npm:”) Adodc1.Recordset.MoveFirst Adodc1.Recordset.Find “npm =” & snpm & “” End Sub Private ...

VB Data Diri Mahasiswa

  Code VB Data Diri Mahasiswa : Private Sub Command1_Click() Dim S As String Text5.Text = “20″ & Left(Text2.Text, 2) S = Mid(Text2.Text, 3, 1) If S = “1″ ...

VB Huruf Mutu Mahasiswa STMIK Pringsewu

  Code VB Huruf Mutu Mahasiswa STMIK Pringsewu : Private Sub Combo1_Click() Dim nama, jurusan, NM As String Select Case Combo1.Text Case “12100654″ nama = “Rivandi ...

VB Data Buku Perpustakaan Milik Bersama

  Code VB Data Buku Perpustakaan Milik Bersama : Private Sub Command1_Click() Dim jb, pg, tt As String Dim pt, hg As Variant Text3.Text = “20″ & Mid(Combo1.Text, ...

VB Gaji Pokok Tunjangan

  Code VB Gaji Pokok Tunjangan : Private Sub Combo1_Click() Dim gapok, pajak, tunjangan, total As Variant Select Case Combo1.Text Case “I” gapok = 1500000 tunjangan ...
Powered by Joomla · Designed by Ivan Cyber System

Switch to our mobile site