روشهای آموزش بهتر

برای کسانی که علاقمند به توسعه روشهای آموزشی جدید هستند


مجموعه آثار دکتر علی شریع مجموعه آثار دکتر علی شریع
تمام آثار دکتر شریعتی شامل کتاب، فیلم ویدئویی و سخنرانی 		پودر سفید کننده دندان
قویترین سفید کننده گیاهی در 5 دقیقه
رفع زردی،جرم و تقویت مینای دندان
X
تبلیغات در بلاگ اسکای

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

شنبه 16 اردیبهشت ماه سال 1391 5:56 PM نویسنده: حسین نظرات: 0 نظر چاپ

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

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

یکشنبه 14 اسفند ماه سال 1390 5:24 PM نویسنده: حسین نظرات: 1 نظر چاپ

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

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

یکشنبه 16 بهمن ماه سال 1390 6:36 PM نویسنده: حسین نظرات: 2 نظر چاپ
مجموعه برنامه های آسان از مبتدی تا پیشرفته برای آموزش برنامه نویسی ویژوال بیسیک 6 قابل استفاده برای دانش آموزان و معلمان فنی حرفه ای و کاردانش برای دانلود اینجا کلیک کنید

دانلود کتاب   VB2

جمعه 4 آذر ماه سال 1390 9:39 PM نویسنده: حسین نظرات: 0 نظر چاپ

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

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

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

چهارشنبه 20 مهر ماه سال 1390 04:45 AM نویسنده: حسین نظرات: 0 نظر چاپ

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

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

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

دوشنبه 16 اسفند ماه سال 1389 5:11 PM نویسنده: حسین نظرات: 3 نظر چاپ

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

 

آزمون آن لاین

ساعت عقربه ای

شنبه 22 آبان ماه سال 1389 4:45 PM نویسنده: حسین نظرات: 1 نظر چاپ

اول یک تایمر به فرم اضافه کنید و 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

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

یکشنبه 22 فروردین ماه سال 1389 11:32 PM نویسنده: حسین نظرات: 3 نظر چاپ

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

a = Text1

Data1.Recordset.MoveFirst

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

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

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

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

نوشته های یک همسر خوشبخت ........

پنجشنبه 3 دی ماه سال 1388 01:50 AM نویسنده: حسین نظرات: 0 نظر چاپ

نوشته های یک همسر خوشبخت ........

همیشه خدا را شکر کن حتی به کمترین چیزی که داری !

معیار های انتخاب همسر :

1-      تناسب فرهنگ (با شناخت حاصل می شود)

2-      تناسب خانواده ها ( از هر نظر)

3-      تناسب دین و مذهب .

4-      تناسب سن و قیافه .

پایداری و تداوم زندگی در چیست ؟

1-      گذشت ( کوتاه آمدن)

2-      صداقت ( در گفتار و رفتار)

3-      دوست داشتن (( که باعث احساس خوشبختی می شود ))

4-      فاش نکردن مسائل خصوصی زندگی به بیرون از خانواده .

نتیجه بروز مسائل خصوصی به بیرون از خانواده:

بد بینی نسبت به همسر è   دخالت دیگران ç احساس سر خوردگی

اگر (مساله) بین زن وشوهر حل نشود  تبدیل به (مشکل) می شود اگر آن هم حل نشود تبدیل به (معضل) می شود .

مساله با یک چیز به راحتی حل می شود و آن گذشت است .

هر تداوم زندگی به معنی خوشبختی نیست . . . .

دوست داشتن نقش مهمی در خوشبختی  دارد !

نکته های زندگی :

1-      احترام به یکدیگر به خصوص در جمع.

2-      احترام به پدر و مادر همسرت نقش مهمی در افزایش محبت همسرت به تو دارد.

قطعاتی از سخنان بزگان چین برگرفته از کتاب تاریخ تمدن ویل دورانت

پنجشنبه 3 دی ماه سال 1388 01:49 AM نویسنده: حسین نظرات: 1 نظر چاپ

کنفوسیوس می گفت:  »براستی نمی توانم برای کسی که  به گفتن )چه فکر کنم؟(  معتاد نباشد، کاری کنم. « و »برای کسی که  مشتاق نباشد، حقیقت را نمی گشایم، و به یاری کسی که نگران تبیین نمود ه ھا نباشد، برنمی خیزم برای کسی که یک گوشة موضوع را به او بنمایم و او خود سه   گوشة دیگر را از آن درنیابد، درسم را تکرار نمی کنم. «

روزگاری من، که چوانگ تزه ھستم، خواب دیدم  که پروانه  ام و اینسو و آنسو پر می کشم و از ھرجھت پروانه  ام. تنھا بر وجود پروانه  ای خود آگاه بودم، و از فردیت انسانی خویش خبری نداشتم. ناگاه بیدار شدم و مجدداً خود را یافتم. اینک نمی دانم  که آن زمان انسانی بودم و خود را در خواب پروانه می دیدم، یا این زمان پروانه ای ھستم و خود را در خواب انسان می بینم!

پس ھونھای وحشی، که راه خود را به چین مسدود یافتند ، به غرب رو کردند، رھسپار اروپا شدند، و به ایتالیا ریختند. آری، ساختن دیوار چین باعث فرو افتادن روم شد.!

یکی از بزرگترین فغفورھای چین به نام تای تسونگ  627 – 650 میلادی    وقتی که وزیرانش خواستار قوانینی سخت برای دفع بزھکاری شدند، به آنان گفت: »اگر از مخارج بکاھم و بار خراج را سبک سازم و تنھا کارگزاران درستکار را به کار گمارم تا مردم لباس کافی به دست آورند، اینھا، بھتر از کیفرھای سخت ، دزدی را منسوخ می کنند. «

تمامی حقوق مادی و معنوی برای نویسنده محفوظ می باشد.خروجی | نسخه موبایل