كود التحويل من والى

السلام عليكم 

انظر المثال المرفق

Public Class Form1

    Private Sub rb_CheckedChanged(sender As Object, e As EventArgs) Handles rbValue.CheckedChanged, rbResult.CheckedChanged, txtvalue.TextChanged
        Try
            If Decimal.TryParse(txtvalue.Text, 0.0) Then
                If rbValue.Checked Then
                    txtReult.Text = (Decimal.Parse(txtvalue.Text) / 11.5).ToString
                    lblResult.Text = "وحده"
                    lblValue.Text = "ريال"
                Else
                    txtReult.Text = (Decimal.Parse(txtvalue.Text) * 11.5).ToString
                    lblResult.Text = "ريال"
                    lblValue.Text = "وحده"

                End If
            Else
                Throw New ArgumentException("خطأ فى الادخال")
            End If

        Catch ex As Exception
            MsgBox("Error Happen  :" + ex.Message)
        End Try


    End Sub

    Private Sub txtvalue_KeyDown(sender As Object, e As KeyEventArgs) Handles txtvalue.KeyDown
        Try

            If Not (e.KeyValue = 46 Or e.KeyValue = 48 Or e.KeyValue = 49 Or e.KeyValue = 50 Or e.KeyValue = 51 Or e.KeyValue = 52 Or e.KeyValue = 53 Or e.KeyValue = 54 Or _
               e.KeyValue = 55 Or e.KeyValue = 56 Or e.KeyValue = 57 Or _
              e.KeyValue = 110 Or e.KeyValue = 96 Or e.KeyValue = 97 Or e.KeyValue = 98 Or e.KeyValue = 99 Or e.KeyValue = 100 Or e.KeyValue = 101 Or e.KeyValue = 102 Or e.KeyValue = 103 Or e.KeyValue = 104 Or e.KeyValue = 105 Or e.KeyValue = 7 Or e.KeyValue = 8) Then
                e.SuppressKeyPress() = True

            End If
            If e.KeyValue = 46 Or e.KeyValue = 110 And txtvalue.Text.Contains(Char.Parse(".")) Then
                e.SuppressKeyPress() = True
            End If
        Catch ex As Exception

        End Try
    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        rbValue.Checked = True
    End Sub
End Class

WinAppConverter.rar

السلام عليكم 

انظر المثال المرفق

Public Class Form1
    Private Sub rb_CheckedChanged(sender As Object, e As EventArgs) Handles rbValue.CheckedChanged, rbResult.CheckedChanged
        Try
            If Decimal.TryParse(txtvalue.Text, 0.0) Then
                If rbValue.Checked Then
                    txtReult.Text = (Decimal.Parse(txtvalue.Text) / 11.5).ToString
                    lblResult.Text = "ريال"
                    lblValue.Text = "وحده"

                Else
                    txtReult.Text = (Decimal.Parse(txtvalue.Text) * 11.5).ToString
                    lblResult.Text = "وحده"
                    lblValue.Text = "ريال"

                End If
            Else
                Throw New ArgumentException("خطأ فى الادخال")
            End If
          
        Catch ex As Exception
            MsgBox("Error Happen  :" + ex.Message)
        End Try
    End Sub
    Private Sub txtvalue_KeyDown(sender As Object, e As KeyEventArgs) Handles txtvalue.KeyDown
        Try
            If Not (e.KeyValue = 46 Or e.KeyValue = 48 Or e.KeyValue = 49 Or e.KeyValue = 50 Or e.KeyValue = 51 Or e.KeyValue = 52 Or e.KeyValue = 53 Or e.KeyValue = 54 Or _
               e.KeyValue = 55 Or e.KeyValue = 56 Or e.KeyValue = 57 Or _
              e.KeyValue = 110 Or e.KeyValue = 96 Or e.KeyValue = 97 Or e.KeyValue = 98 Or e.KeyValue = 99 Or e.KeyValue = 100 Or e.KeyValue = 101 Or e.KeyValue = 102 Or e.KeyValue = 103 Or e.KeyValue = 104 Or e.KeyValue = 105 Or e.KeyValue = 7 Or e.KeyValue = 8) Then

               e.SuppressKeyPress() = True

            End If
            If e.KeyValue = 46 Or e.KeyValue = 110 And txtvalue.Text.Contains(Char.Parse(".")) Then
                e.SuppressKeyPress() = True
            End If
        Catch ex As Exception
            End Try
    End Sub
    Private Sub btnClose_Click(sender As Object, e As EventArgs) Handles btnClose.Click
        End
    End Sub
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        rbValue.Checked = True
    End Sub
End Class

لا تنسى ان تضيف Handler  للحدث , txtvalue.TextChanged

  Private Sub rb_CheckedChanged(sender As Object, e As EventArgs) Handles rbValue.CheckedChanged, rbResult.CheckedChanged, txtvalue.TextChanged

هذاء هو البرنامج  وقد لقيت الاجابة ولكن باقي سوال  الكود الخاص بالتحويل من الوحدة الى الريال حاولت ما قدرت , اعتقد ان في كود ناقص الكود الاول كويس من الريال الى الوحدة , بس باقي الكود الثاني من الوحدة الى الريال والمشروع مرفق ياريت توضح لي اكون شاكر لك.

هذة الاكواد

Public Class Form1

    Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
        Label1.Text = "ريال"
        Label2.Text = "وحدة"
    End Sub

    Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
        Label1.Text = "وحدة"
        Label2.Text = "ريال"
    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        If IsNumeric(TextBox1.Text) Then

            If RadioButton2.Checked Then
                TextBox2.Text = Val(TextBox1.Text) * 11.5
            Else
                TextBox2.Text = Val(TextBox1.Text) / 11.5
            End If

        End If
    End Sub

التحويل من الريال الى الوحدة واعكس.rar

هل قرأت للكود االمثال الذى ارفقته لك ؟؟؟؟

قنص جميع الاحداث فى اجراء واحد

Public Class Form1

    Private Sub rb_CheckedChanged(sender As Object, e As EventArgs) Handles rbValue.CheckedChanged, rbResult.CheckedChanged, txtvalue.TextChanged
        Try
            If Decimal.TryParse(txtvalue.Text, 0.0) Then
                If rbValue.Checked Then
                    txtReult.Text = (Decimal.Parse(txtvalue.Text) / 11.5).ToString
                    lblResult.Text = "وحده"
                    lblValue.Text = "ريال"
                Else
                    txtReult.Text = (Decimal.Parse(txtvalue.Text) * 11.5).ToString
                    lblResult.Text = "ريال"
                    lblValue.Text = "وحده"

                End If
            Else
                Throw New ArgumentException("خطأ فى الادخال")
            End If

        Catch ex As Exception
            MsgBox("Error Happen  :" + ex.Message)
        End Try


    End Sub

    Private Sub txtvalue_KeyDown(sender As Object, e As KeyEventArgs) Handles txtvalue.KeyDown
        Try

            If Not (e.KeyValue = 46 Or e.KeyValue = 48 Or e.KeyValue = 49 Or e.KeyValue = 50 Or e.KeyValue = 51 Or e.KeyValue = 52 Or e.KeyValue = 53 Or e.KeyValue = 54 Or _
               e.KeyValue = 55 Or e.KeyValue = 56 Or e.KeyValue = 57 Or _
              e.KeyValue = 110 Or e.KeyValue = 96 Or e.KeyValue = 97 Or e.KeyValue = 98 Or e.KeyValue = 99 Or e.KeyValue = 100 Or e.KeyValue = 101 Or e.KeyValue = 102 Or e.KeyValue = 103 Or e.KeyValue = 104 Or e.KeyValue = 105 Or e.KeyValue = 7 Or e.KeyValue = 8) Then
                e.SuppressKeyPress() = True

            End If
            If e.KeyValue = 46 Or e.KeyValue = 110 And txtvalue.Text.Contains(Char.Parse(".")) Then
                e.SuppressKeyPress() = True
            End If
        Catch ex As Exception

        End Try
    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        rbValue.Checked = True
    End Sub
End Class