Başlangıç > Kodlar > Visual Basic 6 ile ÖSS puanı hesaplama programı

Visual Basic 6 ile Ö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

TD Software


Reklamlar
  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Cevap Yazın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: