تحويل نظام الاعداد وال ASCII CODE

maan1984 كتب:

السلام عليكم

انا اطلب منكم البرنامجين التاليين

الاول انا اريد كود او برنامج لعملية تحويل رقم من صيغة النظام العشري الى ال ( Binary , Oct, Hex ) وبالعكس اذا ادخلت رقم Binary اي برنامج يحول الى كافة انظمة الاعداد

والثاني انه ادخل الى البرنامج A يقوم بكتابة 65 وبالعكس اي برنامج تحويل ASCII Code

الطلب الثاني

Dim byt() As Byte
	Dim i As Long
	Dim bytStr As String

	byt = InputBox("أدخل الحرف أو النص المطلوب")

	For i = 0 To UBound(byt) Step 2
    	bytStr = (bytStr) & byt(i) & ","
	Next

	MsgBox bytStr

تحياتي

الطلب الأول

 Dim b As Integer
 Dim binarry As String, octle As String, hexadicimas As String


 binarry = ""
 b = Val(InputBox("أدخل الرقم المطلوب"))

 octle = Oct(b)
 hexadicimas = Hex(b)

 ' to binarry
  While (b > 0)
 	binarry = binarry & (b Mod 2)
 	b = b \ 2

  Wend

 binarry = StrReverse(binarry)

  MsgBox "Binary =" & binarry & Chr(13) & "OCT=" & octle & Chr(13) & "HEX=" & hexadicimas

تحياتي