Tgs VB smstr 3

Private Sub io_Click()
Form8.Show
End Sub

Private Sub nmtgs1_Click()
Form2.Show
End Sub

Private Sub nmtgs2_Click()
Form3.Show
End Sub

Private Sub nmtgs3_Click()
Form4.Show
End Sub

Private Sub nmtgs4_Click()
Form5.Show
End Sub

Private Sub nmtgs5_Click()
Form6.Show
End Sub

Private Sub nmtgs6_Click()
Form7.Show
End Sub

Private Sub re_Click()
Form9.Show
End Sub

Private Sub tgs10_Click()
Form11.Show
End Sub

Private Sub tgs9_Click()
Form10.Show
End Sub

Private Sub Command1_Click()
Dim A, B, C As Double
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
Private Sub Command5_Click()
Text1 = “”
Text2 = “”
Text3 = “”
End Sub
Private Sub Command6_Click()
End
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text2.SetFocus
End If

End sub

Private Sub Combo1_Click()
Dim hargasatuan, jumlahjual, hargapenjualan, discount, hargabayar As Integer
Select Case Combo1.Text
Case “P205”
jeniskomputer = “Pentium II 500 Mega Hz”
hargasatuan = “1500000”
Case “P308”
jeniskomputer = “Pentium III 800 Mega Hz”
hargasatuan = “2100000”
Case “P310”
jeniskomputer = “Pentium III 1.0 Giga Hz”
hargasatuan = “3500000”
Case “P415”
jeniskomputer = “Pentium IV 1.5 Giga Hz”
hargasatuan = “4000000”
Case “P417”
jeniskomputer = “Pentium IV 1.7 Giga Hz”
hargasatuan = “4200000”
Case “P419”
jeniskomputer = “Pentium IV 1.9 Giga Hz”
hargasatuan = “5500000”
Case Else
jeniskomputer = 0
hargasatuan = 0
End Select
Text1.Text = jeniskomputer
Text2.Text = hargasatuan
Text2.SetFocus
End Sub

Private Sub Command1_Click()
Dim hargasatuan, jumlahjual, hargapenjualan, discount, hargabayar As Integer
hargasatuan = Val(Text2.Text)
jumlahjual = Val(Text3.Text)
hargapenjualan = Val(Text4.Text)
discount = Val(Text5.Text)
hargabayar = Val(Text6.Text)
hargapenjualan = Val(Text3.Text) * Val(Text2.Text)
If hargapenjualan > 30000000 Then
discount = hargapenjualan * 0.15
ElseIf hargapenjualan > 25000000 Then
discount = hargapenjualan * 0.1
ElseIf hargapenjualan > 20000000 Then
discount = hargapenjualan * 0.05
ElseIf hargapenjualan > 15000000 Then
discount = hargapenjualan * 0.02
Else
End If
Text2.Text = hargasatuan
Text3.Text = jumlahjual
Text4.Text = hargapenjualan
Text5.Text = discount
Text6.Text = hargapenjualan – discount
Text6.SetFocus
End Sub

Private Sub Command2_Click()
Combo1.SetFocus
Combo1.Text = “”
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
Text4.Text = “”
Text5.Text = “”
Text6.Text = “”
End Sub

Private Sub Command3_Click()
Unload Me
End Sub

Private Sub Form_Load()
Combo1.AddItem “P205”
Combo1.AddItem “P308”
Combo1.AddItem “P310”
Combo1.AddItem “P415”
Combo1.AddItem “P417”
Combo1.AddItem “P419”
End Sub

Private Sub Combo1_Click()
Dim nama, JURUSAN, HM As String
Select Case Combo1.Text
Case “10201001”
nama = “TRI YULIANI”
JURUSAN = “MANAJEMEN INFORMATIKA”
Case “10201002”
nama = “SITI NINGRUM”
JURUSAN = “MANAJEMEN INFORMATIKA”
Case “10301003”
nama = “RIRIN DWI”
JURUSAN = “SISTEM INFORMATIKA”
Case “10201004”
nama = “REVI INDRAWATI”
JURUSAN = “MANAJEMEN INFORMATIKA”
Case “10301005”
nama = “MAHELLA IRVANI”
JURUSAN = “SISTEM INFORMATIKA”
Case “10201006”
nama = “DWI JAYANTI”
JURUSAN = “MANAJEMEN INFORMATIKA”
Case “10201007”
nama = “RONI SETIAWAN”
JURUSAN = “MANAJEMEN INFORMATIKA”
Case “10401008”
nama = “SEVNI JUWITA”
JURUSAN = “TEKNIK INFORMATIKA”
Case “10401009”
nama = “EKA PRATIWI”
JURUSAN = “TEKNIK INFORMATIKA”
Case “10201010”
nama = “EKO JOKO”
JURUSAN = “MANAJEMEN INFORMATIKA”
End Select
Text1.Text = nama
Text2.Text = JURUSAN
End Sub

Private Sub Command1_Click()
Dim NILAIAKHIR As Integer
Dim HURUFMUTU As String
NILAI1 = Val(Text3.Text)
NILAI2 = Val(Text4.Text)
NILAI3 = Val(Text5.Text)
NILAI4 = Val(Text6.Text)
NILAIAKHIR = (NILAI1 + NILAI2 + NILAI3 + NILAI4) / 4
Text7.Text = NILAIAKHIR
If Val(Text7.Text) >= 80 Then
Text8.Text = “A”
ElseIf Val(Text7.Text) >= 70 Then
Text8.Text = “B”
ElseIf Val(Text7.Text) >= 60 Then
Text8.Text = “C”
ElseIf Val(Text7.Text) >= 50 Then
Text8.Text = “D”
ElseIf Val(Text7.Text) <= 50 Then
Text8.Text = “E”
Else
End If
End Sub

Private Sub Command2_Click()
Combo1.SetFocus
Combo1.Text = ” ”
Text1.Text = ” ”
Text2.Text = ” ”
Text3.Text = ” ”
Text4.Text = ” ”
Text5.Text = ” ”
Text6.Text = ” ”
Text7.Text = ” ”
Text8.Text = ” ”
End Sub

Private Sub Command3_Click()
Unload Me
End Sub

Private Sub Form_Load()
Combo1.AddItem “10201001”
Combo1.AddItem “10201002”
Combo1.AddItem “10301003”
Combo1.AddItem “10201004”
Combo1.AddItem “10301005”
Combo1.AddItem “10201006”
Combo1.AddItem “10201007”
Combo1.AddItem “10401008”
Combo1.AddItem “10401009”
Combo1.AddItem “10201010”
End Sub

Private Sub Text3_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text4.SetFocus
End If
End Sub

Private Sub Text4_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text5.SetFocus
End If
End Sub

Private Sub Text5_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text6.SetFocus
End If
End Sub

Private Sub Text6_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Command1.SetFocus
End If
End Sub