الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

كيفية استعمال التايمر ؟؟؟

مغلق
بدأه K.I.D في 15 سبتمبر 2006 · 5 رد · 618 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

انا قاعد اصمم برنامج بالفيجوال وابغاه اول ما يشتغل يسوي امرين الاول يتفعل والثاني يتفعل بعده ب ثانيتين مثلا

زي كذا للمثال :

Private Sub Form_Load()
form1.hide
form2.show
End Sub

الحين ابغا امر form2.show يشتغل بعد حوالي ثانيتين او ثلاث ثواني

فياريت احد يعلمني كيف طريقتها

ولكم جزيل الشكر

تحياتي

#2

أخي K.I.D :

أولاً اهلاً بك في منتدى الفريق العربي للبرمجة

ثانياً قد يفيدكم هذا الكود

[code

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub Form_Load()

form1.hide

sleep 2000

form2.show

]end sub

حيث 2000 تعني ثانيتين (أدخل الزمن بالثانية مضروياً بأـلف)

تم تعديل هذه المشاركة بواسطة 007GB في 15 سبتمبر 2006 في 13:01

المستبد يتحكم في شؤون الناس بإرادته لا بإرادتهم و يحكمهم بهواه لا بشريعتهم و يعلم من نفسه أنه الغاصب المتعدي فيضع كعب رجله على أفواه الملايين من الناس يسدها عن النطق بالحق و التداعي لمطالبته

#3

السلام عليكم اخي

هذي من اسهل الامور

اولا اضف اداة التايمر في الفورم الاولى

و اجعل ال interval

2000

اذا تبغاها بعد ثانيتين

او 3000

اذا تبغاها بعد ثلاث ثواني

و ثم اذهب الى الكود الخاص بالتايمر

واكتب

form1.hide

form2.show

وشكرا

اخبرني ماذا حصل معك وشكرا

تحياتي

ابــــــــــــــــــن عماد

Matrixyb3D.jpg

في يوم من الايام قال Matrixyb

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

#6 
form_load()
dim x as integer
x=(x+timer1.value)/1000
if x=2 then
  form1.hide
end if
if x=3 then
  form2.show
end if
end sub
[code/]
جرب ذلك قد ينجح

لا استطيع الدخول بمعرفي كمشرف..هذا معرف سابق استرجعت كلمة المرور له

اشك ان عضويتي كمشرف حذفت

هذا الموضوع مغلق.

مواضيع مشابهة