جعل شكل التردد مع دلفي

سيعلمك البرنامج التالي كيفية إنشاء نموذج سيهتز باستمرار على الشاشة بمجرد تشغيله.

تحديد متغيرين:

فار

BackLeft,BackTop,I:عدد صحيح;

// احفظ يسار النموذج

اليسار الخلفي:= اليسار؛

// احفظ الجزء العلوي من النموذج

باكتوب := أعلى؛

// يمكنك تعيين الرقم كرقم مرن. بالطبع، يتم تحديد القيمة بواسطتك.

لأني:=1 إلىرقم افعل

يبدأ

// ارتعاش أفقي

اليسار:= (BackLeft-10) + (عشوائي (20))؛

// غضب عمودي

الأعلى := (BackTop-10) + (عشوائي (20))؛

نهاية؛

// قم بعمل نسخة احتياطية على يسار النموذج

يسار := يسار خلفي؛

// قم بعمل نسخة احتياطية من الجزء العلوي من النموذج

أعلى := باكتوب؛