برنامج يقوم بالتحويل بين الأنظمة الرقمية الأربعة

ألا يوجد لديك ولا أي فكرة عن البرنامج ؟

احد الأفكار:

ادخال رقم بنظام معين.

تحويل الرقم من ذلك النظام الى النظام العشري

تحويل الرقم من العشري الى النظام الذي يريده المستخدم.

اظهار الرقم الناتج.

يعني انت تبي واحد يسوي لك البرنامج؟ نيابة عنك؟

اذا كنت تتعلم برمجة ابدأ واتعب وبعدين اسأل

نصيحة اخ محب

هذه مساعدة

للتحويل من ثنائي لعشري:

			Length = Len (Text1.Text)
			For I = 1 To Length
				D = Mid(Text1.Text, Length - I + 1, 1)
				R1 = R1 + 2 ^ (I - 1) * Val(D)
			Next I
			Label1.Caption = R1

وللتحويل من الثماني الى عشري نفس السابق ولكن بتغيير الرقم 2 قبل الرمز ^ الى الرقم 8

للتحويل من ست عشري الى عشري:

			Length = Len(Text1.Text)
			For I = 1 To Length
				D = Mid(Text1.Text, Length - I + 1, 1)
				Select Case D
					Case "A": D = "10"
					Case "B": D = "11"
					Case "C": D = "12"
					Case "D": D = "13"
					Case "E": D = "14"
					Case "F": D = "15"
				End Select
				R1 = R1 + 16 ^ (I - 1) * Val(D)
			Next I
			Label1.Caption = R1

اذا فهمت السابق فسيكون سهل عليك التحويل من العشري الى الأنظمة الأربعة

اذا احببت استخدم الدوال الجاهزة

Oct$(Number)

بتعطيه رقم عشري وبيعطيك الثماني

Hex$(Number)

بتعطيه العشري وبيعطيك الست عشري

مشكورين إخواني على المرور والمساعدة

واستطعت أن أنفذ البرنامج بمساعدة مدرس المادة

والحمدلله تم البرنامج