Forum > Arabic

شاركـ ببرنامج

<< < (4/5) > >>

pascal111:

--- Quote from: Zaher on September 30, 2021, 10:51:13 am ---لا يخطر على بالي شي حاليا
لكن كانت لدي هنالك فكرة نقل كود للغة BASIC من السي للباسكال، مهتمه تنفيذ مشاريع لغة بيسك بسيطة
الصراحة اني وجدته بسيط جدا و جميل فأحببت انت اتركه لاحدهم لكي يتعلم منه
قم بالمحاولة بتحويله
https://gist.github.com/pmachapman/661f0fff9814231fde48

--- End quote ---

يبدو الكود حقّاً رائعا! لكن خبرتي في الـ C++ ضعيفة ولا تكفني فهم كل عناصر هذا الكود ،هذا مُفسّر BASICمكتوب برشاقة .

Zaher:
لا، الكود مكتوب ببساطة، و اعتبرها فترة تجربة جميلة و يمكنك قرائته بسهولة، كنوع من التمرين، او اعتبره تحدي
أو حوله لأحد آخر

pascal111:

--- Quote from: Zaher on October 07, 2021, 01:57:10 pm ---لا، الكود مكتوب ببساطة، و اعتبرها فترة تجربة جميلة و يمكنك قرائته بسهولة، كنوع من التمرين، او اعتبره تحدي
أو حوله لأحد آخر

--- End quote ---


ليس لدي وقت للتحدي ،فلا يعنيني هذا المستوى من التفكير ،وأمّا رؤيتكـ أنّ الكود مكتوب ببساطة فيبدو أنّ قدراتكـ أعلى من قدراتنا في فهم الأكواد وأمّا أنا فلا أراهُ بسيطاً ،وأمّا تحويله ﻷحدٍ آخر فليتفضّل أيّاً من الأعضاء في ذلكـ فليس فرضاً على أحد والموضوع جلّهُ هواية فمن يهوى تحويل الكود للـ Pascal فليفعل.

pascal111:
هذه لعبة Acey Ducey ،النسخة الأصليّة مبرمجة بلغة الـ BASIC وقد قمت ببرمجتها برمجة مرئيّة باستخدام Lazarus ولكن من يطلب نسخة مُجرّدة عن إضافات البرمجة المرئيّة فلديّ نسخة بكود الـ C++ لمن يرغب في تحويلها إلى كود Pascal باستخدام الـ Terminal.

https://github.com/pascal111-fra/aceyducey


--- Code: C  [+][-]window.onload = function(){var x1 = document.getElementById("main_content_section"); if (x1) { var x = document.getElementsByClassName("geshi");for (var i = 0; i < x.length; i++) { x[i].style.maxHeight='none'; x[i].style.height = Math.min(x[i].clientHeight+15,306)+'px'; x[i].style.resize = "vertical";}};} ---/* Acey Ducey game,originally programmed inBASIC */  #include <iostream>#include <cstdlib>#include <string>#include <cctype> using namespace std;   string card_name(int x); // turning cards valuse into strings function int main(void){ int your_money=100;int card_A,     card_B, card_C;    char q;   int bet_much; srand(time(NULL));   do // 1st do{      cout << "You've "      << your_money      << "$" << endl;               // Generating the two cards: do{ card_A = (rand()%13)+2;card_B = (rand()%13)+2; } while (!(card_A < card_B) && !((card_B - card_A) >=2));  cout << "Here are your two cards: "     << card_name(card_A) << " "     << card_name(card_B) << endl;           // Betting query:  card_C = (rand()%13)+2; do{ cout << "Do you'll bet (y/n/e = (exit))? ";cin >> q; } while ((tolower(q)!='y') &&            (tolower(q)!='n') &&           (tolower(q)!='e'));  // agreeing betting if (tolower(q)=='y') {  do{cout << "With how much? ";cin >> bet_much; if (bet_much>your_money)   {      cout << "You don't have this much to bet with,"          << endl << "you have " << your_money << "$"          << endl;                          }        } while (!(bet_much<=your_money));  if ((card_C>=card_A) && (card_C<=card_B)) // following agreeing betting 'if'   {       cout << "You are right! " << endl         << "3rd card is: "         << card_name(card_C) << endl;             your_money+=bet_much;      }   else    {         cout << "Oops! you are wrong!" << endl          << "3rd card is: "          << card_name(card_C) << endl;     your_money-=bet_much;        }    } else // 'else if' of agreeing betting 'if' if(tolower(q)=='e')    exit(0);else // considered final 'else' of agreeing betting 'if' cout << "CHICKEN!!!" << endl;  /* q='\0'; if q will be tested without, renewing its original value. */ // Your money = 0 test if (your_money == 0) {  do{cout << "Oops! you have no money to bet with,"     << endl << "do you want playing again (y/n)? ";     cin >> q; } while ((tolower(q)!='y') &&            (tolower(q)!='n')); if (tolower(q)=='y') // nasted in 'if money = 0'{ your_money = 100; } else /* if (tolower(q)=='n') ignored because 'else' will be passed because there will be no test in its 'if' if money isn't 0 */  exit(0); } // if money = 0   } while (true); // 1st do    return 0;}  // turning cards valuse into strings functionstring card_name(int x){ string c; switch (x){ case 11:        c="Jack";        break; case 12:        c="Queen";        break;        case 13:        c="King";        break;        case 14:        c="Ace";        break;        default:        c=to_string(x);  } return c;} 

Al-Eid:
السلام عليكم
في الحقيقة هذا ليس برنامج ولكنه عبارة عن كود صغير وجدته في الأنترنت وأردت أن أنشره في هذا الموضوع
يعمل هذا الكود مع أداة  DBNavigator بحيث يقوم بسؤال المستخدم على تأكيد عملية الحذف
أولا نجعل قيمة الخاصية  ConfirmDelete تساوي False للأداة DBNavigator

وفي الحدث BeforeDelete للأداة SQLQuery نكتب الكود التالي

--- Code: Pascal  [+][-]window.onload = function(){var x1 = document.getElementById("main_content_section"); if (x1) { var x = document.getElementsByClassName("geshi");for (var i = 0; i < x.length; i++) { x[i].style.maxHeight='none'; x[i].style.height = Math.min(x[i].clientHeight+15,306)+'px'; x[i].style.resize = "vertical";}};} ---   if MessageDlg('تحذير','هل أنت متأكد من حذف',mtWarning,mbYesNo,0)<> mrYes  then Abort   else if MessageDlg('تأكيد','للتأكيد مرة ثانية'+#13+'هل أنت متأكد من حذف',mtWarning,mbYesNo,0)<> mrYes then Abort ; 

Navigation

[0] Message Index

[#] Next page

[*] Previous page

Go to full version