Private Sub Mif_Click()
Form2.Show
End Sub
Private Sub Mvar_Click()
Form1.Show
End Sub
Private Sub Timer1_Timer()
Label1 = Mid(Label1, 2, Len(Label1) - 1) + Left(Label1, 1)
End Sub
Private Sub Mif_Click()
Form2.Show
End Sub
Private Sub Mvar_Click()
Form1.Show
End Sub
Private Sub Timer1_Timer()
Label1 = Mid(Label1, 2, Len(Label1) - 1) + Left(Label1, 1)
End Sub
Private Sub Command1_Click()If Combo1.Text = "keyboard" Then
Text1.Text = 150000
Else
If Combo1.Text = "monitor" Then
Text1.Text = 800000
Else
If Combo1.Text = "mouse" Then
Text1.Text = 600000
End If
End If
End If
Text3.Text = Val(Text1.Text) * Val(Text2.Text)
If Val(Text2.Text) >= 20 Then
Text4.Text = Val(Text3.Text) * 0.1
Else
If Val(Text2.Text) <>= 10 Then
Text4.Text = Val(Text3.Text) * 0.05
Else
If Val(Text2.Text) <>
Text4.Text = Val(Text3.Text) * 0
End If
End If
End If
Text5.Text = Val(Text3.Text) - Val(Text4.Text)
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub Form_Load()
Combo1.AddItem "keyboard"
Combo1.AddItem "monitor"
Combo1.AddItem "mouse"
End Sub
Private Sub Timer1_Timer()
Label7 = Mid(Label7, 2, Len(Label7) - 1) + Left(Label7, 1)
End Sub
Private Sub form_load()Ckul.AddItem "**legal copy** of **legal copy** of visual basic"
Ckul.AddItem "algoritma"
Ckul.AddItem "bhs. inggris"
Ckul.AddItem "pend. agama"
Ckul.AddItem "pemrograman web"
Ckul.AddItem "kewarganegaraan"
Ckul.AddItem "kalkulus"
End Sub
Private Sub Textuas_Change()
Dim absen As Single
Dim tugas As Single
Dim uts As Single
Dim uas As Single
absen = Val(Textabsen.Text) * 0.1
tugas = Val(Texttugas.Text) * 0.2
uts = Val(Textuts.Text) * 0.3
uas = Val(Textuas.Text) * 0.4
Labelakhir.Caption = "Nilai Anda adalah :" & absen + tugas + uts + uas
End Sub
Private Sub Timer1_Timer()
Label3 = Mid(Label3, 2, Len(Label3) - 1) + Left(Label3, 1)
End Sub
