Programalama > VISUAL BASIC.NET

Public Class OssPuan
    Inherits System.Windows.Forms.Form

Windows Form Designer generated code 

        Private Sub txtfendogru_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtfendogru.KeyPress, txtfenyanlis.KeyPress, txtmatdogru.KeyPress, txtmatyanlis.KeyPress, txtsosdogru.KeyPress, txtsosyanlis.KeyPress, txtturkcedogru.KeyPress, txtturkceyanlis.KeyPress

        If Asc(e.KeyChar) <> 8 Then
            e.Handled = Not IsNumeric(e.KeyChar)
        End If

    End Sub

    Private Sub btntemizle_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btntemizle.Click

        If txtfendogru.Text <> "" Or txtfenyanlis.Text <> "" Or txtsosdogru.Text <> "" Or txtsosyanlis.Text <> "" Or txtturkcedogru.Text <> "" Or txtturkceyanlis.Text <> "" Or txtmatdogru.Text <> "" Or txtmatyanlis.Text <> "" Then

            txtfendogru.Text = ""
            txtfenyanlis.Text = ""
            txtmatdogru.Text = ""
            txtmatyanlis.Text = ""
            txtturkcedogru.Text = ""
            txtturkceyanlis.Text = ""
            txtsosdogru.Text = ""
            txtsosyanlis.Text = ""
            lblosspuan.Text = ""

        End If

    End Sub

    Private Sub btnpuan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnpuan.Click

        If txtfendogru.Text <> "" Or txtfenyanlis.Text <> "" Or txtsosdogru.Text <> "" Or txtsosyanlis.Text <> "" Or txtturkcedogru.Text <> "" Or txtturkceyanlis.Text <> "" Or txtmatdogru.Text <> "" Or txtmatyanlis.Text <> "" Then

            Dim turkdogru, turkyanlis, sosdogru, sosyanlis As Double
            Dim fendogru, fenyanlis, matdogru, matyanlis As Double
            Dim osspuan As Double
            Dim puanturu As String
            Dim sayisalpuan, sozelpuan, eapuan As String
            Dim turkcenet, matnet, fennet, sosnet As Double
            Dim a, b, c, d, f, g, h, j As Double
            Dim k, l, m, n, o, p, r, s As Double
            Dim t, u, v, y, z, q, w, é As Double



            If txtturkcedogru.Text <> "" Then
                turkdogru = txtturkcedogru.Text
            Else
                MessageBox.Show("Türkçe doğru sayısı boş geçilemez")
            End If


            If txtturkceyanlis.Text <> "" Then
                turkyanlis = txtturkceyanlis.Text
            Else
                MessageBox.Show("Türkçe yanlış sayısı boş geçilemez")
            End If


            If txtsosdogru.Text <> "" Then
                turkyanlis = txtsosdogru.Text
            Else
                MessageBox.Show("Sosyal doğru sayısı boş geçilemez")
            End If


            If txtsosyanlis.Text <> "" Then
                sosyanlis = txtsosyanlis.Text
            Else
                MessageBox.Show("Sosyal yanlış sayısı boş geçilemez")
            End If



            If txtfendogru.Text <> "" Then
                fendogru = txtfendogru.Text
            Else
                MessageBox.Show("Fen doğru sayısı boş geçilemez")
            End If



            If txtfenyanlis.Text <> "" Then
                fenyanlis = txtfenyanlis.Text
            Else
                MessageBox.Show("Fen yanlış sayısı boş geçilemez")
            End If


            If txtmatdogru.Text <> "" Then
                matdogru = txtmatdogru.Text
            Else
                MessageBox.Show("Matematik doğru sayısı boş geçilemez")
            End If


            If txtmatyanlis.Text <> "" Then
                matyanlis = txtmatyanlis.Text
            Else
                MessageBox.Show("Matematik yanlış sayısı boş geçilemez")
            End If


                puanturu = rbsayisal.Checked Or rbsozel.Checked Or rbeagirlik.Checked


                If puanturu = rbsayisal.Checked Then
                a = turkyanlis / 4
                turkcenet = turkdogru - a
                f = turkcenet * 0.537

                b = sosyanlis / 4
                sosnet = sosdogru - b
                g = sosnet * 0.172

                c = matyanlis / 4
                matnet = matdogru - c
                h = matnet * 1.796

                d = fenyanlis / 4
                fennet = fendogru - d
                j = fennet * 1.404


                If txtfendogru.Text = "" Or txtfenyanlis.Text = "" Or txtsosdogru.Text = "" Or txtsosyanlis.Text = "" Or txtturkcedogru.Text = "" Or txtturkceyanlis.Text = "" Or txtmatdogru.Text = "" Or txtmatyanlis.Text = "" Then
                    MessageBox.Show("Sonuç için tüm sütunları doldurun")
                Else
                    lblosspuan.Text = 124.001 + f + g + h + j
                End If




            ElseIf puanturu = rbsozel.Checked Then

                k = turkyanlis / 4
                turkcenet = turkdogru - k
                o = turkcenet * 2.044

                l = sosyanlis / 4
                sosnet = sosdogru - l
                p = sosnet * 1.252

                m = matyanlis / 4
                matnet = matdogru - m
                r = matnet * 0.508

                n = fenyanlis / 4
                fennet = fendogru - n
                s = fennet * 0.208


                If txtfendogru.Text = "" Or txtfenyanlis.Text = "" Or txtsosdogru.Text = "" Or txtsosyanlis.Text = "" Or txtturkcedogru.Text = "" Or txtturkceyanlis.Text = "" Or txtmatdogru.Text = "" Or txtmatyanlis.Text = "" Then
                    MessageBox.Show("Sonuç için tüm sütunları doldurun")
                Else
                    lblosspuan.Text = 119.425 + o + p + r + s
                End If




        ElseIf puanturu = rbeagirlik.Checked Then

                t = turkyanlis / 4
                turkcenet = turkdogru - t
                z = turkcenet * 1.505

                u = sosyanlis / 4
                sosnet = sosdogru - u
                q = sosnet * 0.543

                v = matyanlis / 4
                matnet = matdogru - v
                w = matnet * 1.714

                y = fenyanlis / 4
                fennet = fendogru - y
                é = fennet * 0.21


                If txtfendogru.Text = "" Or txtfenyanlis.Text = "" Or txtsosdogru.Text = "" Or txtsosyanlis.Text = "" Or txtturkcedogru.Text = "" Or txtturkceyanlis.Text = "" Or txtmatdogru.Text = "" Or txtmatyanlis.Text = "" Then
                    MessageBox.Show("Sonuç için tüm sütunları doldurun")
                Else
                    lblosspuan.Text = 121.215 + z + q + w + é
                End If


            End If
        End If

    End Sub


End Class