منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

(26-12-22, 10:10 PM)asmarsou كتب : [ -> ]

(25-12-22, 12:49 PM)medo_ali972 كتب : [ -> ]

(24-12-22, 10:24 PM)asmarsou كتب : [ -> ]

(24-12-22, 10:02 PM)gho كتب : [ -> ]

(24-12-22, 01:17 PM)medo_ali972 كتب : [ -> ]

السلام عليكم

طلب منى فى الكلية تصميم برنامج يحول من binary to decimal والعكس من decimal to binary ولكن بشروط ان نكتب الرقم الباينرى كل رقم فى تكست بوكس ونقوم بتحويله الى ديسميل والحمد لله قمت بعمل الكود ولكن المشكلة فى التحويل من ديسميل الى باينرى وكل رقم من الباينرى يكتب فى تكست بوكس

مرفق صور من البرنامج بعد الانتهاء من التحويل الدى ديسيميل والكود المطلوب العمل به  والمطلوب التحويل من ديسميل الى بينارى بنفس الطريقة 

ارجو المعذرة لانى لست محترف ولكنى مبتدأ فى التعلم

 تفضل عدل في المثال التالي بما لديك من معطيات

PHP كود :

Public Class Form1
    Dim a, b, c, d, m, f, g, h, num As Integer
    
    'للتحويل من البيناري الى الديسيمل
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        a = TextBox1.Text
        b = TextBox2.Text
        c = TextBox3.Text
        d = TextBox4.Text
        m = TextBox5.Text
        f = TextBox6.Text
        g = TextBox7.Text
        h = TextBox8.Text
        num = a * 128 + b * 64 + c * 32 + d * 16 + m * 8 + f * 4 + g * 2 + h * 1
        TextBox9.Text = num
    End Sub
    'للتحويل من الديسيمل الى البيناري
    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Dim Dec As Integer = TextBox9.Text
        Dim result As String = Nothing
        result = Convert.ToString(Dec, 2)
        TextBox1.Text = result.Substring(0, 1)
        TextBox2.Text = result.Substring(1, 1)
        TextBox3.Text = result.Substring(2, 1)
        TextBox4.Text = result.Substring(3, 1)
        TextBox5.Text = result.Substring(4, 1)
        TextBox6.Text = result.Substring(5, 1)
        TextBox7.Text = result.Substring(6, 1)
        TextBox8.Text = result.Substring(7, 1)
    End Sub
    'لمسح جميع التكست بوكس
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        For Each t As Control In Me.Controls
            If TypeOf t Is TextBox Then
                t.Text = Nothing
            End If
        Next
    End Sub
    ' للخروج
    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        Me.Close()
    End Sub
End Class 


الف شكر يا استاذنا وجزاك الله خيرا الكود اشتغل تمام بس فى مشكلة بسيطة عند اضافة رقم مثل 13 فى الديسميل وتحويله الى باينرى يظهر خطأ فى السطر الخامس لان رقم 13 عند تحويله يصبح 1011 فبتالى التكست بوكس 5 تصبح فارغة لهذا يظهر الخطأ اما مع الارقام الكبيرة تمام

 العفو اخي الكريم ... اما بالنسبة لتلك المشكلة فقط حاولت مرارا و تكرار ايجاد حل لكن للاسف لم اتمكن من ايجاد صيغة مناسبة ...لذلك عليك بالحل الذي قدمه الاخ Gho مشكور على ما جاد به فهو يفي بالغرض و زيادة

 مرة اخرى اكرر شكري و امتناني للاخ الفاضل  gho جزاه الله كل خير اذ امدني بالحل لتك المشكله ليصبح الكود كمايلي :

 و الله ولي التوفيق

(26-12-22, 10:10 PM)asmarsou كتب : [ -> ] العفو اخي الكريم ... اما بالنسبة لتلك المشكلة فقط حاولت مرارا و تكرار ايجاد حل لكن للاسف لم اتمكن من ايجاد صيغة مناسبة ...لذلك عليك بالحل الذي قدمه الاخ Gho مشكور على ما جاد به فهو يفي بالغرض و زيادة

الف شكر لك اخى على تعبك ومساعدتك لى