بسم الله الرحمن الرحيم
كما هو واضح من العنوان أحبائي وأخواني في هذا المنتدى الجميل لقد قمت حديثا ببرمجة الاصدار الأول من برنامج (bidec v.1.0) والذي يقوم بتحويل الأرقام العشرية الى ثنائية عند ادخالك للرقم العشري .. وأيضا تحويل الأرقام الثنائية لعشرية عند ادخالك للرقم الثنائي
أنتظر تجربتكم لبرنامج وتعليقكم عليه ...... واذا أحببتم أن أدرج لكم الكود الخاص به أدرجه .
حمل من هنا :
ننتظركم .......
يا سلام انا بقى مبيهمنيش
لسبب واحد فقط الفى بى مبتعرفش تعمل فيروسات عليها القيمة
سلااااااااام
مبارك لشعب تونس 
تمام شغلك يا بشمهندس بس فية شيء بسيط ان مدير المنتدي واضع قوانين وتقريب من بينه انه يمنع وضع الملفات التنفيذية فهل انت مدير المنتدي لكي تخرق هذة الشروط اعذرني لأنى كان لدي ملف تنفيذي وقبل ما ارفقة حذرني احد الاعضاء من ذلك فلا اعرف كيف ملفك حتى الآن موجود في المنتدي ارفق السورس بارك الله فيك حتي يستفيد منه الجميع ولا تكن بخيلا
الاخوة أمير والحريف وناني
شكرا عالمرور ولكن لماذا هذه الردود التي لم تسعدني انا كنت أريد تجربتكم لبرنامجي لأرى رايكم فيه وتأكدوا اني لاأدمج به فيروس ولكن هذا حقكم للتأكد وأنا عازركم المهم اخواني سأضع لكم الأكواد للاطمئنان
أولا :الكود اللازم للتحويل من رقم عشري الى رقم ثنائي:
Private Sub Command1_Click() 'ÊÍæíá ÇáÚÏÏ ÇáÕÍíÍ Çáì ÑÞã ËäÇÆí If Text1.Text = "" Then Text1.Text = "0" If IsNumeric(Text1.Text) = False Then MsgBox "íÌÈ ÇÏÎÇá ÚÏÏ ÕÍíÍ", vbExclamation, "ÎØÃ" Exit Sub End If Text3.Text = "" Text2.Text = Text1.Text For i = 1 To 30 Text3.Text = Text2.Text Mod 2 & Text3.Text Text2.Text = Text2.Text \ 2 If Text2.Text = 0 Then Exit For Next i 'ÊÍæíá ÇáÚÏÏ ÇáÚÔÑí Çáì ÑÞã ËäÇÆí If Text4.Text = "" Then Text4.Text = "0" If IsNumeric(Text4.Text) = False Then MsgBox "íÌÈ ÇÏÎÇá ÑÞã ÚÔÑí", vbExclamation, "ÎØÃ" Exit Sub End If If Text4.Text >= 1 Then MsgBox "íÌÈ ÇÏÎÇá ÑÞã ÚÔÑí", vbExclamation, "ÎØÃ" Exit Sub End If Text6.Text = "" Text5.Text = Text4.Text For i = 1 To 30 beg: Text5.Text = Text5.Text * 2 If Text5.Text = 1 Then Text6.Text = Text6.Text + "1" Exit Sub End If If Text5.Text > 1 Then Text6.Text = Text6.Text + "1" Text5.Text = Text5.Text - 1 GoTo beg End If If Text5.Text < 1 Then Text6.Text = Text6.Text + "0" End If Next i End Sub Private Sub detobi_Click() End Sub
ثانيا : الكود اللازم للتحويل من رقم ثنائي الى رقم عشري :
If a = "" Then a = 0 End If If b = "" Then b = 0 End If If c = "" Then c = 0 End If If d = "" Then d = 0 End If If e = "" Then e = 0 End If If f = "" Then f = 0 End If If g = "" Then g = 0 End If If h = "" Then h = 0 End If If i = "" Then i = 0 End If If j = "" Then j = 0 End If If h = "" Then h = 0 End If If i = "" Then i = 0 End If If j = "" Then j = 0 End If If k = "" Then k = 0 End If If l = "" Then l = 0 End If If m = "" Then m = 0 End If If n = "" Then n = 0 End If If o = "" Then o = 0 End If If p = "" Then p = 0 End If If q = "" Then q = 0 End If If r = "" Then r = 0 End If If s = "" Then s = 0 End If If t = "" Then t = 0 End If If a1 = "" Then a1 = 0 End If If b1 = "" Then b1 = 0 End If If c1 = "" Then c1 = 0 End If If d1 = "" Then d1 = 0 End If If e1 = "" Then e1 = 0 End If If f1 = "" Then f1 = 0 End If If g1 = "" Then g1 = 0 End If If h1 = "" Then h1 = 0 End If If IsNumeric(a) = False Or IsNumeric(b) = False Or IsNumeric(c) = False Or IsNumeric(d) = False Or IsNumeric(e) = False Or IsNumeric(f) = False Or IsNumeric(g) = False Or IsNumeric(h) = False Or IsNumeric(i) = False Or IsNumeric(j) = False Or IsNumeric(k) = False Or IsNumeric(l) = False Or IsNumeric(m) = False Or IsNumeric(n) = False Or IsNumeric(o) = False Or IsNumeric(p) = False Or IsNumeric(q) = False Or IsNumeric(r) = False Or IsNumeric(s) = False Or IsNumeric(t) = False Then MsgBox "íÌÈ ÇÏÎÇá ÑÞã ËäÇÆí", vbExclamation, "ÎØÃ" Exit Sub End If If a > 1 Or b > 1 Or c > 1 Or d > 1 Or e > 1 Or f > 1 Or g > 1 Or h > 1 Or i > 1 Or j > 1 Or k > 1 Or l > 1 Or m > 1 Or n > 1 Or o > 1 Or p > 1 Or q > 1 Or r > 1 Or s > 1 Or t > 1 Then MsgBox "íÌÈ ÇÏÎÇá ÑÞã ËäÇÆí", vbExclamation, "ÎØÃ" Exit Sub End If If IsNumeric(a1) = False Or IsNumeric(b1) = False Or IsNumeric(c1) = False Or IsNumeric(d1) = False Or IsNumeric(e1) = False Or IsNumeric(f1) = False Or IsNumeric(g1) = False Or IsNumeric(h1) = False Then MsgBox "íÌÈ ÇÏÎÇá ÑÞã ËäÇÆí", vbExclamation, "ÎØÃ" Exit Sub End If If a1 > 1 Or b1 > 1 Or c1 > 1 Or d1 > 1 Or e1 > 1 Or f1 > 1 Or g1 > 1 Or h1 > 1 Then MsgBox "íÌÈ ÇÏÎÇá ÑÞã ËäÇÆí", vbExclamation, "ÎØÃ" Exit Sub End If result.Text = a * 2 ^ 0 + b * 2 ^ 1 + c * 2 ^ 2 + d * 2 ^ 3 + e * 2 ^ 4 + f * 2 ^ 5 + g * 2 ^ 6 + h * 2 ^ 7 + i * 2 ^ 8 + j * 2 ^ 9 + k * 2 ^ 10 + l * 2 ^ 11 + m * 2 ^ 12 + n * 2 ^ 13 + o * 2 ^ 14 + p * 2 ^ 15 + q * 2 ^ 16 + r * 2 ^ 17 + s * 2 ^ 18 + t * 2 ^ 19 + a1 * 2 ^ -1 + b1 * 2 ^ -2 + c1 * 2 ^ -3 + d1 * 2 ^ -4 + e1 * 2 ^ -5 + f1 * 2 ^ -6 + g1 * 2 ^ -7 + h1 * 2 ^ -8 End Sub Private Sub Command2_Click() a = "" b = "" c = "" d = "" e = "" f = "" g = "" h = "" i = "" j = "" k = "" l = "" m = "" n = "" o = "" p = "" q = "" r = "" s = "" t = "" a1 = "" b1 = "" c1 = "" d1 = "" e1 = "" f1 = "" g1 = "" h1 = "" result = "" End Sub
والان يمكنكم الاطمئنان
جزاك الله خيرا ولكن قوانين المنتدى تمنع وضع الملفات التنفيذيه فقط سورس كود حتى يستفيد الجميع
شكرا على الكود جارى التجربه
سبحان الله وبحمده سبحان الله العظيم
شكرا لكم اخواني ومحصلش حاجة
هذا الموضوع مغلق.
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…
