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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

ایجاد یک پایگاه داده در ویژوال بیسیک 6 در عرض چند ثانیه

 ایجاد یک پایگاه داده در ویژوال بیسیک 6 در عرض چند ثانیه

یکی از قابلیت های ویژوال بیسیک 6 که اکنون در مدارس ایران تدریس می شود این است که میتواند یک برنامه بانک اطلاعاتی مانند برنامه دفترچه تلفن را در عرض چند ثانیه ایجاد نماید . مساله جالب آن است که در این کار هیچ نیازی به برنامه نویسی توسط کاربر نیست و برنامه خود به خود توسط ویژوال نوشته خواهد شد و کاربر را از پیچیدگی طراحی اینگونه برنامه ها خلاص می کند . این برنامه می تواند اطلاعات را از کاربر بگیرد  و در یک پایگاه داده ذخیره کند و هرگاه که خواستیم آن را به ما نشان بدهد.

ایجاد برنامه دفترچه تلفن با ویژوال بیسیک 6 در 40 ثانیه :

مراحل انجام کار :

1-     وارد محیط برنامه نویسی ویژوال بیسیک 6 می شویم .

2-     از منوی Add-Ins    گزینه  Visual Data Manager  را انتخاب می کنیم و در پنجره باز شده از منوی  File  گزینه New  وسپس Microsoft Access  و بعد Version 7.0 MDB را انتخاب کرده و نام و محل پایگاه داده را تعیین می کنیم  و Save را انتخاب می کنیم (فایل پایگاه داده محلی است که اطلاعات در آنجا نگهداری خواهد شد ).

3-     حال در پنجره سمت چپ ؛ راست کلیک کرده گزینه New table   را انتخاب می کنیم  و نام جدول حاوی اطلاعات را در قسمت Table Name تعیین می کنیم مثلا Tel   و با انتخاب Add field در قسمت Name  نام فیلد را می نویسیم وبا زدن OK  نام فیلد بعدی را وارد می کنیم مثلا برای فیلد اول کلمه Name  برای فیلد دوم کلمه Family  و برای فیلد سوم  کلمه  Tel را می نویسیم و در پایان با انتخاب Close خارج می شویم و گزینه Build the Table   را انتخاب میکنیم تا جدول ساخته شود.

4-     حال از منوی Utility گزینه Data Form Designer را انتخاب می کنیم  و در پنجره باز شده به ترتیب نام فرم یرنامه   مثلا Tel Book  را وارد می کنیم و سپس در زیر آن با باز کردن منوی کرکره ای نام جدول را که ساخته ایم انتخاب کرده و با کلیک روی   <<   آنها را برمی گزینیم حال با کلیک روی گزینه  Build The Form   برنامه بطور اتو ماتیک کد نویسی می شود و آماده استفاده است .

5-      از برنامه Visual Data Manager خارج می شویم  ولی قبل از اجرای برنامه باید نکات زیر را رعایت کنیم    اول: چون برنامه ایجاد شده در یک فرم جدید کد نویسی شده باید فرم قبلی را با راست کلیک روی آن و گزینه Remove form1   حذف کنیم و از منوی Project  گزینه    Project Properties  را انتخاب کرده و از قسمت  Startup Object فرم جدید را برای شروع اجرای برنامه در نظر بگیریم .    دوم : باید پس از اجرای برنامه برای ورود اطلاعات جدید اول گزینه Add را در  برنامه انتخاب کنیم و پس  از ورود اطلاعات جدید گزینه Update را می زنیم تا اطلاعات در پایگاه داده ثبت شود .

موفق باشید (وداعی)

ایجاد یک screen saver ساده با Vb6

آموزش Vb دستورات جالب

تهیه و تنظیم:  حسین امیروداعی

www.AmirVedaei.blogsky.com

یکی از دستورات جالب در vb   دستور pset می باشد با استفاده از این دستور میتوان یک نقطه در محل دلخواه  قرار داد. در این مقاله سعی شده طرز استفاده از این دستور اموزش داده شود و با یک مثال اینکار را انجام داده ایم .

قرار دادن مختصات در مقابل pset باعث می شود در ان محل یک نقطه نشان داده شود و اگر برنامه را طوری طراحی کنیم که این نقاط در کنار هم ظاهر شوند یک شکل هندسی ظاهرمی شود.

مثلا این برنامه یک خط  ایجاد  می کند و کافی است آن را درون یک command button  بنویسیم .

Private Sub Command1_Click()

For i = 100 To 500

PSet (i, i)

Next i

End Sub

ویا  برنامه  زیر با قرار دادن نقطه ها در کنارهم یک دایره ایجاد می کند . و کافی است آن را درون یک command button  بنویسیم .

Private Sub Command1_Click()

For i = 100 To 500

x = 1000 + 500 * Sin(i)

y = 1000 + 500 * Cos(i)

PSet (x, y)

Next i

End Sub

در این برنامه  x وy   مختصات دایره و 1000و1000 مرکز دایره و 500 شعاع دایره است که با قرار دادن آنها درون حلقه For و تکرار نقاط دایره پدید می آید.

حال شما باتوجه به ذوق وسلیقه خودتان و با استفاده از سایر امکانات ویژوال بیسیک می توانید برنامه های جالبی ایجاد کنید . من در زیر سعی کرده ام جالبترین برنامه ای را که میتوانم با استفاده از این دستورات ایجاد کنم برای شما شرح دهم .

برنامه Screen Saver : این برنامه یک روش سریع و آسان برای افراد مبتدی مثل من است که برای اولین بار میخواهند Screen Saver بنویسند .  جالب آن است که این برنامه شکل های  هندسی پیچیده و زیبا را بااستفاده  از pset ایجاد میکند و هیچکدام از اشکال تکراری نیستند .

مرحله اول :  در Vb6 ابتدا دو عدد Timer را از جعبه ابزار روی فرم قرار می دهیم در اولی مقدار خاصیت  Interval را برابر 100   و در دومی برابر 1000 قرار می دهیم .سپس فرم را انتخاب کرده خاصیت Border Style  آن را روی حالت 0-None   تنظیم می کنیم .

مرحله دوم : روی فرم دوبار کلیک می کنیم تا پنجره کد نویسی باز شود و  رویداد load   را از منوی کرکره ای سمت راست انتخاب کرده مابین private sub و  end sub دستورات زیر را تایپ میکنیم .

Call Randomize

Form1.WindowState = 2

Form1.BackColor = 0

Scale (-3, 3)-(3, -3)

اولین دستور حالت تصادفی را فعال می کند .دستور دوم پنجره را به حالت Maximize تبدیل می کند دستور سوم رنگ زمینه را سیاه کرده و دستور آخر ابعاد صفحه را روی اندازه 3*3 برده و مختصات  (0,0) را روی مرکز مانیتور تنظیم می کند .

حال از قسمت رویداد ها رویداد Mouse down را انتخاب کرده مابین private sub و  end sub دستور end   را تایپ میکنیم . این کار باعث خواهد شد با کلیک روی صفحه هنگام اجرا برنامه خاتمه یابد .

مرحله سوم : از روی فرم روی Timer1 دوبار کلیک می کنیم  تا پنجره کد نویسی باز شود و کد های زیر را مابین private sub و  end sub   می نویسیم  .

Form1.ForeColor = RGB(255 * Rnd, 255 * Rnd, 255 * Rnd)

For i = 0 To 200 Step 0.01

r = p * Sin(p * i)

X = r * Cos(i)

Y = r * Sin(i)

PSet (X, Y)

Next i

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

حال روی Timer2  دوبار کلیک می کنیم  تا پنجره کد نویسی باز شود و کد های زیر را مابین private sub و  end sub  می نویسیم  .

p = Rnd * 8 + 1

Cls

دستور اول مقدار متغیر p  را بصورت تصادفی تغییر می دهد و این باعث می شود که اشکال ایجاد شده هر بار شکل جدیدی داشته باشند و تکراری نباشند و cls  نیز باعث می شود صفحه در هر بار اجرای این timer    پاک شود .

در پایان چون متغیر p  در دو زیر برنامه Timer1 و Timer2  استفاده شده پس باید برای حفظ مقادیر درون آن در اولین خط از برنامه یعنی در  General  معرفی شود پس در بالاترین خط از برنامه می نویسیم Dim   p    و برنامه را با زدن کلید F5  اجرا می کنیم . یادتان باشد برای خروج کافی است کلیک کنید .

( با عوض کردن عدد 8 و 1  در فرمول متغیر  p  شکلهای جالبی میتوانید بدست آورید)

مرحله چهارم : پس از save کردن این برنامه در Vb حال می خواهیم از آن به عنوان Screen Saver استفاده کنیم برای این کار کافی است از منوی File  گزینه Make progect.exe. . .  را انتخاب کنیم و در پنجره باز شده ابتدا پوشه ویندوز را به عنوان محل ذخیره در نظر بگیریم و سپس نام myss.scr را برای نام فایل تایپ کرده و ok  را بزنیم . حالا می توانیم   یک سری به Screen Saver  ویندوز بزنیم و در لیست آن Myss را انتخاب کنیم . موفق باشید . زمستان 86.

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

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

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

طرز استفاده از Senkeys: شکل کلی این دستور بصورت زیر است

SendKeys string,[wait]

پارامتر String :  شامل کلید یا کلیدهایی است که شما میخواهید ارسال کنید .که شامل کلیدهای معمولی و کلیدهای مخصوص مانند {HOME}, {ESC}و {ENTER}  میباشد . در ادامه نحوه استفاده از این کلید ها توضیح داده شده . کلیدهای Shift , Alt ,Ctrl  با استفاده از کاراکتر های +,%,^  فرستاده میشوند کاراکتر های + ^ % { } [ ]  را باید موقع استفاده داخل علامت کوتیشن "  "  استفاده کنیم .

پارامتر wait :  این پارامتر که اختیاری است میتواند مقادیر True  یا  False  داشته باشد اگر آن را ننویسیم مقدار پیش فرض آن  False  میباشد و اگر از کلمه True  استفاده شود به مهنای آن است که Sendkeys  پس از ارسال کلید به برنامه فعال منتظر پایان پردازش و تاثیر آن کلید روی آن برنامه بماند سپس به خط بعدی برنامه برود ، این حالت توصیه میشود زیرا بعضی از برنامه ها بلافاصله به کلیدی که برای آنها میفرستیم پاسخ نمی دهند .

مثال : میخواهیم برنامه ای بنویسیم که برنامه Notepad  را باز کند نام پروژه vb  ما را که اکنون داریم با آن کار می کنیم را درون آن بنویسد و در پایان فایل را ذخیره کند . البته برای فراخوانی یک برنامه از دستور Shell استفاده میشود و عدد 3 به معنای maximize بودن پنجره برنامه است . هنگام ذخیره فایل پیش بینی میکنیم که ممکن است فایلی با نام  C:TEST2.TXT ممکن است قبلا در ان آدرس باشد و برنامه از ما برای بازنویسی تایید بخواهد پس کلید Y   را نیز ارسال میکنیم و در پایان با ارسال کلید    "%{F4}"  که معادل Alt+F4   است برنامه را می بندیم . این برنامه را میتوانید داخل یک Command button  بنویسید و اجرا کنید .

Shell "NotePad", 3

SendKeys " salam in Project yek azmayesh ast :{Enter 2}", True

SendKeys "Name: " & ActiveProject.Name & "{Enter}", True

SendKeys "%FS"

SendKeys "C:TEST2.TXT{ENTER}"

SendKeys "Y"

SendKeys "%{F4}"

علامت {Enter 2}  یعنی کلید اینتر را دوبار ارسال کن .

همچنین برنامه زیر می تواند برنامه ماشین حساب ویندوز را باز کرده اعداد 1 تا 10 را جمع بزند و ببندد . این برنامه را نیز می توانید داخل یک Command button  بنویسید و اجرا کنید .

R = Shell("calc.exe", 1)

AppActivate  R

For I = 1 To 10

   SendKeys I & "{+}", True

Next I

SendKeys "=", True

MsgBox ("payan")

SendKeys "%{F4}", True

برای اطلاعات بیشتر مراجعه کنید به http://www.sjjvb.blogfa.com/

لیست کلیدها و علائم مورد نیاز برای ارسال آنها به برنامه فعال .

Key	Code
ENTER	{enter} or ~
ESC	{escape} or {esc}
SPACE	{ }
TAB	{tab}
BACKSPACE		{backspace} or {bs} or {bksp}
BREAK		{break}
CAPS LOCK		{capslock}
CLEAR		{clear}
DEL		{delete} or {del}
DOWN ARROW		{down}
END		{end}
HELP		{help}
HOME		{home}
INS		{insert}
LEFT ARROW		{left}
NUM LOCK		{numlock}
PAGE DOWN		{pgdn}
PAGE UP		{pgup}
RIGHT ARROW		{right}
UP ARROW		{up}
F1, F2, F3,F16		{F1}, {F2}, {F3},{F16}
SHIFT			+ (plus sign)
ALT (Windows) or COMMAND (Macintosh)			% (percent sign)
CTRL (Windows) or CONTROL (Macintosh)			^ (caret)
OPTION (Macintosh)			# (pound sign)

دستور ویژوال بیسیک

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

انجماد رایانه روشی موثر برای کافی نت ها و کارگاههای رایانه

آموزش نرم افزار انجماد رایانه با . . . .

Deep Freeze

حسین امیروداعی زمستان 85

مقدمه: این نرم افزار میتواند رایانه را در حالت منجمد نگاه دارد بنحوی که هرگونه تغییر اعمال شده روی سیستم با اولین Reset رایانه از بین رفته و رایانه به حالت قبلی خود باز میگردد .

کاربرد های نرم افزار :

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

2- در کافی نت ها برای جلوگیری از نیاز به تعمیرات سیستم و نصب برنامه هایی که توسط کاربر حذف و یا اضافه شده .

3- جلوگیری از ویروس ها و تاثیرات مخرب ویروس بر رایانه .

هدف های یادگیری :

خواننده عزیز باید بتواند در پایان این مقاله نرم افزار مدیریت Deep Freeze را نصب کرده تنظیم کند و با استفاده از آن یک برنامه Work station تولید کرده و آن را برای رایانه های مورد نظر نصب کند .

انتظارات عملکردی :

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

ابزارهای مورد نیاز : رایانه – ویندوز 98 یا XP - نرم افزار DeepFreezeEnt.exe

فعالیتهای مقدماتی :

نرم افزار فوق را تهیه و روی رایانه نصب میکنیم برای نصب این نرم افزار هیچگونه Crack ویا شماره سریال نیاز نمی باشد .

لیست برنامه هایی که ممکن است بخواهیم با انها کار کنیم:

برنامه هایی که آیکن آنها قرمز است باید روی رایانه Administrator نصب شوند و حاوی ابزار مدیریتی هستند .

 برنامه اصلی برای نصب نرم افزار

برنامه Deep freeze administrator برنامه ای که توان تنظیم و تولید نرم افزارهای زیر را دارد .

کنسول مشاهده و تنظیم workstation ها از طریق Administrator .

برنامه هایی که آیکن آنها زرد است بهتر است روی رایانه های Workstation نصب گردند .

 Deep freeze Workstation برنامه ای که آن را روی رایانه Workstation نصب میکنیم تا منجمد شود وجود آیکن خرس قطبی در گوشه Taskbar رایانه Workstation نشانه نصب بودن و انجماد آن رایانه است اگر بخواهیم موقتا آن رایانه را از انجماد خارج کنیم باید کلید Shift را گرفته و دوبار روی این آیکن کلیک کنیم و با دادن رمز وارد تنظیمات آن شویم و با انتخاب گزینه Boot Thawed و زدن ok و reset کردن رایانه انجماد را موقتا غیر فعال کنیم .

برای عزل ( Uninstall) کردن این برنامه باید اول آن را موقتا غیر فعال کرده سپس سعی کنیم نرم افزار را نصب کنیم این کار باعث عزل نرم افزار خواهد شد .( هیچ یک از روشهای متداول برای Uninstall این برنامه قابل استفاده نیست.)

 Deep freeze seed از این برنامه روی رایانه Workstation استفاده میشود تا رایانه Administrator بتواند با استفاده از کنسول آنرا مشاهده و مدیریت کند .

  با نصب این برنامه روی رایانه Administrator امکان نصب و عزل تنظیمات Workstation ها برای رایانه Administrator فراهم میشود.

مرحله اول :

از طریق آدرس: Start à All Programs à Faronics à Deep Freeze Enterprise à

برنامه را اجرا می کنیم در ابتدای ورود یک کد دلخواه Customization Code از ما میخواهد تا در مراجعات بعدی با دادن همان کد تنظیمات انجام شده توسط ما را برایمان ظاهر کند البته این کد باید حداقل 8 حرفی باشد ولی دلخواه است.

زبانه اول Welcome :

با ورود با برنامه در صفحه اول خوشامد گویی خواهیم داشت و برای تنظیمات باید از زبانه های موجود در بالا و گاهی پایین فرم استفاده کنیم .

زبانه دوم Configuration :

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

1- configuration à Passwords در این زبانه امکان تعیین Password وجود دارد که کافی است رمز را تعیین کنیم در ضمن مدت زمان اعتبار رمز را نیز می توان در این ناحیه تنظیم کرد بدیهی است اگر تاریخ اعتبار رمز تعیین شده توسط شما روی رایانه کاربر تمام شود باید به هنگام ورود به برنامه Workstation به یک کد ( Token ) توجه کنید آن کد را در زبانه One Time Pasword در برنامه Administrator وارد کنید تا به شما یک رمز یکبار مصرف بدهد .

توجه: کلید میان بر برای ورود به تنظیمات در رایانه Workstation گرفتن همزمان Ctrl +Alt+Shift+ F6 است ویا اینکه کلید Shift را نگه داشته سپس روی آیکون Deep Freeze در گوشه Taskbar کنار ساعت دوبار کلیک کنیم .

2- Configuration à Frozen drives در این برگه که در شکل زیر مشاهده می کنید می توان تعیین کرد کدام درایو ها در حالت انجماد باشند این حالت حتی به شما اجازه خواهد داد درایو منجمد را Format کنید ولی با Reset کردن کامپیوتر اطلاعات باز میگردند .

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

4- Configuration à Restart / Shutdow در این قسمت تنظیمات مربوط به خاموش شدن اتوماتیک و یا Restart شدن اتوماتیک رایانه ها در زمانهای مشخص وجود دارد . مثلا در کلاس درس شما روزهای یکشنبه ساعت 9:15 صبح گروه سوم رایانه کارگاه را تخلیه کرده و گروه دوم رایانه از کارگاه استفاده خواهند کرد و شما نگران این هستید که گروه قبلی تنظیماتی انجام داده و یا برنامهای اضافه و کم کرده که روی کار گروه دوم اثر خواهد داشت با تنظیم این قسمت میتوان رایانه ها را Restart کرد تا همه چیز به جای اول باز گردد .

همچنین هنگام ترک کارگاه در پایان روز نیازی نیست چک کنید که تمام رایانه ها خاموش شدند یا خیر چون هم میتوان تنظیم کرد که رایانه ها در زمان مشخصی خاموش شوند و هم اینکه اگر مدت مشخصی با این رایانه ها کار نشود خود به خود خاموش میشوند . البته این مقدار روی یک دقیقه تنظیم شده که توصیه میشود آن را روی 20 دقیقه تنظیم کنید .

5- Configuration à Maintenancبا استفاده از این قسمت میتوان زمانهای خاصی از هفته را در نظر گرفت که سیستم در آن زمانها از حالت انجماد خلاص شده و ما اجازه داریم در آن زمان مستقیم و یا از طریق شبکه برنامه های موجود در رایانه هایWorkstation را بروز آوری کنیم .

6- Configuration à Advanced Maintenance در این زبانه تنظیمات بیشتری برای زمانهای آزاد بودن رایانه از حالت انجماد وجود دارد که در صورت اتصال رایانه به اینترنت اجازه بروز آوری ویندوز را بطور اتوماتیک فراهم می کند .

7- Configuration à Thaw Space در این بخش میتوان یک درایو مجازی با نام T: ایجاد کرد که کاربر می تواند از ان برای ذخیره پروژه ها و برنامه های مورد نیاز خود استفاده کند این اطلاعات در هنگام Reset کردن رایانه از بین نخواهند رفت .

8- Configuration àWin9X در این برگه دو گزینه وجود دارد که گزینه سمت چپ به نرم افزار اجازه میدهد بدون توجه به نرم افزارهای باز شده در زمانهای تنظیم شده سیستم را خاموش و یا Restart کند حتی اگر برنامه ها ضروری باشند و اطلاعات از بین برود . و گزینه سمت راست در مورد رایانه هایی که دارای Win9x هستند و دارای Autoexec.bat می باشند کلید Ctrl+c را از کار می اندازد چون کاربران این سیستمها می توانند در هنگام اجرای Autoexec.bat با زدن کلید Ctrl+c اجرای ان را قطع کرده سپس به آسانی به سیستم که منجمد نشده دست یابی داشته باشند این گزینه جلوی این اتفاق را می گیرد .

9- configuration à Misc در این برگه نیز گزینه هایی برای تنظیم وجود دارد در بخش Display Options امکان نمایش ایکن مربوط به حالت انجماد و نمایش آیکن حالت آزاد وجود دارد . همچنین در قسمت allow User to change the clock امکان تنظیم اینکه کاربر بتواند ساعت و تاریخ را عوض کند وجود دارد البته فعال کردن این گزینه توصیه نمی شود چون اگر کاربر تنضیمات ساعت رایانه را تغییر دهد تنظیمات قبلی موجود که قرار است سیستم را در زمانهای خاص Reset و یا خاموش کند از تنظیم خارج می شوند . همچنین در بخش disable command line options امکان نصب برنامه از طریق خط فرمان از بین میرود چون از این طریق امکان دارد با استفاده از سوییچ های هنگام نصب رمز اصلی برنامه را عوض کنند .

زبانه سوم One Time Password :

در این برگه این امکان وجود دارد که به هنگام ورود به برنامه Workstation به یک کد ( Token ) توجه کنید و آن کد را در زبانه One Time Pasword در برنامه Administrator وارد کنید تا به شما یک رمز یکبار مصرف بدهد. این رمز تا نیمه شب اعتبار خواهد داشت ، این رمز را میتوان برای اصلاح موقت در اختار بعضی از کاربران قرار داد .

زبانه چهارم Create Programs :

همانطور که از اسم این زبانه مشخص است مرحله تولید نرم افزار می باشد در این مرحله با توجه به تنظیمات انجام شده شما هریک از محصولات مورد نیاز را تولید کرده میتوانید از طریق شبکه و یا مستقیما روی رایانه مقصد نصب کنید . توجه داشته باشید که کد Customization code که در ابتدای ورود داده اید به شما کمک خواهد کرد که در اینده تغییرات لازم را در نرم افزار ها بدهید . در غیر اینصورت باید برنامه قبلی را عزل ( uninstall) کرده برنامه جدید را نصب کنید .توجه : برای عزل ( uninstall) کردن این برنامه کافی است سعی کنید ابتدا آن را از حالت Freeze خارج کنید سپس با نصب مجدد برنامه برنامه قبلی Uninstall میشود .

سخنی با همکاران :

n در کارگاه رفت و آمد معلم و مراجعه حضوری معلم به دانش اموز در بسیاری از مواقع بسیار سودمند است ولی این رفت و آمد ها به مرور برای همکاران خسته کننده می شود بطوری که به سئوالات دانش آموزان پاسخ نمی دهند ، استفاده از نرم افزار Net support School کمک میکند که معلم فقط با نشستن جلوی رایانه خودش بطور کامل به رایانه تمام دانش آموزان تسلط داشته رفع اشکال کند با آنها صحبت کرده و ارزش یابی کند .

n کنجکاوی و بازیگوشی دانش آموزان سبب میشود که بعضی از برنامه ها را پاک میکنند و این در کارگاه رایانه باعث میشود مدت زیادی از وقت همکار عزیز صرف نصب نرم افزار یا تعمیر رایانه شود . محدود کردن دانش آموزان با User و Password نیز هرچند موثر است ولی جلوی کنجکاوی دانش آموز را می گیرد و این هدف ما نیست ، استفاده از نرم افزار Deep freeze باعث میشود رایانه بطور کامل منجمد شود حال شما میتوانید به دانش آموز اجازه دهید هر کار دلش میخواهد انجام دهد ( Format ، نصب و عزل برنامه ها ، رمز گذاشتن روی رایانه ) حتی بهتر است رمز Administrator رایانه وی را به او بدهید تا به راحتی کار کند ، پس از اولین Restart رایانه دقیفا به حالت اولیه خود که منجمد شده بود بر میگردد .

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

. موفق باشید .امیروداعی.

طرح درس

موضوع:  طرح درس :   آموزش برنامه اعداد اول  (به زبان  ویژوال بیسیک یا Qbasic )

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

  زمان :    یک جلسه اموزشی

هدف های یادگیری :

 دانش آموز باید بتواند در پایان جلسه برنامه ای بنویسد که کلیه اعداد اول بین 100 تا 1000 را پیدا کرده نمایش دهد .

انتظارات عملکردی :

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

ابزارهای مورد نیاز :   رایانه – ویندوز 98 یا XP  - نرم افزار  Visual Basic  و یا  Qbasic

مهارتهای  ICT :

آشنایی با محیط سیستم عامل ویندوز و آشنایی با یکی از محیط های برنامه نویسی visual basic  ویا  Qbasic  ..

فعالیتهای مقدماتی :

از دانش آموزان میخواهیم بصورت گروههای 2 یا 3 نفره کامپیوتر ها را روشن کرده و مراحل کار را دنبال کنند .(بهتر است  دانش آموزان با استعداد را با دانش آموزان بی علاقه گروه بندی کنیم )

مرحله اول : 

بیان مفاهیم اصلی (تئوری):

1-    توضیح( یادآوری) حلقه تکرار FOR- NEXT  و نکات مروط به آن   .

2-    یاد آوری دستور PRINT و نکات مربوط به آن مانند علامت  , و ;  در پایان دستور .

( این دستورات در جلسات گذشته تدریس شده و فقط یاد آوری آن کافی میباشد )

شروع درس :

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

For  I = 1  to   10

Print   I  ;

Next  I

ارزش یابی 1: برنامه ای بنویسید که اعداد 10 تا 1 را نشان دهد ( برای تفهیم Step در حلقه )

ارزش یابی 2 : برنامه ای بنویسید که عدد N را از ورودی بگیرد سپس اعداد یک تا  N  را نشان دهد .( برای گرفتن اعداد در ویژوال از Text Box  و در کیوبیسیک از  Input  استفاده کنند  )

مرحله دوم :

بیان مفاهیم اصلی (تئوری):

1-  تعریف (یادآوری)  مقسوم ، مقسوم علیه ،  باقیمانده ، خارج قسمت اعشاری و خارج قسمت صحیح و علائم معادل آنها در برنامه نویسی .

2-    یادآوری دستور  IF و نحوه استفاده از آن .

3-    یاد آوری مفهوم کنتور و جمع کننده در برنامه نویسی .

شروع درس :

برنامه ای بنویسید که یک عدد را گرفته (N) و مقسوم علیه های آن را نشان دهد .

از دانش آموزان میخواهیم آخرین برنامه ای را که حل کرده اند بگویند تا روی تخته یادداشت کنیم :

N= Val (Text1.Text)

For  I = 1 to N

Print I;

Next I

حال با تشریح صورت مساله جدید از آنها میخواهیم بگویند دستور if  را در کجای برنامه فوق اضافه کنیم برنامه جدید بدست می آید ؟ ( مانند بعضی از مسابقات تلوزیون که راهنمایی میکنند و جایزه میدهند )

حاصل بصورت زیر خواهد شد :

N= Val (Text1.Text)

For  I = 1 to N

If  ( N  mod  I ) =0 Then  Print I;

Next I

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

ارزش یابی 2 : :  برنامه ای بنویسید که یک عدد را گرفته و مقسوم علیه های آن را بشمارد  و در پایان تعداد  را نشان دهد.

مرحله سوم  :

بیان مفاهیم اصلی (تئوری):

1-     مفهوم عدد اول و ارتباط آن با تعداد مقسوم علیه ها ( اینکه اگر تعداد مقسوم علیه های یک عدد 2 باشد آن عدد اول است ) .

شروع درس :

برنامه ای بنویسید که یک عدد را بگیرد ، سپس تعداد مقسوم علیه های آن را بشمارد در آخر اگر تعداد مقسوم علیه ها برابر 2 بود پیغام عدد اول است را همراه خود عدد نشان دهد .

         از دانش آموزان میخواهیم آخرین برنامه ای را که حل کرده اند بگویند تا روی تخته یادداشت کنیم :

N= Val (Text1.Text)

For  I = 1 to N

If  ( N  mod  I ) =0 Then  t=t+1

Next I

Print t

حال با تشریح صورت مساله جدید از آنها میخواهیم با توجه به جمله (در  آخر اگر تعداد مقسوم علیه ها برابر 2 بود)  بگویند

دستور if   را در کجای برنامه فوق اضافه کنیم برنامه جدید بدست می آید ؟

حاصل بصورت زیر خواهد شد :

N= Val (Text1.Text)

For  I = 1 to N

If  ( N  mod  I ) =0 Then  t=t+1

Next I

If  t = 2  Then  Print  N ; " Adad Aval Ast "

ارزش یابی 1 : سئوال شفاهی در مورد اینکه چکار کنیم بجای اینکه ما از طریق ورودی به این برنامه  عدد بدهیم کامپیوتر خودش بطور اتوماتیک اعداد 1 تا 100 را برای  N  در نظر گرفته و هربار که N   افزایش یافت برنامه بطور کامل اجرا شود .

مرحله چهارم :

بیان مفاهیم :

1-    مفهوم حلقه های تودر تو و اینکه امکان دارد یک حلقه یا تعدادی دستور راکه تشکیل یک برنامه کامل را میدهند  درون یک حلقه دیگر بگذاریم  و چرا این کار را انجام میدهیم .

شروع درس :

برنامه ای بنویسید که کلیه اعداد 100 تا 1000 را  پیدا کرده و نمایش دهد .

از دانش آموزان میخواهیم آخرین برنامه ای را که حل کرده اند بگویند تا روی تخته یادداشت کنیم :

N= Val (Text1.Text)

For  I = 1 to N

If  ( N  mod  I ) =0 Then  t=t+1

Next I

If  t = 2  Then  Print  N ; " Adad Aval Ast "

حال این برنامه را بصورت یک بلوک در نظر میگیریم که ورودی ان N بوده و از دانش آموزان میخواهیم با توجه به توضیحاتی که داده ایم بگویند چگونه در  این برنامه گرفتن N  از Text box را حذف کرده بجای آن از یک حلقه For  جدید برای تولید  N  های از 100 تا 1000 استفاده کنیم .

حاصل بصورت زیر خواهد شد :

For  N = 100  to  1000

   For  I = 1 to N

   If  ( N  mod  I ) =0 Then  t=t+1

   Next I

   If  t = 2  Then  Print  N ; " Adad Aval Ast " ,

Next  N

 ارزش یابی 1 : برنامه ای بنویسید که کلیه اعداد اول بین 100 تا 50 را پیدا کرده نشان دهد .

ارزش یابی 2: برنامه ای بنویسید که اعداد اول بین 10 تا 20 را نشان دهد و جمع بزند و در پایان حاصل جمع آنها را نشان دهد .

سخنی با  همکاران :

n     در کارگاه رفت و آمد معلم و مراجعه حضوری معلم به دانش اموز در  بسیاری از مواقع بسیار سودمند است ولی این رفت و آمد ها به مرور برای همکاران خسته کننده می شود بطوری که به سئوالات دانش آموزان پاسخ نمی دهند ، استفاده از نرم افزار  Net support School  کمک میکند که معلم فقط با نشستن جلوی رایانه خودش بطور کامل به رایانه تمام دانش آموزان تسلط داشته رفع اشکال کند با آنها صحبت کرده و ارزش یابی کند .

n     کنجکاوی و بازیگوشی دانش آموزان سبب میشود که بعضی از برنامه ها را پاک میکنند و این در کارگاه رایانه باعث میشود مدت زیادی از وقت همکار عزیز صرف نصب نرم افزار یا تعمیر رایانه شود . محدود کردن دانش آموزان با  User  و  Password  نیز هرچند موثر است ولی جلوی کنجکاوی دانش آموز را می گیرد و این هدف ما نیست ، استفاده از نرم افزار  Deep freeze باعث میشود رایانه بطور کامل منجمد شود حال شما میتوانید به دانش آموز اجازه دهید هر کار دلش میخواهد انجام دهد ( Format  ، نصب و عزل برنامه ها ، رمز گذاشتن روی رایانه ) حتی بهتر است رمز  Administrator  رایانه وی را به او بدهید تا به راحتی کار کند ، پس از اولین  Restart  رایانه دقیفا به حالت اولیه خود که منجمد شده بود بر میگردد .

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

. موفق باشید .امیروداعی.