здравейте пиша един калкулатор на VB 2005 но нещо не става кажете къде ми е грашката може и на skype: stefan_382

 CODE

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55

Public Class Form1     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load         Imports System.Math         Public Class Form1         Dim Danni1, Danni2 As Double 'Zadavane na promenlivi     End Sub     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click         On Error Resume Next         Danni1 = Input1.Text 'Promenlivi         Danni2 = Input2.Text         If RadioButton1.Checked = True Then 'Sabirane             Output.Text = Danni1 + Danni2         End If         If RadioButton2.Checked = True Then 'Izvajdane             Output.Text = Danni1 - Danni2         End If         If RadioButton3.Checked = True Then 'Umnojenie             Output.Text = Danni1 * Danni2         End If         If RadioButton4.Checked = True Then 'Delenie             Output.Text = Danni1 / Danni2         End If         If RadioButton4.Checked = True Then 'Stepen             Output.Text = Danni1 ^ Danni2         End If         If RadioButton6.Checked = True Then 'Koren             Output.Text = Sqrt(Danni1)         End If         If RadioButton7.Checked = True Then 'celo4isleno delenie             Output.Text = Danni1 \ Danni2         End If         If RadioButton8.Checked = True Then 'Delenie s ostatuk MOD             Output.Text = Danni1 Mod Danni2         End If         If RadioButton9.Checked = True Then 'Namirane na %             Output.Text = (Danni1 * Dani2) / 100         End If     End Sub     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click         End     End Sub End Class