Data Buku STMIK Pringsewu

 

Coding :

Private Sub ccmdkeluar_Click()
Unload Me
End Sub

Private Sub cmdbatal_Click()
txtkode.Text = “”
txtjudul.Text = “”
txtpengarang.Text = “”
txttahun.Text = “”
txtpenerbit.Text = “”
txtharga.Text = “”
txtkode.SetFocus
End Sub

Keterangan Jurusan Mahasiswa

 

Code :

Private Sub Command1_Click()
Dim s As String
Text5.Text = “20” & Left(Text2.Text, 2)
s = Mid(Text2.Text, 3, 1)
If s = “1” Then
Text3.Text = “Sistem informatika”
ElseIf s = “2” Then
Text3.Text = “Manajemen informatika”
ElseIf s = “3” Then
Text3.Text = “Tehnik informatika”
ElseIf s = “4” Then
Text3.Text = “manajemen informatika”
End If
s = Mid(Text2.Text, 2, 2)
If s = “2” Then
Text4.Text = “strata satu”
ElseIf s = “22” Then
Text4.Text = “diploma tiga”
ElseIf s = “21” Then
Text4.Text = “diploma satu”
ElseIf s = “22” Then
Text4.Text = “diploma satu”
End If
Text6.Text = Right(Text2.Text, 3)

End Sub

Huruf Mutu

 

Code :

 

Private Sub Combo1_Click()
Dim nama, jurusan As String
Select Case Combo1.Text
Case “12100333”
nama = “RINI MANDA SARI”
jurusan = “SISTEM INFORMASI”
Case “12100421”
nama = “LUCIANA RITONGA”
jurusan = “SISTEM INFORMASI”
Case “12201094”
nama = “DESPIN YULIANCE”
jurusan = “MANAJEMEN INFORMATIKA”
End Select

Text1.Text = nama
Text2.Text = jurusan
Text3.SetFocus

End Sub

Font Color And Font Style

 

Code :

Private Sub Check1_Click()
Label1.FontBold = Check1.Value
End Sub

Private Sub Check2_Click()
Label1.FontItalic = Check2.Value
End Sub

Aplikasi Perhitungan Gaji

 

Code :

Private Sub Command1_Click()
Dim A, B, C, D, E, F As Double
Text4.Text = Val(Text1.Text) + Val(Text2.Text) – Val(Text3.Text)
Text5.Text = Val(Text4.Text) * (0.1)
Text6.Text = Val(Text4.Text) – Val(Text5.Text)
End Sub