^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
^^ TASARIMCI.....: CİHAT TELLİOĞLU
^^ E-MAİL...........: gecegorusu34000@hotmail.com
^^ OKUL.........: SİLOPİ ENDÜSTRİ MESLEK LİSESİ
^^ İL...........: ŞIRNAK
^^İLÇE...........: SİLOPİ
^^ KONU...........: DERS ORTALAMALARINI HESAPLAMAK
(2 YAZILI 2 SÖZLÜ)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
KULLANILAN BUTONLAR
1 ADET COMBO
1 ADET COMMAND
4 ADET TEXT
5 ADET LABEL
Private Sub Command1_Click()
Label5.Caption = (Val(Text1) + Val(Text2) + Val(Text3) + Val(Text4)) / 4
End Sub
Private Sub Form_Load()
Combo1.AddItem "DERSİNİZİN İSMİ"
Combo1.AddItem "DERSİNİZİN İSMİ"
Combo1.AddItem "DERSİNİZİN İSMİ"
Combo1.AddItem "DERSİNİZİN İSMİ"
Combo1.AddItem "DERSİNİZİN İSMİ"
Combo1.AddItem "DERSİNİZİN İSMİ"
Combo1.AddItem "DERSİNİZİN İSMİ"
Combo1.AddItem "DERSİNİZİN İSMİ"
Combo1.AddItem "DERSİNİZİN İSMİ"
End Sub
Private Sub Text1_Change()
If Val(Text1) > 100 Or 0 > Val(Text1) Then
MsgBox "GİRDİĞİNİZ SAYI 0 İLE 100 ARASI OLMALIDIR"
Text1.Text = ""
End If
End Sub
Private Sub Text2_Change()
If Val(Text2) > 100 Or Val(Text2) < 0 Then
MsgBox "GİRDİĞİNİZ SAYI 0 İLE 100 ARASI OLMALIDIR"
Text2.Text = ""
End If
End Sub
Private Sub Text3_Change()
If Val(Text3) > 100 Or 0 > Val(Text3) Then
MsgBox "GİRDİĞİNİZ SAYI 0 İLE 100 ARASI OLMALIDIR"
Text3.Text = ""
End If
End Sub
Private Sub Text4_Change()
If Val(Text4) > 100 Or 0 > Val(Text4) Then
MsgBox "GİRDİĞİNİZ SAYI 0 İLE 100 ARASI OLMALIDIR"
Text4.Text = ""
End If
End Sub