فایل تصادفی برای اطلاعات دانش آموز

یک برنامه نمونه برای فایل تصادفی از اینجا دانلود کنید.

برنامه فایل ترتیبی همراه توضیحات (ویراستار متن)

برنامه ویراستار متن تمرین کتاب ویژوال 3 فصل 2 را از اینجا دانلود کنید

طرح درس ویژوال 3 ماژول کلاس

برای دانلود طرح درس 40 دقیقه ای ماژول کلاس اینجا کلیک کنید

دانلود برنامه و راهنمای آزمون آن لاین تستا

اینجا کلیک کنید

آموزش آسان و سریع برنامه نویسی ویژوال بیسیک بصورت عملی ورژن 2

مجموعه برنامه های آسان از مبتدی تا پیشرفته برای آموزش برنامه نویسی ویژوال بیسیک 6 قابل استفاده برای دانش آموزان و معلمان فنی حرفه ای و کاردانش برای دانلود اینجا کلیک کنید

دانلود کتاب VB2

 با توجه به اینکه در اذر 90 هنوز کتاب برنامه سازی 2 به دست ما نرسیده لطفا

برای دانلود کتاب ویژوال بیسیک 2 اینجا کلیک کنید.

توصیه قبل از آزمون سخت افزار

جزوه خلاصه درس سخت افزار ..... به دانش آموزان توصیه می کنم قبل از شروع آزمون حتما آنرا مطالعه کنید تا نتیجه بهتری بگیرید. 

 دانلود جزوه سخت افزار.

آزمون آن لاین آزمایشی

امتحانات تستی از طریق اینترنت  لطفا امتحان کنید از این لینک

آزمون آن لاین

ساعت عقربه ای

اول یک تایمر به فرم اضافه کنید و Interval  آن را  برابر ۱۰۰۰ قرار بدهید 

Private Sub Form_Load()
  Me.BackColor = vbBlack
End Sub

Private Sub Timer1_Timer()
 
 Form1.Refresh
 X = Form1.Width / 2
 Y = Form1.Height / 2.2
 Circle (X, Y), Y - 200, vbWhite
 Circle (X, Y), Y - 220, vbWhite
  For i = 1 To 12
   Circle (X + (Y - 400) * Cos(i * 22 / 42), Y + (Y - 400) * Sin(i * 22 / 42)), 50, vbRed
  Next
 h = Hour(Time())
  If h > 12 Then
   h = h - 12
  End If
 m = Minute(Time())
 s = Second(Time())
 Line (X, Y)-(X + (Y - 600) * Cos((66 / 14 + s * (44 / 420))), Y + (Y - 600) * Sin((66 / 14 + s * (44 / 420)))), vbBlue
 Line (X, Y)-(X + (Y - 800) * Cos((66 / 14 + m * (44 / 420))), Y + (Y - 800) * Sin((66 / 14 + m * (44 / 420)))), vbYellow
 Line (X, Y)-(X + (Y - 1200) * Cos(66 / 14 + h * (44 / 84) + (m / 12) * (44 / 420)), Y + (Y - 1200) * Sin(66 / 14 + h * (44 / 84) + (m / 12) * (44 / 420))), vbWhite

End Sub

ایجاد کلید جستجو در یک برنامه پایگاه داده

برای ایجاد کلید جستجو در یک برنامه پایگاه داده که با استفاده از شی data1 نوشته شده از یک   text boxو یک command button  استفاده می کنیم و کافی است کد های زیر را در آن بنویسیم .

a = Text1

Data1.Recordset.MoveFirst

Data1.Recordset.FindFirst "nam= ' " + a + " ' "

در خط اول کلمه مورد جستجو در متغیر 

 a   ذخیره می شود در خط دوم اشاره گر رکورد را به رکورد اول می بریم تا جستجو از ابتدا انجام شود و در خط سوم جستجو انجام می شود در این خط  nam در واقع نام فیلد مورد جستجو است و شما می توانید با توجه به نام فید خودتان آن را تغییر دهید .

توجه کنید : در خط سوم  متن را  به vb  کپی نکنید چون با فرمت word  تایپ شده و دارای کاراکتر های فاصله است  و خودتان آن را در vb  تایپ کنید  در این خط هیچ فاصله ای نداریم .