استخدام النوافذ والأزرار في لوجو مايكروسوفت :

تزودنا لوجو مايكروسوفت بالتحكم التام في بيئة الرسم الخاصة برسائل ويندوز و الإجراء التالي ينشئ نافذة و عليها أزرار للتحكم في الصوت :

عندما تنقر آي زر ينتج لديك صوت مختلف

to buttons
; (C) 1999 jfuller EDUCATIONAL
; A procedure written by J P Fuller 1999 to
; demonstrate how use 'buttons' to control procedures
; The screen window in a SVGA system set to 800 x 600 pixels
; is 400 wide by 300 high

windowcreate "main "mywindow "Buttons 10 0 300 150 []
; Creates a sub-window called "Buttons"
; NOTE: You can remove this window on closing with a
; windodelete "mywindow command.
; NOTE - The "[]" is a left/right square bracket. It is essential!"

groupboxcreate "mywindow [ box] 10 10 275 110
; Draws the rectangle around the main window
; NOTE: Screen co-ordinates are: x1, y1, x2, y2 (ie Horiz, Vert)

buttoncreate "mywindow "A "1 25 25 10 10 [sound [1000 200]]
buttoncreate "mywindow "B "2 25 50 10 10 [sound [500 200]]
buttoncreate "mywindow "C "3 25 75 10 10 [sound [250 200]]
buttoncreate "mywindow "D "4 25 100 10 10 [sound [125 200]]
; The lines above set up the four individual control buttons.
; The letters "A", "B", "C" and "D" are needed for naming purposes,
; but the names do not appear on the screen.
; The numbers "1", "2", "3" and "4" appear as button 'labels'.

buttoncreate "mywindow "Close [Close Window] 225 125 60 10 [windowdelete "mywindow]
; This line closes the sub-window opened in the first line.

staticcreate "mywindow "W [Sound 1] 45 25 80 10
staticcreate "mywindow "X [Sound 2] 45 50 80 10
staticcreate "mywindow "Y [Sound 3] 45 75 80 10
staticcreate "mywindow "Z [Sound 4] 45 100 80 10
; These lines create sub-windows in mywindow and
; write the text contained between the square brackets.

; NOTE: Make sure the sub-windows are large enough to
; hold all the text, or it will simply disappear!

end

فيما يلي تعريب عناوين النافذة والأزرار :

to buttons

; (C) 1999 jfuller EDUCATIONAL

; A procedure written by J P Fuller 1999 to

;ترجمة الدكتور / محمود بدر

; يوضح كيفية تحكم الأزرار في الإجراءات

; الشاشة سوبر فيجا 800×600 بكسل

windowcreate "main "mywindow "الأزرار 10 0 300 150 []

; ينشئ نافذة عنوانها أزرار;

; أيضاً يمكنك أن تغلق النافذة.

; القوس المربع الأخير ضروري

groupboxcreate "mywindow [ box] 10 10 275 110

; يرسم مستطيل حول الأزرار

; إحداثيات النافذة أفقية ورأسية و نقطة الأصل في الركن الأيسر العلوي و السيني أفقي إلي اليمين والصادي ل

buttoncreate "mywindow "A "1 25 25 10 10 [sound [1000 200]]

buttoncreate "mywindow "B "2 25 50 10 10 [sound [500 200]]

buttoncreate "mywindow "C "3 25 75 10 10 [sound [250 200]]

buttoncreate "mywindow "D "4 25 100 10 10 [sound [125 200]]

; "A", "B", "C" و "D" الحروف,

; تعتبر أسماء الأزرار-بالنسبة للبرنامج- ولا تظهر علي النافذة

; "1", "2", "3" و "4"الأرقام

;تظهر علي أنها أسماء الأزرار بالنسبة للمستخدم

buttoncreate "mywindow "Close [إغلاق النافذة] 225 125 60 10 [windowdelete "mywindow]

; هذا السطر ينشئ زر لدي النقر عليه يغلق النافذة

staticcreate "mywindow "W [الصوت الأول] 45 25 80 10

staticcreate "mywindow "X [الصوت الثاني] 45 50 80 10

staticcreate "mywindow "Y [الصوت الثالث] 45 75 80 10

staticcreate "mywindow "Z [الصوت الرابع] 45 100 80 10

;

end

ملحوظة : حاول تغيير القيم الموجودة في القواس وملاحظة الناتج ، ولا تبالي باختلاف الأقواس فهذا ناشئ عن اللغة العربية و خصائص الدفع الأيمن و الأيسر للغة