شغلى بالبسكال أيام الدراسة

البرنامج بسيط و نقصة حاجات كتير و لكن ديه كانت نواه :)

همممم

ممتاز ..

يبدو أن neo متعدد المهارات

شكرااااااااااااااا

شكرا على رد أخى ORWA :)

أنا بصراحة حاولت كتير أن أشتغل على الدلفى بس الدلفى هو الى مش بيساعدني :)

هذه أول محاولة فاشلة لى فى كتابة الدروس ( بردوة قديم أوى ) :D الدرس عن البرمجة بشكل غريب جدا :D

مرحبا

اقتباس

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

هذه أول محاولة فاشلة لى فى كتابة الدروس ( بردوة قديم أوى )  الدرس عن البرمجة بشكل غريب جدا 

أخي الكريم

هذا كود لبناء نافذة في الConsole

program HardCore;
uses
Windows, Messages;


function WindowProc(TheWindow: HWnd; TheMessage, WParam,
LParam: Longint): Longint; stdcall;
begin
case TheMessage of

WM_DESTROY: begin
PostQuitMessage(0);
Exit;
end;
end;
Result := DefWindowProc(TheWindow, TheMessage, WParam, LParam);
end;

function RegisterClass: Boolean;
var
WindowClass: TWndClass;
begin

WindowClass.Style := CS_HREDRAW or CS_VREDRAW;
WindowClass.lpfnWndProc := @WindowProc;
WindowClass.cbClsExtra := 0;
WindowClass.cbWndExtra := 0;
WindowClass.hInstance := hInstance;
WindowClass.hIcon := LoadIcon(0, IDI_APPLICATION);
WindowClass.hCursor := LoadCursor(0, IDC_UPARROW);
WindowClass.hbrBackground := COLOR_WINDOW;
WindowClass.lpszMenuName := nil;
WindowClass.lpszClassName := 'TestClass';

Result := Windows.RegisterClass(WindowClass) <> 0;
end;
var
TheMessage: TMsg;
OurWindow: HWND;
begin

if not RegisterClass then
begin
MessageBox(0,'RegisterClass failed',nil,MB_OK);
Exit;
end;

OurWindow := CreateWindowEx(0,'TestClass','HardCore Window',
WS_OVERLAPPEDWINDOW or WS_VISIBLE,
CW_USEDEFAULT,
CW_USEDEFAULT,
CW_USEDEFAULT,
CW_USEDEFAULT,0,0,
hInstance,nil);
if OurWindow=0 then
begin
MessageBox(0,'CreateWindow failed',nil,MB_OK);

end;

while GetMessage(TheMessage,0,0,0) do
begin
TranslateMessage(TheMessage);
DispatchMessage(TheMessage);
end;

end.

وهذا كود لبناء نافذة في تطبيق دلفي عادي

procedure TForm1.Button1Click(Sender: TObject);
var form2 : TForm ;
begin
 Application.CreateForm(TForm, Form2);
 form2.Show;
end;

فما بالك في تطبيق يحتوي على أكثر من 20 فورم

اعتقد انه بالطريقة الاولى سوف يتشتت ذهن المبرمج بالتركيز على إنشاء النوافذ والازرار والاشياء الاخرى ويبتعد وظيفة البرنامج الاساسية

وان البرنامج في الطريقة الاولى سوف يصبح من الصعب التطوير ومتابعة الاخطاء وسيأخذ وقت أطول في البناء

neo كتب:

بكل صراحة أن المبرمج الأن لا يتعب فى شئ سوى أستعمال الماوس لوضع بعض المفاتيح و المكونات و بعد ذلك كود بسيط

ليس هذا في كل التطبيقات، فبعضها يتطلب شهور...

أنا ساعتها كنت أتكلم عن البرامج التى كنا نصممها فى مشاريع التخرج حيث أننى وقتها لا أعلم كم المشاكل التى تواجه المبرمج حتى فى اللغات العالية :)

و ساعتها كنت نضايق جدا من الدوت نت علشان كانت بتعمل حاجات كتير كنا بنتعب فبها زمان

شكرا على ردك أخى M_Asize و DeltaAziz

مفيش تعليق !!!!!!!!!!!