ایجاد وقفه

با سلام خدمت دوستان.
یک فرم دارم که توی اون می خوام 15 تا دستور رو اجرا کنم.و می خوام بین هر دستور یک وقفه 10 ثانیه ای اجرا کنم.حتی الامکان از کنترل timer می خواهم استفاده کنم. چه کنم.

به جای تایمر می تونید از دستور(inkey(10 هم استفاده کنید . اما از تایمر اگه بخواهید باید در متد تایمر متغیری را مقدار دهی کنید بعد از دستور do case استفاده کنید . البته این بدیعی ترین راهه . ده ها راه دیگه هم دوستان خواهند گفت

باید مشخصه intervals تایمر را مقدار دهی کنید دقت کنید که میلی ثانیه واد اندازه گیری آن است. مثلا ۷۰۰۰ برای ۷ ثانیه. سپس کاری را که می خواهید انجام گیرد را در timer event قرار دهید. اما برای کار شما باید تمام دستورات در یک جدول اطلاعاتی ذخیره شده و با دستورات زیر اجرا شود. (می توانید از فایل هم استفاده کنید)

select prg1

skip +1

lcCommand=cCommand

&cCommand

دستورات در prg1 که یک جدول است ذخیره شده است.
یا می توانید دستورات را در یک فایل معمولی ذخیره کنید و هر بار یک خط را خوانده و اجرا کنید.

مقدار intervals مربوط به timer رو برابر 10000 قرار داده و در timer هم :
pr1=pr1+1
DO case
CASE pr1=1
DO prog1
CASE pr1=2
DO prog2
CASE pr1=3
DO prog3
CASE pr1=4
DO prog4
CASE pr1=5
DO prog5
CASE pr1=6
DO prog6
CASE pr1=7
DO prog7
CASE pr1=8
DO prog8
CASE pr1=9
DO prog9
CASE pr1=10
DO prog10
ENDCASE