[ Visual Basic 6 ] طلبتكمٍ آلفزعهٍ .. كودٍ ـآختبآر شخصيٍه .!

[سآره]

آلسلآمٍ عليكمٍ ..

طلبتكمِ يَ آلآجآويدٍ!


آبي كوَدٍ آختبآر شخصيهٍ ..

لفيتٍ وتعبتٍ آسبوعٍ وـآنآ آدورهـٍ ومآلقيت شي


بوؤكرـآ تسليمٍ آلمشآريعً لآزمٍ ـآسلمهٍ ولآ 20 درجهٍ تروحً عليٍ

تكفوونٍ ـآبيه آليوممٍ

آخوَؤي ٍعبدآلله آلرويليٍ مسآعدتكٍ .. ..​

 

[عبدالله الرويـلي]

رد: طلبتكمٍ آلفزعهٍ .. كودٍ ـآختبآر شخصيٍه .!

ان شاءلله اقدر افيدك
بس مافهمت شلون اختبار شخصيه , ياليت تعطيني شرح عن فكرة البرنامج ,
وان شاءالله اقدر
افيدك , في كتابة الكود ,

​

 

[سآره]

رد: طلبتكمٍ آلفزعهٍ .. كودٍ ـآختبآر شخصيٍه .!

يَ عسسىٍ ربيَ يخليكَ ..

وحدهـٍ من آلآخوـآتٍ كآنتٍ عآرضهٍ نفس آلمشكلهٍ هنآٍ

ومسدحهً صورهٍـ للي ـآقصدهـ .. > نفرهـ سودآنيهٍ

زي كذآ > ـآحلفي

آبي آطلع آلنتيجهً .. صعب علي كَ مبتدئهٍ آنيٍ ـآكتب كودَ ..

لذلكٍ قلتٍ مآلي إلآٍ ديف بوينتٍ همآٍ آللي رـآح يسآعدوونٍي

خبري فيكمٍ محترفين مبَ مثليٍ >

 

[عبدالله الرويـلي]

رد: طلبتكمٍ آلفزعهٍ .. كودٍ ـآختبآر شخصيٍه .!

طيب ان شاءالله اقدر اكتب لك الكود الصحيح , لحظات

 

[عبدالله الرويـلي]

رد: طلبتكمٍ آلفزعهٍ .. كودٍ ـآختبآر شخصيٍه .!

جربي هالمثال ,, ان شاءلله يفيدك ,

 

[سآره]

رد: طلبتكمٍ آلفزعهٍ .. كودٍ ـآختبآر شخصيٍه .!

مبً هذآ آلليً كنتَ ـآقصدهـٍ خيوٍ َ

تدريَ فكرةة ـآلآسئلهٍ عجبتنيً

سويتً آلآسئه وَكلهٍ تممآمٍ


بس آلكود لخبطت فيهً


آلله لآيهينكِ مممكنَ تضبط آلكودِ

على 11 سؤآلٍ ..


'الاجابات الصحيحه هي " ماء واملاح " الهدير " الحبل السري " بلوتو "
"مع الشروق " الطاقة والقدرة البدنية " يزيد قليلا عن المليون " وحشي بن حرب"
" فيثاغورس " جلده " القمر "
Private Sub Command1_Click()
If Option1.Value = True = True Then N = N + 1
If Option6.Value = True = True Then N = N + 1
If Option11.Value = True = True Then N = N + 1
If Option1.Value = True = True Then N = N + 1
If Option6.Value = True = True Then N = N + 1
If Option11.Value = True = True Then N = N + 1
If Option1.Value = True = True Then N = N + 1
If Option6.Value = True = True Then N = N + 1
If Option11.Value = True = True Then N = N + 1
If Option1.Value = True = True Then N = N + 1
If Option6.Value = True = True Then N = N + 1
MsgBox " هي " & N & "من 11", vbInformation, "الاجابات"
End
End Sub



آللي بآلآحممرٍ ::= على ـآي آسآس كتبتهآ ـآمممٍ


معليش خيو رـآحٍ ـآتعبكً معآي وـآخذ من وقتكٍ

 

[سآره]

رد: طلبتكمٍ آلفزعهٍ .. كودٍ ـآختبآر شخصيٍه .!

كحً تآخرت عليٍ عبدـآلله مآبقى إلآ سآعتين عَ آلدوآمٍ

قلت يآبنتٍ آلعبي شويً ..

ضبط معآي وعرفت ليه هآللي بآلآحممرٍ ,,

> آحس آني آخترعت آلذرهـٍ


يعطيك آلف آلف عآآفيهٍ خيي

عسى ى ربي يحفظكٍ لعيونٍ ترجيكٍ

تنتظر آلدورهـ > يآليل آلنشبه :d

 

[عبدالله الرويـلي]

رد: طلبتكمٍ آلفزعهٍ .. كودٍ ـآختبآر شخصيٍه .!

بآكٍ سوري ع التآخير , وبالتوفيق ان شاءالله , ​