Vb2010'da Kod Problemi

[felischaus]

İyi günler arkadaşlar, benim sorunum şu, basit bir 2. dereceden kök alma programı yazmak istiyorum visual basic 2010'da ve aşağıdaki gibi bir kod yazdığımda " Value of type 'Double' cannot be converted to 'System.EventArgs' " ve " Value of type 'System.EventArgs' cannot be converted to 'String'. " olmak üzere iki tür hata veriyor, yardımcı olabilir misiniz?

 

 

 

Public Class Form1

 

    Dim a, b, c, d, e, f, g As Integer

 

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        a = Val(TextBox1.Text)

        b = Val(TextBox2.Text)

        c = Val(TextBox3.Text)

        d = b ^ 2 - 4 * a * c

        If d < 0 Then

            TextBox4.Text = "yok"

            TextBox5.Text = "yok"

        End If

        If d = 0 Then

            e = (-b + (d ^ 0.5)) / (2 * a)

            TextBox4.Text = e

            TextBox5.Text = e

        End If

        If d > 0 Then

            f = (-b - (d ^ 0.5)) / (2 * a)

            g = (-b + (d ^ 0.5)) / (2 * a)

            TextBox4.Text = f

            TextBox5.Text = g

        End If

 

 

[pairs]

http://prntscr.com/25rkql  resimde işaretlediğim yerde üst kısımda e diye System.EventArguments tipinde değişken tanımlanmış zaten sende aşagıda double tipinde değer aktarmaya çalışmışsın o yüzden değişken ismini daha düzenli bir isim verirsen hata vermeyecektir.

[felischaus]

Çok teşekkürler :) peki o yukarıdaki e değişkenini farklı bir isimle kaydetmek mümkün müdür, 

ByVal sender As System.Object, ByVal e As System.EventArgs değil de, misalen ByVal sender As System.Object, ByVal SE As System.EventArgs  olarak?

[pairs]

Tabiki kaydedebilirsiniz.

[felischaus]

teşekkür ederim :)