|
إنضمامك إلي منتديات استراحات زايد يحقق لك معرفة كل ماهو جديد في عالم الانترنت ...
انضم الينا
#1
| ||
| ||
السلام عليكم ورحمة الله وبركاته
__DEFINE_LIKE_SHARE__
اليوم جيت ومعاي تطبيق حول تحويل النظام من عشري إلى ثنائي ومن ثنائي إإلى عشري الواجهة الكود المستخدم كود 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 للتحميل من هنا ====================== ياليت أي إضافة أو تعديل في الكود إخباري بها ================ كنت حضيف أيضا طريقة الجمع وهذا قانونها 1+0=1 0+1=1 0+0=0 1+1=0 محمول 1 لكن لم أعرف كيف أسويها على الفيجوال خصوصاً المحمول إذا أحد لديه الطريقة ياليت يقولها هذا ولكم جزيل الشكر |
مواقع النشر (المفضلة) |
أدوات الموضوع | |
انواع عرض الموضوع | |
| |