الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

تحويل العدد من ثنآآئي إلى عشري ,,,

بدأه إشراقة فجر في 7 ديسمبر 2008 · 23 رد · 1,939 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

عندي برنامج قـآآعدهـ أحــآآول فيه وعباارهـ عن

button 2 , text1 , text2 , button

بحيث إذا أدخل المستخدم الرقم العشري في text1 وضغط ع button

يطلع في text2 الرقم الثنــآآئي

والعكس إذا أدخل عدد ثنــآآئي وضغط ع 2button يطلع العدد العشري

..

انا عرفت أحول من عدد عشـــري إلى ثنــآآئي

واللي أبيه هو كود التحويـــــــل من ثنائي إلى عشـــري ..

أرجـــــــــوووو المســــــــــــآآعدهــ

الله يجزآآكم عني ألـــــــــف خيـــــــــر ,,

ويفرج كربتكم ...

تم تعديل هذه المشاركة بواسطة إشراقــه فجــر في 7 ديسمبر 2008 في 01:29

سبحآن الله وبحمده .. سبحآن الله العظيم .. ,

#2

بســم الله الـرحمــن الرحيــم

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

اختي إشراقة فجر ...

إليكي الحل :

Dim i As Integer = Convert.ToInt32(TextBox1.Text, 2)
		TextBox2.Text = i.ToString()

دعائكم لأهل فلسطين نصرة لهم وجهاد فلا تبخلو عليهم في يوم عرفة

سبحان الله وبحمده سبحان الله العظيم

لا تنسونا من صالح دعائكم ...

وفقكم الله وسدد خطاكم ...

#3

شــآآكرهـ لك المســـــــــآآعدهـ والله يجزآآك ألــــــــف خيــــــــــــــر ..

ولاكــن أريد طريقهــ غيـــر هالطريقهــ ,,

لاني بصرآآحــــــــــه لم أفهم الكــــود ...

وأكــون لكم شــــــــآآكرهـ ,,

تم تعديل هذه المشاركة بواسطة إشراقــه فجــر في 8 ديسمبر 2008 في 20:56

سبحآن الله وبحمده .. سبحآن الله العظيم .. ,

#4

انت تعرفي كيف نحول متلا : 1110 من التنائي العشري

1*2^3+1*2^2+1*2^1+0*2^0= 1*8+1*4+1*2 =14

اناااااااا ممكن اكتبل الحل بـ C , java ;Delphi لكن VB لا اعرفه

#5

مشكوور

..

أريــــــــــــد الحل بلغه الــ vb ..

الله يجزآآكم ألـــــف خيـــــــــر ,,

سبحآن الله وبحمده .. سبحآن الله العظيم .. ,

#6

أرجــــو المســـآآعدهــ

لا حرمكم الله الأجـــــــــــــــــــر ,,,

سبحآن الله وبحمده .. سبحآن الله العظيم .. ,

#7
اقتباس
واللي أبيه هو كود التحويـــــــل من ثنائي إلى عشـــري

وكيف سيتم ادخال العدد الثنائى المطلوب تحويله ؟

هل ندخل بسط فى text1 ومقام فى text2 أم كيف ؟

بســم الله الـرحمــن الرحيــم

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

الحمدلله والصلاة والسلام على رسول الله وعلى آله وصحبه أجمعين

شكراً لك اخي الكريم

#8

آآآسف

أعنى وكيف سيتم ادخال العدد الثنائى المطلوب تحويله ؟

العدد 1101 مثلآ

هل ندخل 1 فى text1 و1 فى text2 و0 فى text3 و1 فى text4 ؟

أم سندخل الرقم 1101 كاملا فى text واحد

بســم الله الـرحمــن الرحيــم

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

الحمدلله والصلاة والسلام على رسول الله وعلى آله وصحبه أجمعين

شكراً لك اخي الكريم

#9
islambase@yahoo.com كتب:
أم سندخل الرقم 1101 كاملا فى text واحد

هذا ما أقصد ,,

وشكرآ جزيــلاً ,,,

,,

سبحآن الله وبحمده .. سبحآن الله العظيم .. ,

#10

هذا بالفيجوال بيسك 6 إذا ينفعك ولكن فقط الارقام الصحيحه بدون الفاصلة العشرية 

   Dim n As Integer

   Dim oct As Integer
   oct = 0
   For i = 0 To (Len(Text1.Text) - 1)
		 n = Mid(Text1.Text, (Len(Text1.Text) - i), 1)

		  If n > 0 Then oct = oct + (s * (2 ^ i))
	   Next i

	   Text2.Text = oct

ـحياتي

OMANI FOR EVER

-------------------------------------------------

post-12787-12780191801974.jpg

-------------------------------------------------

#11

ممكن تشرح لي ,, 

If n > 0 Then oct = oct + (s * (2 ^ i))

لاني مــآآفهمت ما هي s ؟؟

وش تقصد فيهــآآ ؟؟

و شــآآكرهـ لك ,,

تم تعديل هذه المشاركة بواسطة إشراقــه فجــر في 9 ديسمبر 2008 في 20:40

سبحآن الله وبحمده .. سبحآن الله العظيم .. ,

#12

هذا كـــودي لتحويل من عشــري إلى ثنــآئي ,,,


A = Val(t1.Text)
B = A \ 2
C = A Mod 2
t2.Text = C

While (B >= 1)

C = B Mod 2
t2.Text = C & t2.Text
B = B \ 2

End While
 Dim A, B, C As Integer

,,,,,

تم تعديل هذه المشاركة بواسطة إشراقــه فجــر في 9 ديسمبر 2008 في 20:56

سبحآن الله وبحمده .. سبحآن الله العظيم .. ,

#13

انا اسف لا توجد S هي n فقط انا اعدت صياغة الفيريبلز ونسيت هذه 

If n > 0 Then oct = oct + (n * (2 ^ i))

تحياتي واكرر اسفي

OMANI FOR EVER

-------------------------------------------------

post-12787-12780191801974.jpg

-------------------------------------------------

#14

هذا هو الكود المطلوب

  1.   Dim I, J, NUM, NTOT As Integer
  2. NUM = 0
  3. NTOT = Len(Text1.Text)
  4. For I = 1 To NTOT
  5. J = NTOT + 1 - I
  6. NUM = NUM + Mid(Text1.Text, J, 1) * 2 ^ (I - 1)
  8.        Text2.Text = NUM
  9. End Sub
  10.  


      
      

      
بســم الله الـرحمــن الرحيــم
السلام عليكــم ورحمـة الله وبركاتــة ،،
الحمدلله والصلاة والسلام على رسول الله وعلى آله وصحبه أجمعين
شكراً لك اخي الكريم

    

  

    
    

      
#15
        
        

      
مــــــــآآشــــــــــآآء الله ,,,  
كلا الكــــــــودين صحيح 100 % 
مشكــورين على المســــــآآعـــــدهــ 
الله  يجــــــــــــزآآكم ألـــــــــــــف خيـــــــــر  ,,, 
ويجعله بميــــزآآن حسنــآآتكم ,, 
,,,,,

      
تم تعديل هذه المشاركة بواسطة إشراقــه فجــر في 9 ديسمبر 2008 في 21:51

      

      
سبحآن الله وبحمده .. سبحآن الله العظيم .. ,

    

  

    
    

      
#16
        
        

      
العفو ولكن يجب تطوير هذا الكود ليتمكن من قراءة الارقام الثنائية التي بعد الفاصلة 
مثال : 
1001.111
هذا طريقة تحويله تختلف عن الكود السابق 
الأس هنا بالسالب حيث يكون -1 ، -2 ، -3  وهكذا 
سأحاول ان اطور الكود بحيث يستطيع قراءة مابعد الفاصلة 
تحياتي

      
      

      
OMANI FOR EVER
-------------------------------------------------
post-12787-12780191801974.jpg
-------------------------------------------------

    

  

    
    

      
#17
        
        

      
 صحيـــــــــــــح ,,,  كــــلا  الكــودين لا يقرآ اللي بعد الفــآآصله ,, 
,, 
وأتمنـــى إذا طوورتهـ  تضعه حتى أستفيــــــــــد ,, 
وأنــآ بإذن الله ســــــــأحــآول  .. 
ولك جزيــــل الشكــــر ,,, 
,,

      
      

      
سبحآن الله وبحمده .. سبحآن الله العظيم .. ,

    

  

    
    

      
#18
        
        

      
هذا كود التحويل الى ثنائي مع الفاصلة العشرية ان وجدت . على عجالة اعددته اتمنى ن يكون صحيحا  
علماً بأنني لم اجرب الكود 
Dim s As String
 Dim f As String
 Dim L As Integer

 s = Int(Text1.Text)
  L = Len(s)
  f = ""

  If Len(Text1.Text) <> L Then
	 f = Mid(Text1.Text, (L + 2), (Len(Text1.Text)))
	 MsgBox f
  End If


  Dim n As Integer
   Dim oct As Integer

   oct = 0
   For i = 0 To (L - 1)
		  n = Mid(Text1.Text, (L - i), 1)
		  If n > 0 Then oct = oct + (n * (2 ^ i))
	   Next i

If Len(f) >= 1 Then
	For i = 0 To (Len(f) - 1)
		  n = Mid(Text1.Text, (i + 1), 1)
		  If n > 0 Then oct = oct + (n * (2 ^ -i))
	   Next i
End If
	   Text2.Text = oct
تحياتي

      
      

      
OMANI FOR EVER
-------------------------------------------------
post-12787-12780191801974.jpg
-------------------------------------------------

    

  

    
    

      
#19
        
        

      
هذا هو الكود للتعامل مع الأعداد الصحيحة أو الكسرية
  1.  
  2.  
  3. [b]Dim NTOT, NINT, NASH As Integer
  4. Dim I, J As Integer
  5. Dim NUM, X As Single
  6. NUM = 0
  7. NTOT = Len(Text1.Text)
  8. INTNUM = Int(Text1.Text)
  9. NINT = Len(INTNUM)
  10. NASH = NTOT - NINT - 1[/b]
  11.  
  12. [b]For I = 1 To NINT
  13. J = NINT + 1 - I
  14. NUM = NUM + Mid(Text1.Text, J, 1) * 2 ^ (I - 1)
  16.  
  17. For I = 1 To NASH
  18. J = NINT + 1 + I
  19. NUM = NUM + Mid(Text1.Text, J, 1) / 2 ^ (I)
  21.  
  22. Text2.Text = NUM
  23. End Sub
  24. [/b]
  25.  
  26.  


      
      

      
بســم الله الـرحمــن الرحيــم
السلام عليكــم ورحمـة الله وبركاتــة ،،
الحمدلله والصلاة والسلام على رسول الله وعلى آله وصحبه أجمعين
شكراً لك اخي الكريم

    

  

    
    

      
#20
        
        

      
جـــــــــــزآآآكم  الله ألــــــــــــــــــف خيـــــــــــــــر   ,,, 
و يوفقكــــــــــم  لمــآ يحبه ويرضـــآهـ  ,,, 

      
      

      
سبحآن الله وبحمده .. سبحآن الله العظيم .. ,

    

  

    
    

      
#21
        
        

      
وان كنت تريدين تعديل كودك  لتحويل من عشــري إلى ثنــآئي  
بحيث يتعامل أيضآ مع الأعداد الصحيحة أو الكسرية فاطلبى

      
      

      
بســم الله الـرحمــن الرحيــم
السلام عليكــم ورحمـة الله وبركاتــة ،،
الحمدلله والصلاة والسلام على رسول الله وعلى آله وصحبه أجمعين
شكراً لك اخي الكريم

    

  

    
    

      
#22
        
        

      
islambase@yahoo.com كتب:
وان كنت تريدين تعديل كودك لتحويل من عشــري إلى ثنــآئي 
بحيث يتعامل أيضآ مع الأعداد الصحيحة أو الكسرية فاطلبى
 إذا  تقـــدر تعدلــه  
جزآآك الله خيـــر ,,,, 
,,,,

      
      

      
سبحآن الله وبحمده .. سبحآن الله العظيم .. ,

    

  

    
    

      
#23
        
        

      
هذا هو الكود للتعامل مع الأعداد الصحيحة أو الكسرية
   
  1.  
  2. Dim I, J, C As Integer
  3.    Dim NUM, A, B As Single
  4. Text2.Text = ""
  5. NUM = Val(Text1.Text)
  6. INTNUM = Int(Text1.Text)
  7. Print NUM, INTNUM
  8.  
  9.  
  10.         A = INTNUM
  11.         B = A  2
  12.         C = A Mod 2
  13.         Text2.Text = C
  14.        Print A, B, C
  15.      While (B >= 1)
  16.             C = B Mod 2
  17.             Text2.Text = C & Text2.Text
  18.             B = B  2
  19.             Print B, C
  20.     End While
  21.  
  22. A = NUM - INTNUM
  23. If A = 0 Then GoTo 100
  24.             Text2.Text = Text2.Text & "."
  25.         B = A * 2
  26.         C = Int(B)
  27.             Text2.Text = Text2.Text & C
  28.        Print A, B, C
  29.     While (B > 0 And B > C)
  30.            B = B - C
  31.         B = B * 2
  32.         C = Int(B)
  33.             Text2.Text = Text2.Text & C
  34.        Print B, C
  35.     End While
  36.  
  37. 100 End Sub
  38.  


      
      

      
بســم الله الـرحمــن الرحيــم
السلام عليكــم ورحمـة الله وبركاتــة ،،
الحمدلله والصلاة والسلام على رسول الله وعلى آله وصحبه أجمعين
شكراً لك اخي الكريم

    

  

    
    

      
#24
        
        

      
جــــزآآك الله ألـــف خيــــــــر ,, 
و جعله بميـــــــــزآآن حسنــآتك ,,, 

      
      

      
سبحآن الله وبحمده .. سبحآن الله العظيم .. ,

    

  

    
    
    
 مواضيع مشابهة