إنضمامك إلي منتديات استراحات زايد يحقق لك معرفة كل ماهو جديد في عالم الانترنت ...

انضم الينا
استراحات زايد الصفحة الرئيسية

         :: مواصفات سيارة تويوتا كامري 2023 (آخر رد :saddkn)       :: طرق عزل الاسطح بالخبر (آخر رد :رودى طه)       :: كيف تحمي منزلك من هجوم الحشرات (آخر رد :رودى طه)       :: برامج الرشاقة السعيدة (آخر رد :دارين الدوسري)       :: تبي متابعين تيك توك مجاناً؟ (آخر رد :ريم جاسم)       :: قهوجي جدة صبابين قهوه مباشرات ضيافه 0539307706 (آخر رد :ksa ads)       :: وانيت نقل عفش بالرياض 0539735360 ونيت توصيل اثاث مشاوير (آخر رد :ksa ads)       :: متجر Google Play: (آخر رد :محمد العوضي)       :: فوائد تحميل التطبيقات: (آخر رد :محمد العوضي)       :: تحميل التطبيقات ومصادرها: دليل شامل (آخر رد :محمد العوضي)      

إضافة رد
 
LinkBack أدوات الموضوع انواع عرض الموضوع
  #1  
قديم 09-22-2010, 01:50 PM
عضو ماسي
بيانات محروم.كوم
 رقم العضوية : 503
 تاريخ التسجيل : Dec 2007
الجنس : female
علم الدوله :
 المشاركات : 2,100,610
عدد الـنقاط :3341
 تقييم المستوى : 2139

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

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

الواجهة



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

كود 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

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

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

هذا ولكم جزيل الشكر
__DEFINE_LIKE_SHARE__
رد مع اقتباس
إضافة رد

مواقع النشر (المفضلة)

أدوات الموضوع
انواع عرض الموضوع

تعليمات المشاركة
لا تستطيع إضافة مواضيع جديدة
لا تستطيع الرد على المواضيع
لا تستطيع إرفاق ملفات
لا تستطيع تعديل مشاركاتك

BB code is متاحة
كود [IMG] متاحة
كود HTML معطلة
Trackbacks are متاحة
Pingbacks are متاحة
Refbacks are متاحة



الساعة الآن 07:01 PM


Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Content Relevant URLs by vBSEO 3.5.2 TranZ By Almuhajir

RSS RSS 2.0 XML MAP HTML