بخصوص تعريف المتغيرات

أعتقد أنه يجب عليك الأعلان عنها كمصفوفة نسيت الطريقة بالبيزك.. هذا بالC++

bool x[99];

x[0] = true;
x[1] = true;
x[2] = false;
.
.

أو يمكنك تعبئتها كلها بجملة تكراريه

bool x[99];

int i;

for( i = 0; i <= 99; i++)
{
x=true;
}

وتذكر دائما أن المصفوفة تبدأ من الصفر.. وأرجو من أحد الأعضاء أن يكتبو لك الكود بالبيزك

على ماأذكر :

Dim x(1 to 100 ) as boolean

mody5 كتب:

أعتقد أنه يجب عليك الأعلان عنها كمصفوفة نسيت الطريقة بالبيزك.. هذا بالC++

bool x[99];

 x[0] = true;
 x[1] = true;
 x[2] = false;
 .
 .

أو يمكنك تعبئتها كلها بجملة تكراريه

bool x[99];

 int i;

 for( i = 0; i <= 99; i++)
 {
 x=true;
 }

وتذكر دائما أن المصفوفة تبدأ من الصفر.. وأرجو من أحد الأعضاء أن يكتبو لك الكود بالبيزك

شكرا على الرد ولكن ليس لدي أي خلفية عن لغة السي .

StrikerX كتب:

على ماأذكر :

Dim x(1 to 100 ) as boolean

الكود خطأ

حاولت لكن لم استطع

جرب هذا

Option Base 1
Dim x(100) As Boolean

لو اردت الاعلان عن مصفوفة من 100 عنصر عناصرها من نوع boolean فتستطيع استخدام

dim x(100) as boolean

وحتى تستخدم عناصرها

x(0)=value
x(1)=value
.
.
.
x(100)=value

كود StrikerX صحيح و لكن نخليه من 0 الى 99 و بعد كده نتعامل معاهم زى أى مصفوفة :

Option Explicit

Dim x(0 To 99) As Boolean

Private Sub Form_Load()
x(0) = False
x(1) = True
End Sub

شكرا

اشتغل الكود

عندي سؤال ثاني

اذا كان عندي 2 فورم

في الفورم الاول اذا كنت اريد تشغيل كود من الفورم الثاني

يعني

Call Form2_load

??

ان شاء الله فهمتون ما اقصده

فهمتك بس فيه حاجة أسمها Module , و دى بنستعملها فى حالات زى دى لوضع الأكواد اللى بتكرر كتير و بالتالى نكتبها فى Module مرة واحدة و تكون Public و ناديها وقت ما نحب.

msayed2004 كتب:

فهمتك بس فيه حاجة أسمها Module , و دى بنستعملها فى حالات زى دى لوضع الأكواد اللى بتكرر كتير و بالتالى نكتبها فى Module مرة واحدة و تكون Public و ناديها وقت ما نحب.

فاهم لكن في حل غير Module ?

اخي وين السؤال ؟

طب وايه الهدف ؟!

عموما ممكن تحط كود Public فى الـ Form التانى و تناديه :

فى الـ Form 2

Option Explicit

Public Sub SubInForm2()
	MsgBox "Hi I am a visitor from Form2"
End Sub

و فى Form 1 :

Private Sub Form_Load()
	Form2.SubInForm2
End Sub

تعديل :

1- طبعا أنا مش شايف أى هدف من كده.

2- لا يصح أن تسأل أكتر من سؤال فى الموضوع الواحد.

1- شكرا على الردود

2- أنا لم اقم بعمل موضوع منفصل لكل سؤال حتى لا يكون القسم فوضويا بسببي وعذرا

اكتب بدل

Private Sub Form_Load()

Public Sub Form_Load()

بسم الله

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

ربنا يوفقك

اقتباس

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