منتدى استراحات زايد - تطبيق برنامج تحويل النظام العشري إلى ثنائي والعكس أيضاً

السلام عليكم ورحمة الله وبركاته

اليوم جيت ومعاي تطبيق حول تحويل النظام من عشري إلى ثنائي ومن ثنائي إإلى عشري

الواجهة

http://filaty.com/i/1009/56554/1.jpg

الكود المستخدم

كود PHP:

Imports System.Math

Public Class Form1
Dim x, s, a, w As Double
Dim z As String
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox3.Clear()
z = TextBox3.Text
TextBox1.Text = TextBox5.Text
For i As Integer = 1 To TextBox5.Text
a = TextBox1.Text / 2
If a = 0 Then
Exit For
Else
x = a - Int(a)
s = Int(a)
TextBox1.Text = s

z &= (x * 2)
TextBox3.Text = StrReverse(z)
End If
Next
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox2.Text = 0
z = TextBox4.Text

For i As Integer = 0 To z.Length - 1
z = StrReverse(TextBox4.Text)
s = Mid(z, i + 1, 1)
If s = 1 Then
TextBox2.Text = TextBox2.Text + 2 ^ i

End If
Next
End Sub
Private Sub TextBox4_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox4.KeyPress
If e.KeyChar = CChar("1") Or e.KeyChar = CChar("0") Then
e.Handled = False
Else
e.Handled = True
End If
End Sub
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
If Char.IsNumber(e.KeyChar) = False Then
e.Handled = True
End If
End Sub
End Class

للتحميل

من هنا

======================

ياليت أي إضافة أو تعديل في الكود إخباري بها :rolleyes:
================

كنت حضيف أيضا طريقة الجمع وهذا قانونها

1+0=1
0+1=1
0+0=0
1+1=0 محمول 1

لكن لم أعرف كيف أسويها على الفيجوال خصوصاً المحمول

إذا أحد لديه الطريقة ياليت يقولها

هذا ولكم جزيل الشكر