نظام العد الثنائي و عملياته

    • نظام العد الثنائي و عملياته



      كيف نحول من نظام العد العشري و إلى نظام العد الثنائي

      نفرض بأن لدينا العدد 100 و نريد أن نقوم بتحويله إلى النظام الثنائي

      هناك طريقة سهلة لهذه العملية و هي

      أن نقوم بالقسمة على العدد إثنين 2 حتى نصل لقيمة أقل من الواحد
      لو أعطانا ناتج القسمة عداد بكسر عشري نقوم بتمثيله بنظام العد الثائي بواحد
      إما إن كان ناتج القسمة بدون كسر عشري فنقوم بتمثيلة على نظام العد الثنائي
      بصفر فكما نعلم بأن العد الثنائي يحمل رقمين الصفر و الواحد

      نبداء بالقسمة 100 على 2 تساوي 50

      سنقوم الآن بتمثيل ناتج القسمة على الثنائي بصفر
      نضيف من اليمين و إلى اليسار
      0

      الآن سنقوم بقسمة الناتج 50 من جديد على 2 تساوي 25
      سنمثل هذا الناتج أيضا بصفر من اليمين و إلى اليسار
      00

      الآن سنقوم بقسمة الناتج 25 من جديد على 2 تساوي 12.5
      الناتج يشمل على كسر عشري إذا سنمثل ناتج القسمة بالعدد 1
      نضيف من اليمين و إلى اليسار واحد ليصبح الناتج
      100

      نزيل الكسر العشري من ناتج القسمة ليكون 12 بدلا من 12.5
      ثم من بعد نقسمه على إثنين ليكون ناتج القسمة 6
      الناتج لا يشمل على كسر عشري بالتالي سنقوم بتمثيله بصفر
      نضيف صفر من اليمين و إلى اليسار
      0100

      من جديد نقسم العدد الناتج 6 على 2 ليكون الناتج 3 الناتج بدون كسر
      عشري لذالك سنمثله بالعدد صفر و من اليمين و إلى اليسار ليكون الناتج
      00100

      من جديد نقسم الناتج 3 على إثنين ليكون الناتج 1.5 الناتج يشمل على كسر
      عشري لذالك سنمثله بالعدد واحد ليكون ناتج النضام الثنائي و من اليمين و إلى
      اليسار
      100100

      نزيل من ناتج القسمة الكسر العشري ليكون واحد لا بد من قسمته على إثنين ليكون
      ناتج القسمة خمسه من عشرة و هووه كسر عشري لذالك سنمثله بالرقم واحد
      و إلى هنا وصلنا لقيمة أقل من الواحد و إنتهة عملية التحويل من العشري و إلى
      الثنائي ليكون الناتج الأخير
      1100100

      الآن سنقوم بالتحويل من الثنائي و إلى العشري نأخذ الناتج السابق

      1100100

      نذهب لأول خانة على اليمين لو كانت صفر نضع صفر لوكانت واحد نضع واحد
      الخانة صفر لذالك سنضع صفر

      0
      نذهب للخانة الثانية على اليمين لو كانت واحد نضع إثنين لو كان صفر نضع صفر
      الخانة صفر لذالك سنضع صفر

      0 + 0

      نذهب للخانة الثالثة لو كانت 1 نقوم بضرب الإثنين في نفسها مرة واحدة و نضع
      الناتج لوكانت صفر نضع صفر الخانة الثالثة واحد إذا سنضرب الإثنين في نفسها
      مرة واحدة كتالي

      0 + 0 + (2 *2)

      نذهب للخانة الرابعة من اليمين لوكانت واحد نضرب الإثنين في نفسها مرتين و نضع
      الناتج لو كانت الخانة صفر نضع صفر الخانة صفر لذالك سنضع صفر كتالي

      0 + 0 + (2 *2) + 0

      نذهب للخانة الخامسة من اليمين لوكانت صفر نضع صفر لوكان واحد نضرب
      الإثنين في نفسها ثلاث مرات الخانة صفر لذالك سنضع صفر كتالي

      0 + 0 + (2 *2) + 0 + 0

      نذهب للخانة السادسة على اليمين لو كانت واحد نضرب الإثنين في نفسها أربع
      مرات و نضع الناتج لو كانت صفر نضع صفر الخانة السادسة واحد لذالك
      سنضرب الإثنين في نفسها أربع مرات ونضع الناتج كتالي

      0 + 0 + (2 *2) + 0 + 0 +(2*2*2*2*2)

      نذهب للخانة السابعة من اليمين لو كانت واحد نضرب الإثنين في نفسها خمس
      مرات ونضع الناتج لو كانت صفر نضع صفر الخانة السابعة ممثلة بواحد
      لذالك سنضع ناتج ضرب الإثنين في نفسها خمس مرات كتالي

      0 + 0 + (2 *2) + 0 + 0 + (2*2*2*2*2) + (2*2*2*2*2*2)

      نحسب ناتج الضرب كتالي

      0 + 0 + 4 + 0 + 0 + 32 + 64

      الآن نحسب ناتج الجمع ليكون الناتج 100 و بذالك تم التحويل من الثانئي
      و إلى العشري


      بعض العمليات البرمجية و تسمى Operators Compared تعتمد في طرقها
      بإدخل العد الثنائي في عمليات منطقية معروفة و تستخدم هذه العمليلت في التشفير
      أو يدخل إستخدامها في عمليات تشفير البيانات و منها

      أدخل رابط ميكروسوفت لتعرف أكثر

      http://msdn.microsoft.com/en-us/library/2hxce09y(VS.71).aspx


      Bitwise-AND &

      Bitwise-exclusive-OR ^

      Bitwise-inclusive-OR |

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

      هذا على السي بلس 6 مكتبة mfc
      وفي الأخير على
      Autoit
      في أمان الله

      PHP كود المصدر

      1. // operationDlg.cpp : implementation file
      2. //
      3. #include "stdafx.h"
      4. #include "operation.h"
      5. #include "operationDlg.h"
      6. #ifdef _DEBUG
      7. #define new DEBUG_NEW
      8. #undef THIS_FILE
      9. static char THIS_FILE[] = __FILE__;
      10. #endif
      11. CString Twos(int A);
      12. CString StrIsInt(float C);
      13. CString StrIsFloat(float C);
      14. int _POW(int X , int Y);
      15. int Tens(CString B);
      16. int Bit_AND(int value1, int value2);
      17. int Bit_OR(int value1, int value2);
      18. int Bit_XOR(int value1, int value2);
      19. /////////////////////////////////////////////////////////////////////////////
      20. // COperationDlg dialog
      21. COperationDlg::COperationDlg(CWnd* pParent /*=NULL*/)
      22. : CDialog(COperationDlg::IDD, pParent)
      23. {
      24. //{{AFX_DATA_INIT(COperationDlg)
      25. // NOTE: the ClassWizard will add member initialization here
      26. //}}AFX_DATA_INIT
      27. // Note that LoadIcon does not require a subsequent DestroyIcon in Win32
      28. m_hIcon = AfxGetApp()->LoadIcon(IDR_MAINFRAME);
      29. }
      30. void COperationDlg::DoDataExchange(CDataExchange* pDX)
      31. {
      32. CDialog::DoDataExchange(pDX);
      33. //{{AFX_DATA_MAP(COperationDlg)
      34. // NOTE: the ClassWizard will add DDX and DDV calls here
      35. //}}AFX_DATA_MAP
      36. }
      37. BEGIN_MESSAGE_MAP(COperationDlg, CDialog)
      38. //{{AFX_MSG_MAP(COperationDlg)
      39. ON_WM_PAINT()
      40. ON_WM_QUERYDRAGICON()
      41. ON_BN_CLICKED(IDC_BUTTON1, OnButton1)
      42. //}}AFX_MSG_MAP
      43. END_MESSAGE_MAP()
      44. /////////////////////////////////////////////////////////////////////////////
      45. // COperationDlg message handlers
      46. BOOL COperationDlg::OnInitDialog()
      47. {
      48. CDialog::OnInitDialog();
      49. // Set the icon for this dialog. The framework does this automatically
      50. // when the application's main window is not a dialog
      51. SetIcon(m_hIcon, TRUE); // Set big icon
      52. SetIcon(m_hIcon, FALSE); // Set small icon
      54. // TODO: Add extra initialization here
      56. return TRUE; // return TRUE unless you set the focus to a control
      57. }
      58. // If you add a minimize button to your dialog, you will need the code below
      59. // to draw the icon. For MFC applications using the document/view model,
      60. // this is automatically done for you by the framework.
      61. void COperationDlg::OnPaint()
      62. {
      63. if (IsIconic())
      64. {
      65. CPaintDC dc(this); // device context for painting
      66. SendMessage(WM_ICONERASEBKGND, (WPARAM) dc.GetSafeHdc(), 0);
      67. // Center icon in client rectangle
      68. int cxIcon = GetSystemMetrics(SM_CXICON);
      69. int cyIcon = GetSystemMetrics(SM_CYICON);
      70. CRect rect;
      71. GetClientRect(&rect);
      72. int x = (rect.Width() - cxIcon + 1) / 2;
      73. int y = (rect.Height() - cyIcon + 1) / 2;
      74. // Draw the icon
      75. dc.DrawIcon(x, y, m_hIcon);
      76. }
      77. else
      78. {
      79. CDialog::OnPaint();
      80. }
      81. }
      82. // The system calls this to obtain the cursor to display while the user drags
      83. // the minimized window.
      84. HCURSOR COperationDlg::OnQueryDragIcon()
      85. {
      86. return (HCURSOR) m_hIcon;
      87. }
      88. void COperationDlg::OnButton1()
      89. {
      90. CFile file;
      91. file.Open("fff.txt", CFile::modeCreate|CFile::modeWrite);
      93. CString StrResult = "";
      94. CString StrResult2 = "";
      95. for (int I = 1; I <= 500; I++)
      96. {
      97. StrResult2.Insert(StrResult2.GetLength(),"Bit_AND(+");
      98. StrResult = "";
      99. StrResult.Format(_T("%d"), I);
      100. StrResult2.Insert(StrResult2.GetLength(),StrResult.GetBuffer(0));
      101. StrResult2.Insert(StrResult2.GetLength()," , +");
      102. StrResult = "";
      103. StrResult.Format(_T("%d"), (I + 5));
      104. StrResult2.Insert(StrResult2.GetLength(),StrResult.GetBuffer(0));
      105. StrResult2.Insert(StrResult2.GetLength(),") ==>");
      106. StrResult = "";
      107. StrResult.Format(_T("%d"), Bit_AND(I, (I + 5)));
      108. StrResult2.Insert(StrResult2.GetLength(),StrResult.GetBuffer(0));
      109. StrResult2.Insert(StrResult2.GetLength()," ==> ");
      110. StrResult2.Insert(StrResult2.GetLength(),"( +");
      111. StrResult = "";
      112. StrResult.Format(_T("%d"), I);
      113. StrResult2.Insert(StrResult2.GetLength(),StrResult.GetBuffer(0));
      114. StrResult2.Insert(StrResult2.GetLength()," & +");
      115. StrResult = "";
      116. StrResult.Format(_T("%d"), (I + 5));
      117. StrResult2.Insert(StrResult2.GetLength(),StrResult.GetBuffer(0));
      118. StrResult2.Insert(StrResult2.GetLength()," ) ==> ");
      119. StrResult.Format(_T("%d"), I & (I + 5));
      120. StrResult2.Insert(StrResult2.GetLength(),StrResult.GetBuffer(0));
      121. StrResult2.Insert(StrResult2.GetLength(),(char) 13);
      122. StrResult2.Insert(StrResult2.GetLength(),(char) 10);
      123. }
      124. for (I = 1; I <= 500; I++)
      125. {
      126. StrResult2.Insert(StrResult2.GetLength(),"Bit_AND(-");
      127. StrResult = "";
      128. StrResult.Format(_T("%d"), I);
      129. StrResult2.Insert(StrResult2.GetLength(),StrResult.GetBuffer(0));
      130. StrResult2.Insert(StrResult2.GetLength()," , -");
      131. StrResult = "";
      132. StrResult.Format(_T("%d"), (I + 5));
      133. StrResult2.Insert(StrResult2.GetLength(),StrResult.GetBuffer(0));
      134. StrResult2.Insert(StrResult2.GetLength(),") ==>");
      135. StrResult = "";
      136. StrResult.Format(_T("%d"), Bit_AND(-I, -(I + 5)));
      137. StrResult2.Insert(StrResult2.GetLength(),StrResult.GetBuffer(0));
      138. StrResult2.Insert(StrResult2.GetLength()," ==> ");
      139. StrResult2.Insert(StrResult2.GetLength(),"( -");
      140. StrResult = "";
      141. StrResult.Format(_T("%d"), I);
      142. StrResult2.Insert(StrResult2.GetLength(),StrResult.GetBuffer(0));
      143. StrResult2.Insert(StrResult2.GetLength()," & -");
      144. StrResult = "";
      145. StrResult.Format(_T("%d"), (I + 5));
      146. StrResult2.Insert(StrResult2.GetLength(),StrResult.GetBuffer(0));
      147. StrResult2.Insert(StrResult2.GetLength()," ) ==> ");
      148. StrResult.Format(_T("%d"), -I & -(I + 5));
      149. StrResult2.Insert(StrResult2.GetLength(),StrResult.GetBuffer(0));
      150. StrResult2.Insert(StrResult2.GetLength(),(char) 13);
      151. StrResult2.Insert(StrResult2.GetLength(),(char) 10);
      152. }
      153. for (I = 1; I <= 500; I++)
      154. {
      155. StrResult2.Insert(StrResult2.GetLength(),"Bit_AND(-");
      156. StrResult = "";
      157. StrResult.Format(_T("%d"), I);
      158. StrResult2.Insert(StrResult2.GetLength(),StrResult.GetBuffer(0));
      159. StrResult2.Insert(StrResult2.GetLength()," , +");
      160. StrResult = "";
      161. StrResult.Format(_T("%d"), (I + 5));
      162. StrResult2.Insert(StrResult2.GetLength(),StrResult.GetBuffer(0));
      163. StrResult2.Insert(StrResult2.GetLength(),") ==>");
      164. StrResult = "";
      165. StrResult.Format(_T("%d"), Bit_AND(-I, (I + 5)));
      166. StrResult2.Insert(StrResult2.GetLength(),StrResult.GetBuffer(0));
      167. StrResult2.Insert(StrResult2.GetLength()," ==> ");
      168. StrResult2.Insert(StrResult2.GetLength(),"( -");
      169. StrResult = "";
      170. StrResult.Format(_T("%d"), I);
      171. StrResult2.Insert(StrResult2.GetLength(),StrResult.GetBuffer(0));
      172. StrResult2.Insert(StrResult2.GetLength()," & +");
      173. StrResult = "";
      174. StrResult.Format(_T("%d"), (I + 5));
      175. StrResult2.Insert(StrResult2.GetLength(),StrResult.GetBuffer(0));
      176. StrResult2.Insert(StrResult2.GetLength()," ) ==> ");
      177. StrResult.Format(_T("%d"), -I & (I + 5));
      178. StrResult2.Insert(StrResult2.GetLength(),StrResult.GetBuffer(0));
      179. StrResult2.Insert(StrResult2.GetLength(),(char) 13);
      180. StrResult2.Insert(StrResult2.GetLength(),(char) 10);
      181. }
      183. file.Write(StrResult2.GetBuffer(0),StrResult2.GetLength());
      184. }
      186. int Bit_AND(int value1, int value2)
      187. {
      188. CString TXT , ALLTXT;
      189. CString A = Twos(value1); //; convert Form Tens To Twos
      190. CString B = Twos(value2); //; convert Form Tens To Twos
      191. int Slen1 = strlen(A) - strlen(B);
      192. int Slen2 = strlen(B) - strlen(A);
      193. if (strlen(A) > strlen(B)) ;
      194. {
      195. for (int I = 1; I<= (Slen1); I++)
      196. {
      197. if (value2 >= 0) // + value2 Or value2 = 0
      198. {
      199. B = "0" + B;
      200. } else { //; - value2
      201. B = "1" + B;
      202. }}
      203. }
      204. if (strlen(B) > strlen(A))
      205. {
      206. for (int I = 1; I <= (Slen2); I++)
      207. {
      208. if (value1 >= 0) // + value1 Or value1 = 0
      209. {
      210. A = "0" + A;
      211. } else { // ; - value2
      212. A = "1" + A;
      213. }}
      214. }
      215. for (int M=A.GetLength() ;M>=1;M--)
      216. {
      217. CString Str1 = A.Left(M).Right(1);
      218. CString Str2 = B.Left(M).Right(1);
      219. if ((value1 < 0) && (value2 < 0)) //operation ==> (-,-) // العملية على ==> (-,-)
      220. {
      221. // TXT = StrIsInt(C) + TXT; ; convert Form Tens (+A - 1) = -A To Twos + A with Out sign bit
      222. // Look Func Twos
      223. // في حالة كان الرقم سالب نحوله لرقم موجب ثم نطرح منه واحد لأن ناتج الطرح بنفس قيمة الرقم سالبا
      224. //Twos أنظر الوظيفة
      225. if (Str1 + Str2 == (CString) "11") TXT = "0";
      226. else if (Str1 + Str2 == (CString) "00") TXT = "1";
      227. else if (Str1 + Str2 == (CString) "10") TXT = "1";
      228. else if (Str1 + Str2 == (CString) "01") TXT = "1";
      229. } else { //operation ==> (-,+) Or (+,-) Or (+,+) //No sign bit Or sign bit = 0
      230. // في هذا الإحتمال إلسي تكون النتائج موجبة وذلك بسبب نتائج العملية و التي تعطي قيمة
      231. // موجبة للمتمم و أيضا الإحتمال الأخر و هوه إجراء العملية على عدين موجبين
      232. if (Str1 + Str2 == (CString) "11") TXT = "1";
      233. else if (Str1 + Str2 == (CString) "00") TXT = "0";
      234. else if (Str1 + Str2 == (CString) "10") TXT = "0";
      235. else if (Str1 + Str2 == (CString) "01") TXT = "0";
      236. }
      237. ALLTXT = TXT + ALLTXT;
      238. }
      239. if ((value1 < 0) && (value2 < 0)) // ; sign bit bitwise And (signbit ,signbit) / (1 And 1) = 1
      240. {
      241. // في هذا الإحتمال الوحيد بهذه العملية يكون الناتج سالبا و بما أن المتمم يكون في الخانة الأولى
      242. // اليمنى في نظام العدد اثنائي و لا يمكن إلا أن يكون مساويا للواحدفبذالك يمكننا أظافته لنظام العد
      243. // العشري من بعد تحويل الثنائي للعشري
      244. return (- (Tens(ALLTXT) + 1)); //; convert From Twos To Tens And Add 1 For sign bit
      245. } else {
      246. return Tens(ALLTXT); //; convert From Twos To Tens //No sign bit Or sign bit = 0
      247. }
      248. }
      250. int Bit_OR(int value1, int value2)
      251. {
      252. CString TXT , ALLTXT;
      253. CString A = Twos(value1); //; convert Form Tens To Twos
      254. CString B = Twos(value2); //; convert Form Tens To Twos
      255. int Slen1 = strlen(A) - strlen(B);
      256. int Slen2 = strlen(B) - strlen(A);
      257. if (strlen(A) > strlen(B)) ;
      258. {
      259. for (int I = 1; I <= (Slen1); I++)
      260. {
      261. if (value2 >= 0) // + value2 Or value2 = 0
      262. {
      263. B = "0" + B;
      264. } else { //; - value2
      265. B = "1" + B;
      266. }}
      267. }
      268. if (strlen(B) > strlen(A))
      269. {
      270. for (int I = 1; I <= (Slen2); I++)
      271. {
      272. if (value1 >= 0) // + value1 Or value1 = 0
      273. {
      274. A = "0" + A;
      275. } else { // ; - value2
      276. A = "1" + A;
      277. }}
      278. }
      279. for (int M=A.GetLength();M>=1;M--)
      280. {
      281. CString Str1 = A.Left(M).Right(1);
      282. CString Str2 = B.Left(M).Right(1);
      283. if ((value1 < 0 && value2 >= 0) || (value2 < 0 && value1 >= 0) || (value1 < 0 && value2 < 0))
      284. {
      285. // operation ==> (-,+) Or (+,-) Or (-,-)
      286. // TXT = StrIsInt(C) + TXT convert Form Tens (+A - 1) = -A To Twos + A with Out sign bit
      287. // Look Func Twos
      288. if (Str1 + Str2 == (CString) "11") TXT = "0";
      289. else if (Str1 + Str2 == (CString) "00") TXT = "1";
      290. else if (Str1 + Str2 == (CString) "10") TXT = "0";
      291. else if (Str1 + Str2 == (CString) "01") TXT = "0";
      292. } else { //operation ==> (+,+) //No sign bit
      293. if (Str1 + Str2 == (CString) "11") TXT = "1";
      294. else if (Str1 + Str2 == (CString) "00") TXT = "0";
      295. else if (Str1 + Str2 == (CString) "10") TXT = "1";
      296. else if (Str1 + Str2 == (CString) "01") TXT = "1";
      297. }
      298. ALLTXT = TXT + ALLTXT;
      299. }
      300. if ((value1 < 0 && value2 >= 0) || (value2 < 0 && value1 >= 0) || (value1 < 0 && value2 < 0))
      301. {
      302. // sign bit bitwise OR (signbit OR Number) (Number OR signbit)
      303. //(signbit OR signbit) / (1 OR 1) = 1 / (1 OR 0) = 1 (0 OR 1) = 1
      304. // TXT = StrIsInt(C) + TXT convert Form Tens (+A - 1) = -A To Twos + A with Out sign bit
      305. // Look Func Twos
      306. return (- (Tens(ALLTXT) + 1)); //; convert From Twos To Tens And Add 1 For sign bit
      307. } else {
      308. return Tens(ALLTXT); //; convert From Twos To Tens //No sign bit
      309. }
      310. }
      312. int Bit_XOR(int value1, int value2)
      313. {
      314. CString TXT , ALLTXT;
      315. CString A = Twos(value1); //; convert Form Tens To Twos
      316. CString B = Twos(value2); //; convert Form Tens To Twos
      317. int Slen1 = strlen(A) - strlen(B);
      318. int Slen2 = strlen(B) - strlen(A);
      319. if (strlen(A) > strlen(B)) ;
      320. {
      321. for (int I = 1; I <= (Slen1); I++)
      322. {
      323. if (value2 >= 0) // + value2 Or value2 = 0
      324. {
      325. B = "0" + B;
      326. } else { //; - value2
      327. B = "1" + B;
      328. }}
      329. }
      330. if (strlen(B) > strlen(A))
      331. {
      332. for (int I = 1; I <= (Slen2); I++)
      333. {
      334. if (value1 >= 0) // + value1 Or value1 = 0
      335. {
      336. A = "0" + A;
      337. } else { // ; - value2
      338. A = "1" + A;
      339. }}
      340. }
      341. for (int M=A.GetLength();M>=1;M--)
      342. {
      343. CString Str1 = A.Left(M).Right(1);
      344. CString Str2 = B.Left(M).Right(1);
      345. if ((value1 < 0 && value2 > 0) || (value2 < 0 && value1 > 0))
      346. {
      347. // operation ==> (-,+) Or (+,-)
      348. // TXT = StrIsInt(C) + TXT convert Form Tens (+A - 1) = -A To Twos + A with Out sign bit
      349. // Look Func Twos
      350. if (Str1 + Str2 == (CString) "11") TXT = "1";
      351. else if (Str1 + Str2 == (CString) "00") TXT = "1";
      352. else if (Str1 + Str2 == (CString) "10") TXT = "0";
      353. else if (Str1 + Str2 == (CString) "01") TXT = "0";
      354. } else { //operation ==> (+,+) (-,-) // No sign bit Or sign bit = 0
      355. if (Str1 + Str2 == (CString) "11") TXT = "0";
      356. else if (Str1 + Str2 == (CString) "00") TXT = "0";
      357. else if (Str1 + Str2 == (CString) "10") TXT = "1";
      358. else if (Str1 + Str2 == (CString) "01") TXT = "1";
      359. }
      360. ALLTXT = TXT + ALLTXT;
      361. }
      362. if ((value1 < 0 && value2 > 0) || (value2 < 0 && value1 > 0))
      363. {
      364. //; sign bit bitwise exclusive OR (signbit XOR Number) (Number XOR signbit) (1 XOR 0) = 1 (0 XOR 1) = 1
      365. // TXT = StrIsInt(C) + TXT convert Form Tens (+A - 1) = -A To Twos + A with Out sign bit
      366. // Look Func Twos
      367. return (- (Tens(ALLTXT) + 1)); //; convert From Twos To Tens And Add 1 For sign bit
      368. } else {
      369. return Tens(ALLTXT); //; convert From Twos To Tens //No sign bit Or sign bit = 0
      370. }
      371. }
      374. CString Twos(int A) //; convert Form Tens To Twos
      375. {
      376. float C = A;
      377. CString TXT = "";
      378. if(A < 0) C = (abs(A) - 1); //; -A = (+A - 1) Look bitwise NOT // bitwise NOT أنظر
      379. // في حالة كان الرقم سالب نحوله لرقم موجب ثم نطرح منه واحد لأن ناتج الطرح بنفس قيمة الرقم سالبا
      380. do
      381. {
      382. C = (C / 2); // ; / int($C) // نقوم بالقسمة لتحويل لنظام العد الثنائي
      383. if(A < 0) // ; if -A
      384. {
      385. TXT = StrIsInt(C) + TXT; //; convert Form Tens (+A - 1) = -A To Twos + A with Out sign bit
      386. // نحول ناتج عملية الطرح عكسيا ليصبح عددا موجبا لندخله في العمليات على أساس أنه موجب
      387. } else { // ; Else + A Or 0
      388. TXT = StrIsFloat(C) + TXT; //; convert Form +A To Twos +A
      389. // في حالة كان الرقم موجبا نحوله مباشرة لنظام العد الثائي ليدخل في العمليات و هووه موجب
      390. }
      391. C = int(C);
      392. } while (C >= 1);
      393. return TXT;
      394. }
      396. int Tens(CString B) // convert From Twos To Tens
      397. {
      398. int D =0;
      399. int C =0;
      400. for (int M=B.GetLength();M>=1;M--)
      401. {
      402. D += ( _ttoi(B.Left(M).Right(1)) * _POW(2 , C) ); //; convert From Twos To Tens
      403. C +=1;
      404. }
      405. return D;
      406. }
      408. CString StrIsInt(float C)
      409. {
      410. CString iResult = "";
      411. iResult.Format(_T("%g"), C);
      412. if (iResult.Find(".",1) == -1)
      413. return "1";
      414. else
      415. return "0";
      416. }
      417. CString StrIsFloat(float C)
      418. {
      419. CString iResult = "";
      420. iResult.Format(_T("%g"), C);
      421. if (iResult.Find(".",1) == -1)
      422. return "0";
      423. else
      424. return "1";
      425. }
      426. int _POW(int X , int Y)
      427. {
      428. int Z = 1;
      429. for (int M = 1; M <= Y; M++)
      430. {
      431. Z *= X;
      432. }
      433. return Z;
      434. }
      عرض الكل


      وهذا على لغة

      Autoit



      PHP كود المصدر

      1. $file = FileOpen("operation.txt", 1)
      3. for $i = 1 To 100 Step 1
      4. $Line1 = "Autoit BitAND ==> " & BitAND($i , $i + 5) & " FuncBit_AND ==> " & Bit_AND($i, $i + 5) & _
      5. " NO ==> ( " & $i & " , " & $i + 5 & " )"
      6. $Line2 = "Autoit BitAND ==> " & BitAND(- $i , - ($i + 5)) & " FuncBit_AND ==> " & Bit_AND(- $i, - ($i + 5)) & _
      7. " NO ==> ( " & - $i & " , " & - ($i + 5) & " )"
      8. $Line3 = "Autoit BitAND ==> " & BitAND($i , - ($i + 5)) & " FuncBit_AND ==> " & Bit_AND($i, - ($i + 5)) & _
      9. " NO ==> ( " & $i & " , " & - ($i + 5) & " )"
      10. $Line4 = "Autoit BitAND ==> " & BitAND(- $i , ($i + 5)) & " FuncBit_AND ==> " & Bit_AND(- $i, ($i + 5)) & _
      11. " NO ==> ( " & - $i & " , " & ($i + 5) & " )"
      12. FileWriteLine($file,$Line1)
      13. FileWriteLine($file,$Line2)
      14. FileWriteLine($file,$Line3)
      15. FileWriteLine($file,$Line4)
      16. $Line1 = "Autoit BitOR ==> " & BitOR($i , $i + 5) & " FuncBit_OR ==> " & Bit_OR($i, $i + 5) & _
      17. " NO ==> ( " & $i & " , " & $i + 5 & " )"
      18. $Line2 = "Autoit BitOR ==> " & BitOR(- $i , - ($i + 5)) & " FuncBit_OR ==> " & Bit_OR(- $i, - ($i + 5)) & _
      19. " NO ==> ( " & - $i & " , " & - ($i + 5) & " )"
      20. $Line3 = "Autoit BitOR ==> " & BitOR($i , - ($i + 5)) & " FuncBit_OR ==> " & Bit_OR($i, - ($i + 5)) & _
      21. " NO ==> ( " & $i & " , " & - ($i + 5) & " )"
      22. $Line4 = "Autoit BitOR ==> " & BitOR(- $i , ($i + 5)) & " FuncBit_OR ==> " & Bit_OR(- $i, ($i + 5)) & _
      23. " NO ==> ( " & - $i & " , " & ($i + 5) & " )"
      24. FileWriteLine($file,$Line1)
      25. FileWriteLine($file,$Line2)
      26. FileWriteLine($file,$Line3)
      27. FileWriteLine($file,$Line4)
      28. $Line1 = "Autoit BitXOR ==> " & BitXOR($i , $i + 5) & " FuncBit_XOR ==> " & Bit_XOR($i, $i + 5) & _
      29. " NO ==> ( " & $i & " , " & $i + 5 & " )"
      30. $Line2 = "Autoit BitXOR ==> " & BitXOR(- $i , - ($i + 5)) & " FuncBit_XOR ==> " & Bit_XOR(- $i, - ($i + 5)) & _
      31. " NO ==> ( " & - $i & " , " & - ($i + 5) & " )"
      32. $Line3 = "Autoit BitXOR ==> " & BitXOR($i , - ($i + 5)) & " FuncBit_XOR ==> " & Bit_XOR($i, - ($i + 5)) & _
      33. " NO ==> ( " & $i & " , " & - ($i + 5) & " )"
      34. $Line4 = "Autoit BitXOR ==> " & BitXOR(- $i , ($i + 5)) & " FuncBit_XOR ==> " & Bit_XOR(- $i, ($i + 5)) & _
      35. " NO ==> ( " & - $i & " , " & ($i + 5) & " )"
      36. FileWriteLine($file,$Line1)
      37. FileWriteLine($file,$Line2)
      38. FileWriteLine($file,$Line3)
      39. FileWriteLine($file,$Line4)
      40. Next
      43. Func Bit_AND($value1, $value2 , $value = '')
      44. $BOOL = IsNumber($value) Or StringStripWS($value, 8) = ''
      45. if IsNumber($value1) And IsNumber($value2) And ($BOOL) Then
      46. Dim $TXT = "" ,$TXT2 = ""
      47. $A = Twos($value1) ; convert Form Tens To Twos
      48. $B = Twos($value2) ; convert Form Tens To Twos
      49. If StringLen($A) > StringLen($B) Then
      50. For $I = 1 To StringLen($A) - StringLen($B) Step 1
      51. Select
      52. Case $value2 >= 0 ; + value2 Or value2 = 0
      53. $B = "0" & $B
      54. Case $value2 < 0 ; - value2
      55. $B = "1" & $B
      56. EndSelect
      57. Next
      58. ElseIf StringLen($B) > StringLen($A) Then
      59. For $I = 1 To StringLen($B) - StringLen($A) Step 1
      60. Select
      61. Case $value1 >= 0 ; + value1 Or value1 = 0
      62. $A = "0" & $A
      63. Case $value1 < 0 ; - value2
      64. $A = "1" & $A
      65. EndSelect
      66. Next
      67. EndIf
      68. $A = StringSplit($A,"")
      69. $B = StringSplit($B,"")
      70. for $I = $A[0] To 1 Step -1
      71. Select
      72. Case $value1 < 0 And $value2 < 0
      73. ;Case operation ==> (-,-)
      74. ; $TXT = IsInt($C) & $TXT ; convert Form Tens (+A - 1) = -A To Twos + A with Out sign bit Look Func Twos
      75. Select
      76. Case $A[$i] & $B[$i] = '11'
      77. $TXT = '0'
      78. Case $A[$i] & $B[$i] = '00'
      79. $TXT = '1'
      80. Case $A[$i] & $B[$i] = '10'
      81. $TXT = '1'
      82. Case $A[$i] & $B[$i] = '01'
      83. $TXT = '1'
      84. EndSelect
      85. Case Else
      86. ;Case operation ==> (-,+) Or (+,-) Or (+,+) No sign bit Or sign bit = 0
      87. Select
      88. Case $A[$i] & $B[$i] = '11'
      89. $TXT = '1'
      90. Case $A[$i] & $B[$i] = '00'
      91. $TXT = '0'
      92. Case $A[$i] & $B[$i] = '10'
      93. $TXT = '0'
      94. Case $A[$i] & $B[$i] = '01'
      95. $TXT = '0'
      96. EndSelect
      97. EndSelect
      98. $TXT2 = $TXT & $TXT2
      99. Next
      100. $E = StringSplit($TXT2,"")
      101. Select
      102. Case StringStripWS($value, 8) = ''
      103. If ($value1 < 0 And $value2 < 0) Then ; sign bit bitwise And (signbit ,signbit) / (1 And 1) = 1
      104. Return (- (Tens($E) + 1)) ; convert From Twos To Tens And Add 1 For sign bit
      105. Else
      106. Return Tens($E) ; convert From Twos To Tens
      107. EndIf
      108. Case StringStripWS($value, 8) <> ''
      109. If ($value1 < 0 And $value2 < 0) Then ; sign bit bitwise And (signbit ,signbit) / (1 And 1) = 1
      110. $A = (- (Tens($E) + 1)) ;; convert From Twos To Tens And Add 1 For sign bit
      111. Else
      112. $A = (Tens($E)) ; convert From Twos To Tens // No sign bit Or sign bit = 0
      113. EndIf
      114. Bit_AND($A, $value,"")
      115. EndSelect
      116. Else
      117. Return ""
      118. EndIf
      119. EndFunc
      121. Func Bit_OR($value1, $value2 , $value = '')
      122. $BOOL = IsNumber($value) Or StringStripWS($value, 8) = ''
      123. if IsNumber($value1) And IsNumber($value2) And ($BOOL) Then
      124. Dim $TXT = "" ,$TXT2 = ""
      125. $A = Twos($value1) ; convert Form Tens To Twos
      126. $B = Twos($value2) ; convert Form Tens To Twos
      127. If StringLen($A) > StringLen($B) Then
      128. For $I = 1 To StringLen($A) - StringLen($B) Step 1
      129. Select
      130. Case $value2 >= 0 ; + value2 Or value2 = 0
      131. $B = "0" & $B
      132. Case $value2 < 0 ; - value2
      133. $B = "1" & $B
      134. EndSelect
      135. Next
      136. ElseIf StringLen($B) > StringLen($A) Then
      137. For $I = 1 To StringLen($B) - StringLen($A) Step 1
      138. Select
      139. Case $value1 >= 0 ; + value1 Or value1 = 0
      140. $A = "0" & $A
      141. Case $value1 < 0 ; - value2
      142. $A = "1" & $A
      143. EndSelect
      144. Next
      145. EndIf
      146. $A = StringSplit($A,"")
      147. $B = StringSplit($B,"")
      148. for $I = $A[0] To 1 Step -1
      149. Select
      150. Case ($value1 < 0 And $value2 >= 0) Or ($value2 < 0 And $value1 >= 0) Or ($value1 < 0 And $value2 < 0)
      151. ;Case operation ==> (-,+) Or (+,-) Or (-,-)
      152. ; $TXT = IsInt($C) & $TXT ; convert Form Tens (+A - 1) = -A To Twos + A with Out sign bit Look Func Twos
      153. Select
      154. Case $A[$i] & $B[$i] = '11'
      155. $TXT = '0'
      156. Case $A[$i] & $B[$i] = '00'
      157. $TXT = '1'
      158. Case $A[$i] & $B[$i] = '10'
      159. $TXT = '0'
      160. Case $A[$i] & $B[$i] = '01'
      161. $TXT = '0'
      162. EndSelect
      163. Case Else ;operation ==> (+,+) No sign bit
      164. Select
      165. Case $A[$i] & $B[$i] = '11'
      166. $TXT = '1'
      167. Case $A[$i] & $B[$i] = '00'
      168. $TXT = '0'
      169. Case $A[$i] & $B[$i] = '10'
      170. $TXT = '1'
      171. Case $A[$i] & $B[$i] = '01'
      172. $TXT = '1'
      173. EndSelect
      174. EndSelect
      175. $TXT2 = $TXT & $TXT2
      176. Next
      177. $E = StringSplit($TXT2,"")
      178. Select
      179. Case StringStripWS($value, 8) = ''
      180. If ($value1 < 0 And $value2 >= 0) Or ($value2 < 0 And $value1 >= 0) Or ($value1 < 0 And $value2 < 0) Then
      181. ; sign bit bitwise OR (signbit OR Number) (Number OR signbit) (signbit OR signbit) / (1 OR 1) = 1 / (1 OR 0) = 1 (0 OR 1) = 1
      182. ; $TXT = IsInt($C) & $TXT ; convert Form Tens (+A - 1) = -A To Twos + A with Out sign bit Look Func Twos
      183. Return (- (Tens($E) + 1)) ; convert From Twos To Tens And Add 1 For sign bit
      184. Else
      185. Return Tens($E) ; convert From Twos To Tens // No sign bit Or sign bit = 0
      186. EndIf
      187. Case StringStripWS($value, 8) <> ''
      188. if ($value1 < 0 And $value2 >= 0) Or ($value2 < 0 And $value1 >= 0) Or ($value1 < 0 And $value2 < 0) Then
      189. ; sign bit bitwise OR (signbit OR Number) (Number OR signbit) (signbit ,signbit) / (1 OR 1) = 1 / (1 OR 0) = 1 (0 OR 1) = 1 / (0 OR 0) = 1
      190. ; $TXT = IsInt($C) & $TXT ; convert Form Tens (+A - 1) = -A To Twos + A with Out sign bit Look Func Twos
      191. $A = (- (Tens($E) + 1)) ; convert From Twos To Tens And Add 1 For sign bit
      192. Else
      193. $A = (Tens($E)) ; convert From Twos To Tens //No sign bit
      194. EndIf
      195. Bit_OR($A, $value,"")
      196. EndSelect
      197. Else
      198. Return ""
      199. EndIf
      200. EndFunc
      203. Func Bit_XOR($value1, $value2 , $value = '')
      204. $BOOL = IsNumber($value) Or StringStripWS($value, 8) = ''
      205. if IsNumber($value1) And IsNumber($value2) And ($BOOL) Then
      206. Dim $TXT = "" ,$TXT2 = ""
      207. $A = Twos($value1) ; convert Form Tens To Twos
      208. $B = Twos($value2) ; convert Form Tens To Twos
      209. If StringLen($A) > StringLen($B) Then
      210. For $I = 1 To StringLen($A) - StringLen($B) Step 1
      211. Select
      212. Case $value2 >= 0 ; + value2 Or value2 = 0
      213. $B = "0" & $B
      214. Case $value2 < 0 ; - value2
      215. $B = "1" & $B
      216. EndSelect
      217. Next
      218. ElseIf StringLen($B) > StringLen($A) Then
      219. For $I = 1 To StringLen($B) - StringLen($A) Step 1
      220. Select
      221. Case $value1 >= 0 ; + value1 Or value1 = 0
      222. $A = "0" & $A
      223. Case $value1 < 0 ; - value2
      224. $A = "1" & $A
      225. EndSelect
      226. Next
      227. EndIf
      228. $A = StringSplit($A,"")
      229. $B = StringSplit($B,"")
      230. for $I = $A[0] To 1 Step -1
      231. Select
      232. Case ($value1 < 0 And $value2 > 0) Or ($value2 < 0 And $value1 > 0)
      233. ;Case operation ==> (-,+) Or (+,-)
      234. ; $TXT = IsInt($C) & $TXT ; convert Form Tens (+A - 1) = -A To Twos + A with Out sign bit Look Func Twos
      235. Select
      236. Case $A[$i] & $B[$i] = '11'
      237. $TXT = '1'
      238. Case $A[$i] & $B[$i] = '00'
      239. $TXT = '1'
      240. Case $A[$i] & $B[$i] = '10'
      241. $TXT = '0'
      242. Case $A[$i] & $B[$i] = '01'
      243. $TXT = '0'
      244. EndSelect
      245. Case Else ;operation ==> (+,+) (-,-) // No sign bit Or sign bit = 0
      246. Select
      247. Case $A[$i] & $B[$i] = '11'
      248. $TXT = '0'
      249. Case $A[$i] & $B[$i] = '00'
      250. $TXT = '0'
      251. Case $A[$i] & $B[$i] = '10'
      252. $TXT = '1'
      253. Case $A[$i] & $B[$i] = '01'
      254. $TXT = '1'
      255. EndSelect
      256. EndSelect
      257. $TXT2 = $TXT & $TXT2
      258. Next
      259. $E = StringSplit($TXT2,"")
      260. Select
      261. Case StringStripWS($value, 8) = ''
      262. If ($value1 < 0 And $value2 > 0) Or ($value2 < 0 And $value1 > 0) Then
      263. ; sign bit bitwise exclusive OR (signbit XOR Number) (Number XOR signbit) (1 XOR 0) = 1 (0 XOR 1) = 1
      264. ; $TXT = IsInt($C) & $TXT ; convert Form Tens (+A - 1) = -A To Twos + A with Out sign bit Look Func Twos
      265. Return (- (Tens($E) + 1)) ; convert From Twos To Tens And Add 1 For sign bit
      266. Else
      267. Return Tens($E)
      268. EndIf
      269. Case StringStripWS($value, 8) <> ''
      270. If ($value1 < 0 And $value2 > 0) Or ($value2 < 0 And $value1 > 0) Then
      271. ; sign bit bitwise exclusive OR (signbit XOR Number) (Number XOR signbit) (1 XOR 0) = 1 (0 XOR 1) = 1
      272. ; $TXT = IsInt($C) & $TXT ; convert Form Tens (+A - 1) = -A To Twos + A with Out sign bit Look Func Twos
      273. $A = (- (Tens($E) + 1)) ; convert From Twos To Tens And Add 1 For sign bit
      274. Else
      275. $A = (Tens($E)) ; convert From Twos To Tens //No sign bit Or sign bit = 0
      276. EndIf
      277. Bit_XOR($A, $value,"")
      278. EndSelect
      279. Else
      280. Return ""
      281. EndIf
      282. EndFunc
      284. Func Twos($A) ; convert Form Tens To Twos
      285. $C = $A
      286. if($A < 0) Then $C = (abs($A) - 1) ; -A = (+A - 1) Look bitwise NOT
      287. $TXT = ""
      288. Do
      289. $C = (int($C) / 2) ; / int($C)
      290. if($A < 0) Then ; if -A
      291. $TXT = IsInt($C) & $TXT ; convert Form Tens (+A - 1) = -A To Twos + A with Out sign bit
      292. ElseIf ($A >= 0) Then ; ElseIf + A Or 0
      293. $TXT = IsFloat($C) & $TXT ; convert Form +A To Twos +A
      294. EndIf
      295. Until(Int($C) < 1)
      296. Return $TXT
      297. EndFunc
      299. Func Tens($B) ; convert From Twos To Tens
      300. $D =0
      301. $C =0
      302. for $I = $B[0] To 1 Step -1
      303. $D += ($B[$I] * POW(2 , $C)) ; convert From Twos To Tens
      304. $C +=1
      305. Next
      306. Return $D
      307. EndFunc
      308. Func POW($X , $Y)
      309. $Z = 1
      310. For $I = 1 To $Y Step 1
      311. $Z *= $X
      312. Next
      313. Return $Z
      314. EndFunc
      عرض الكل