ÖSS Puanı Hesaplama Programı

ÖSS Puanı Hesaplama Programı

Private Declare Function GetSystemMenu Lib "USER32" (ByVal hWnd As Integer, ByVal bRevert As Integer) As Integer
Private Declare Function RemoveMenu Lib "USER32" (ByVal hMenu As Integer, ByVal nPosition As Integer, ByVal wFlags As Integer) As Integer
Private Const Mf_ByPosITION = &H400

Private Sub Form_Load()
Dim mnhandle
mnhandle = GetSystemMenu(hWnd, 0)
Call RemoveMenu(mnhandle, 6, Mf_ByPosITION)
End Sub




Private Sub b1_Click()


'boş değerleri 0 a çevirme başlangıç
If Text1.Text = "" Then
    Text1.Text = "0"
End If
If Text2.Text = "" Then
    Text2.Text = "0"
End If
If Text3.Text = "" Then
    Text3.Text = "0"
End If
If Text4.Text = "" Then
    Text4.Text = "0"
End If
If Text5.Text = "" Then
    Text5.Text = "0"
End If
If Text6.Text = "" Then
    Text6.Text = "0"
End If
If Text7.Text = "" Then
    Text7.Text = "0"
End If
If Text8.Text = "" Then
    Text8.Text = "0"
End If
If Text9.Text = "" Then
    Text9.Text = "0"
End If
If Text10.Text = "" Then
    Text10.Text = "0"
End If
If Text11.Text = "" Then
    Text11.Text = "0"
End If
If Text12.Text = "" Then
    Text12.Text = "0"
End If
If Text13.Text = "" Then
    Text13.Text = "0"
End If
If Text14.Text = "" Then
    Text14.Text = "0"
End If
If Text15.Text = "" Then
    Text15.Text = "0"
End If
'boş değerleri 0 a çevirme son

'Hata mesajı başlangıç
If Text1.Text > 45 Then
    MsgBox ("Yanlış Değer Girdiniz !")
End If
If Text1.Text < 0 Then
    MsgBox ("Yanlış Değer Girdiniz !")
End If
If Text2.Text > 45 Then
    MsgBox ("Yanlış Değer Girdiniz !")
End If
If Text2.Text < 0 Then
    MsgBox ("Yanlış Değer Girdiniz !")
End If
If Text3.Text > 45 Then
    MsgBox ("Yanlış Değer Girdiniz !")
End If
If Text3.Text < 0 Then
    MsgBox ("Yanlış Değer Girdiniz !")
End If
If Text4.Text > 45 Then
    MsgBox ("Yanlış Değer Girdiniz !")
End If
If Text4.Text < 0 Then
    MsgBox ("Yanlış Değer Girdiniz !")
End If
If Text5.Text > 45 Then
    MsgBox ("Yanlış Değer Girdiniz !")
End If
If Text5.Text < 0 Then
    MsgBox ("Yanlış Değer Girdiniz !")
End If
If Text6.Text > 45 Then
    MsgBox ("Yanlış Değer Girdiniz !")
End If
If Text6.Text < 0 Then
    MsgBox ("Yanlış Değer Girdiniz !")
End If
If Text7.Text > 45 Then
    MsgBox ("Yanlış Değer Girdiniz !")
End If
If Text7.Text < 0 Then
    MsgBox ("Yanlış Değer Girdiniz !")
End If
If Text8.Text > 45 Then
    MsgBox ("Yanlış Değer Girdiniz !")
End If
If Text8.Text < 0 Then
    MsgBox ("Yanlış Değer Girdiniz !")
End If
If Text9.Text > 45 Then
    MsgBox ("Yanlış Değer Girdiniz !")
End If
If Text9.Text < 0 Then
    MsgBox ("Yanlış Değer Girdiniz !")
End If
If Text10.Text > 45 Then
    MsgBox ("Yanlış Değer Girdiniz !")
End If
If Text10.Text < 0 Then
    MsgBox ("Yanlış Değer Girdiniz !")
End If
If Text11.Text > 45 Then
    MsgBox ("Yanlış Değer Girdiniz !")
End If
If Text11.Text < 0 Then
    MsgBox ("Yanlış Değer Girdiniz !")
End If
If Text12.Text > 45 Then
    MsgBox ("Yanlış Değer Girdiniz !")
End If
If Text12.Text < 0 Then
    MsgBox ("Yanlış Değer Girdiniz !")
End If
'Hata mesajı son

'Yanlış Değerleri 0 a çevirme başlangıç
If Text1.Text > 45 Then
    Text1.Text = "0"
End If
If Text1.Text < 0 Then
    Text1.Text = "0"
End If
If Text2.Text > 45 Then
    Text2.Text = "0"
End If
If Text2.Text < 0 Then
    Text2.Text = "0"
End If
If Text3.Text > 45 Then
    Text3.Text = "0"
End If
If Text3.Text < 0 Then
    Text3.Text = "0"
End If
If Text4.Text > 45 Then
    Text4.Text = "0"
End If
If Text4.Text < 0 Then
    Text4.Text = "0"
End If
If Text5.Text > 45 Then
    Text5.Text = "0"
End If
If Text5.Text < 0 Then
    Text5.Text = "0"
End If
If Text6.Text > 45 Then
    Text6.Text = "0"
End If
If Text6.Text < 0 Then
    Text6.Text = "0"
End If
If Text7.Text > 45 Then
    Text7.Text = "0"
End If
If Text7.Text < 0 Then
    Text7.Text = "0"
End If
If Text8.Text > 45 Then
    Text8.Text = "0"
End If
If Text8.Text < 0 Then
    Text8.Text = "0"
End If
If Text9.Text > 45 Then
    Text1.Text = "0"
End If
If Text9.Text < 0 Then
    Text9.Text = "0"
End If
If Text10.Text > 45 Then
    Text10.Text = "0"
End If
If Text10.Text < 0 Then
    Text10.Text = "0"
End If
If Text11.Text > 45 Then
    Text11.Text = "0"
End If
If Text11.Text < 0 Then
    Text11.Text = "0"
End If
If Text12.Text > 45 Then
    Text12.Text = "0"
End If
If Text12.Text < 0 Then
    Text12.Text = "0"
End If
'Yanlış Değerleri 0 a çevirme son

'Net hesaplama başlangıç
Dim m, f, t, s
m = Text5 / 4
f = Text6 / 4
t = Text7 / 4
s = Text8 / 4
Text9 = Text1 - m
Text10 = Text2 - f
Text11 = Text3 - t
Text12 = Text4 - s
'Net hesaplama son

'Puan hesaplama başlangıç
Dim sym, syf, syt, sys, eam, eaf, eat, eas, szm, szf, szt, szs

sym = Text9 * 1.662
syf = Text10 * 1.352
syt = Text11 * 0.505
sys = Text12 * 0.176

eam = Text9 * 1.708
eaf = Text10 * 0.219
eat = Text11 * 1.522
eas = Text12 * 0.595

szm = Text9 * 0.457
szf = Text10 * 0.195
szt = Text11 * 1.867
szs = Text12 * 1.24

Text13 = 133.714 + sym + syf + syt + sys
Text14 = 118.113 + eam + eaf + eat + eas
Text15 = 130.813 + szm + szf + szt + szs
'Puan hesaplama son



End Sub

Private Sub Command1_Click()
End
End Sub

Private Sub Picture3_Click()

End sub