اجراي يك دستور در صورت كامل شدن دستور "فقط يك بار

[ali682344]

با سلام
من مي خواستم ببينم ميشه بدون استفاده از ريجستري
چند خط دستور رو براي يك بار اجرا كرد

يعني وقتي دستورها به انتها رسيدن بار ديگه كه برنامه اجرا بشه از اين خطوط عبور كنه

[Tasiyan]

ببين ميشه از توابع Save Setting & Get Setting واسه اين كار استفاده كرد
:لبخند:

[earse+erse]

از یک شرط استفاده کن و بهد از دستورت درون شرط به یک متغیر عدد بده

مثلا


Dim A as string
A="0"
If A="0" then
MsgBox "AliReza"
A="1"
EndIf


البته اگه بخوای با بستن و دوباره باز کردن برنامه دیگه این فرمان اجرا نشه باید مقدار متغیر رو تو ریجستری ثبت و فراخوانی کنی همون طور که دوستمون گفت.

یا علی

[kooroush]

می تونی از دستور open هم استفاده کنی !!!
به این صورت که وقتی دستور اجرا شد یک فایل هم ایجاد کنه و تو فرم لود مثلا می تونی با دستور dir برسی کنی که آگه فلان فایل وجود داشت دیگه این خط کد رو اجرا نکنه !!!
اگه به جایی نرسیدی بگو نمونه برنامه واست بزارم !!

و خداوند تشکر را آفرید!

[ali682344]

می تونی از دستور open هم استفاده کنی !!!
به این صورت که وقتی دستور اجرا شد یک فایل هم ایجاد کنه و تو فرم لود مثلا می تونی با دستور dir برسی کنی که آگه فلان فایل وجود داشت دیگه این خط کد رو اجرا نکنه !!!
اگه به جایی نرسیدی بگو نمونه برنامه واست بزارم !!

و خداوند تشکر را آفرید!

خوب اگه بزاري بيشتر ممنون شما ميشم

[sajjad_india]

خوب اگه بزاري بيشتر ممنون شما ميشم

بفرما

ولی قبلش برو تو Add . Refrence گزینه Microsoft Scripting Runtime رو تیک دار کن


Dim FileTest As New FileSystemObject

If FileTest.FileExists("File.txt") = True Then
MsgBox "File Mojod ast"
Else
MsgBox "File Vojod nadarad"
End If

سورسشو گذاشتم برات

تشکر یاد نره شیطون:چشمک:

[kooroush]

من از یک روش دیگه استفاده می کنم !
الان جائیم تا فردا صبح برات میزارمش!!!

یک توضیح :
برای مثال ما دوتا فرم داریم که می خوایم فرم اول فقط برای اولین باری که برنامه رو باز کردیم اجرا بشه !
تو فورم لود می نویسیم کاماند یک کلیک بشه !
حالا تو کاماند یک چی نوشتیم !؟ نوشتیم برسی کنه که آیا اون فایل که تو فورم لود نوشتیم وجود داره ؟؟ اگه وجود داشت مثلا فرم یکمون مخفی بشه و فرم دو لود بشه !!
تو ادامه فرم لود هم باید با یک دستور یک فایل ایجاد کنیم که اگه if تو کاماند رو برسی کرد و جواب فالس بود بیاد بره ادامه دستور و فایل رو بسازه تا دوره بعدی که فرم رو لود کردیم اون فایل وجود داشته باشه !و if تو کاماند مقدارش true بشه و دستورش اجرا بشه !!!

به همین سادگی اکه با دستور open , dir کار کرده باشی به راحتی میتونی یک فایل ایجاد کنی و برسی رو با dir انجلام بدی !!!
اگه نتونستی تا فرادا صبحج برنامه رو واست آپلود می کنم !




و تشکر توسط مدیران آفریده شد !

[ali682344]

بفرما

ولی قبلش برو تو Add . Refrence گزینه Microsoft Scripting Runtime رو تیک دار کن


Dim FileTest As New FileSystemObject

If FileTest.FileExists("File.txt") = True Then
MsgBox "File Mojod ast"
Else
MsgBox "File Vojod nadarad"
End If

سورسشو گذاشتم برات

تشکر یاد نره شیطون:چشمک:


دوست عزيز اين در مورد فايله
به هر ممنون

[kooroush]

خوب دوست عزیز ali682344 اگه می تونی اون خطی رو که می خوای یک بار اجرا بشه ضمیمه کن تا خود برنامه کامل شده بدستت بیاد وگرنه همون مثال دو تا فرم که فرم اول فقط برای اولین بار دیده بشه رو برات ضمیمه کنم !

[ali682344]

kooroush جان خیلی ممنون همونو بفرستی کفایت می کنم
دستت بی بلا

[kooroush]

این و همین الان نوشتم ! بازم مشکل داشتی در خدمتیم !