foto fren

yahoo 6




Private Sub Command1_Click()
Dim A, B, C, d, e, f As Integer
txtd.Text = Val(txta.Text) + Val(txtb.Text) – Val(txtc.Text)
txte.Text = Val(txtd.Text) * (0.1)
txtf.Text = Val(txtd.Text) – Val(txte.Text)
End Sub
Private Sub Command2_Click()
txta.SetFocus
txta = “”
txtb = “”
txtc = “”
txtd = “”
txte = “”
txtf = “”
End Sub
Private Sub Command3_Click()
Unload Me
End Sub

Private Sub txta_keypress(keyascii As Integer)
If keyascii = 13 Then
txtb.SetFocus
End If
End Sub
Private Sub txtb_keypress(keyascii As Integer)
If keyascii = 13 Then
txtc.SetFocus
End If
End Sub
Private Sub txtc_keypress(keyascii As Integer)
If keyascii = 13 Then
Command1.SetFocus
End If
End Sub

YAHOO 6

Private Sub command1_Click()
If (Check1.Value = 1) And (Check2.Value = 1) Then
Label2.FontBold = True
Label2.FontItalic = True
ElseIf (Check1.Value = 0) And (Check2.Value = 1) Then
Label2.FontBold = False
Label2.FontItalic = True
ElseIf (Check1.Value = 1) And (Check2.Value = 0) Then
Label2.FontBold = True
Label2.FontItalic = False
ElseIf (Check1.Value = 0) And (Check2.Value = 0) Then
Label2.FontBold = False
Label2.FontItalic = False
End If
End Sub
Private Sub command2_Click()
Unload Me
End Sub

Private Sub text1_change()
Label2.Caption = Text1.Text
End Sub
Private Sub option1_click()
Label2.ForeColor = &HFF0000
End Sub
Private Sub option2_click()
Label2.ForeColor = &HFF&
End Sub

TUGAS YAHOO 6

Private Sub combo1_click()
Dim nama, jurusan As String

Select Case Combo1.Text
Case “11100042”
nama = “FITRIYANI”
jurusan = “SISTEM INFORMASI”

Case “11200077”
nama = “PUSPITA DEWI”
jurusan = “MANAJEMEN INFORMATIKA”

Case “11300078”
nama = “SEPTIANA”
jurusan = “TEHNIK INFORMATIKA”

Case “11100079”
nama = “TOTO ISWANTO”
jurusan = “SISTEM INFORMASI”

Case “11200081”
nama = “SUPRAPTO”
jurusan = “MANAJEMEN INFORMATIAKA”

Case “11300082”
nama = “NOVI SUSANTI”
jurusan = “TEHNIK INFORMATIKA”

Case “11100084”
nama = “SUKMAWATI”
jurusan = “SISTEM INFORMASI”

Case “11200085”
nama = “LENI APRIANI”
jurusan = “MANAJEMEN INFORMATIKA”

Case “11300086”
nama = “NURMALITA SARI”
jurusan = “TEHNIK INFORMATIKA”

Case “11200087”
nama = “HENI LESTARI”
jurusan = “MANAJEMEN INFORMATIKA”

End Select
txtb.Text = nama
txtc.Text = jurusan
txtc.SetFocus
End Sub
Private Sub command1_click()
Dim Quis, tgs, uts, uas, Na As Integer
Dim Hm As String
Quis = Val(txtd.Text)
tgs = Val(txte.Text)
uts = Val(txtf.Text)
uas = Val(txtg.Text)
Na = Val(Quis + tgs + uts + uas) / 4
txth.Text = Na

Select Case txth.Text
Case Is > 80
Hm = “A”
Case Is > 70
Hm = “B”
Case Is > 60
Hm = “C”
Case Is > 50
Hm = “D”
Case Is < 50
Hm = “E”
End Select
Label11.Caption = Hm
End Sub
Private Sub command2_click()
Combo1.Text = “”
txtb.Text = “”
txtc.Text = “”
txtd.Text = “”
txte.Text = “”
txtf.Text = “”
txtg.Text = “”
txth.Text = “”
Label1.Caption = “”
End Sub

Private Sub command3_click()
Unload Me
End Sub

Private Sub form_load()
Combo1.AddItem “11100042”
Combo1.AddItem “11200077”
Combo1.AddItem “11300078”
Combo1.AddItem “11100079”
Combo1.AddItem “11200081”
Combo1.AddItem “11300082”
Combo1.AddItem “11100084”
Combo1.AddItem “11200085”
Combo1.AddItem “11300086”
Combo1.AddItem “11200087”
End Sub

Private Sub txtc_keypress(keyascii As Integer)
If keyascii = 13 Then
txtd.SetFocus
End If
End Sub

Private Sub txtd_keypress(keyascii As Integer)
If keyascii = 13 Then
txte.SetFocus
End If
End Sub

Private Sub txte_keypress(keyascii As Integer)
If keyascii = 13 Then
txtf.SetFocus
End If
End Sub

Private Sub txtf_keypress(keyascii As Integer)
If keyascii = 13 Then
txtg.SetFocus
End If
End Sub

Private Sub txti_keypress(keyascii As Integer)
If keyascii = 13 Then
Command1.SetFocus
End If
End Sub

Dragonforce Trail of Broken Hearts Music Video