28-11-13, 01:09 AM
كيف يمكنني التحويل من الوحدة الى الريال حيث ان الوحدة تساوي = 11.5 ريال احدى عشر ريال ونصف , وكذلك العكس اريد الكود لو تكرمتواء احبتي بنفس فكرة التحويل من الريال الى الدولار تقريباً
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
Label2.Text = "وحدة"
Label1.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 RadioButton1.Checked Then
TextBox2.Text = Val(TextBox1.Text) * 11.5
Else
TextBox2.Text = Val(TextBox1.Text) / 11.5
End If
End If
End Sub
End Class(07-12-13, 12:55 PM)محمد مسافر كتب : [ -> ]السلام عليكم ورحمة الله وبركاتة
المشروع مرفق لديكم يوجد تحويل واحد فقط ام التحويل الاخر غير موجود ارجوء المساعدة وهذاء المشروع المرفق شوفواء المشروع و التحويل
If RadioButton1.Checked Then
TextBox2.Text = Val(TextBox1.Text) * 11.5
Else
TextBox2.Text = Val(TextBox1.Text) / 11.5
End If
(07-12-13, 10:30 PM)محمد مسافر كتب : [ -> ]اناء اعتذر للجميع ولكن كانت المشكلة عندي اني لم استطع ان اعبر عن ما كنت اقصدة فوقعت في المشكلة كنت احسب ان البرنامج بمجرد التحويل بالضغط على الريال يتم التحويل , في نفس الوقت اضغط على الوحدة يتم التحويل مباشرة على نفس الرقم الموجود , لم اكن اعلم انة في كل مرة لابد ان ادخل الرقم من جديد في كل حقل وهذاء سبب لي مشكلة بالنسبة لكم الطريقة صحيحة . اشكركم جميعكم بلا استثناء
لكن هل ممكن اطبق الطريقة الذي اناء اقصدها بحيث يتم التحويل من والى على نفس الرقم مباشرة من غير ما ادخل كل مرة قيمة او رقم جديد اتمنى ان تكون الفكرة وصلت