"Technopat Sistem Toplama" programı

TextBox1.Text = Convert.ToDouble();

[COLOR=#333333]Public Class SayiKutusu[/COLOR]    Inherits System.Windows.Forms.TextBox
    Protected Overrides Sub OnKeyPress(ByVal e As System.Windows.Forms.KeyPressEventArgs)
         e.Handled = Not (Char.IsDigit(e.KeyChar) Or Char.IsControl(e.KeyChar))
    End Sub
End Class

[TABLE="width: 99%, align: center"]
[TR]
[TD="width: 80%, bgcolor: #eef2f7"][TABLE="width: 100%"]
[TR]
[TD][TABLE="width: 100%"]
[TR]
[TD="class: mesaj"][COLOR=blue]If[/COLOR] (Microsoft.VisualBasic.Asc(e.KeyChar) < 48) _
             [COLOR=blue]Or[/COLOR] (Microsoft.VisualBasic.Asc(e.KeyChar) > 57) [COLOR=blue]Then[/COLOR]
            e.Handled = [COLOR=blue]True[/COLOR]
        [COLOR=blue]End If[/COLOR]
        If (Microsoft.VisualBasic.Asc(e.KeyChar) = 8) [COLOR=blue]Then[/COLOR]
            e.Handled = [COLOR=blue]False[/COLOR]
        [COLOR=blue]End If[/COLOR][/TD]
[/TR]
[/TABLE]
[/TD]
[/TR]
[/TABLE]
[/TD]
[/TR]
[/TABLE]

double a, b, c, d, g,k,n;




            a = Convert.ToDouble(textBox1.Text);
            g = Convert.ToDouble(textBox2.Text);
            b = 2;


            c = b - a;


            d = c * (100 / 2);


            k = (g * d) /100;


            n = g + k;
      


            label6.Text = (d).ToString();
            label11.Text = (k).ToString();
            label14.Text = (n).ToString();