lord_akinak متخصص ساخت بازی
تاريخ عضويت: شنبه 15 ارديبهشت 1386 تعداد ارسالها: 349 محل سكونت: Hell
3 شنبه 9 مرداد 1386 - 15:09 |
|
|
3 سال مي شه كه VB کار نکردم
شما هم خوب توضیح ندادی ، ولی یه چیزایی نوشتم ، اگه اشتباه کردم ، بیشتر توضیح بده ، خلاصه یه کارش می کنیم !
كد: |
Dim oldNames(t1) as String
Dim newNames(t2) as String
Dim state as Integer
public function getNameState( NAME as String )
Dim is_in_new as boolean
Dim is_in_old as boolean
is_in_old = false
is_in_new = false
for i = 0 to t1
if oldNames(i) = NAME then
is_in_old = true
exit for ' in dastoor ro yadam nist, vali inja bayad az halghe FOR kharej she !!
endif
end for
for j = 0 to t2
if newNames(j) = NAME then
is_in_new = true
exit for ' in dastoor ro yadam nist, vali inja bayad az halghe FOR kharej she !!
endif
end for
if is_in_new And is_in_old then
state = 1 ' in name bedoone taghire dar har do list ast;
else if is_in_new AND NOT is_in_old
state = 2 ' in name taze be list ezafe shode !
else if Not is_in_new And is_in_old
sate = 3 ' in name az list hazf shode !
else
state = 4 ' in name dar hich kodam az listha nist !
end if
end function
|
الگوريتم كلي به اين صورت است كه:
1 اسم رو دريافت مي كنيم.
2 فرض مي كنيم اين نام در هيچ كدام از دو ليست نيست !
3 دنبال نام در ليست اول مي گرديم
4 دنبال نام در ليست دوم مي گرديم
5 اگر نام در هر دو ليست بود، نام بدون تغییر ثبت شده .
6 اگر نام فقط در قدیم بود ، این نام حذف شده !
7 اگر نام فقط در جدید بود ، این نام تازه اضافه شده !
8 اگر نام در هیج کدام نبود ، این نام موجود نیست !
امید وارم مفید بوده یاشه ( یادی از قدیم ها هم کردم !! ) |
_________________ And hell was so cold
All the vases are so broken
And the roses tear our hands all open
Mother mary miscarry
But we pray just like insects
The world is so ugly now |
|