هرچه برایمان اتفاق می افتد به نفع ماست!!

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

پس هرچی برایمان اتفاق می افتد به نفع ماست !... نظر شما چیست ؟ 

پاسخ های عجیب علی (ع) به بادیه نشین 

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

در اثر حرارت جگر و کلیه در گوشه لب چاکی می شود و علاج آن این است که جگر را خنک کنند .خوردن زرشک -آب انار -آبغوره - کاهو - برگ چغندر- آش جو و آش عدس و از این قبیل غذاها برای خنک کردن جگر بسیار نافع است.را حل دیگر : آب کاسنی را تا چند روز صبح ها میل کنند اگر کاسنی تازه میسر نشد تخم کاسنی را بجوشانند آب آن را میل کنند ولی بهترین راه معالجه تصفیه خون است و بس

---------------------------------

اعداد تام بین 1 تا 1000 ( تام یعنی جمع مقسوم علیه های آن برابر عدد باشد)

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

1+2+3=6

Private sub command1_click()

          For I =1 to 1000

               C=0

                      For j =1 to  I -1

                              If I  mod j =0 then C = C  + j

            Next j

         If C=I then Print i

سری فیبوناچی (عدد از جمع دو عدد قبل به وجود می آید.)

1+1+2+3+5+8+13,…

Private Sub Command2_Click()

N1=0

N2=1

Print N2

I=i+1

Do

        N3=N1+N2

        Print N3

        I= I+1

        N1= N2

        N2= N3

مقسوم علیه های یک عدد و جمع مقسوم علیه های آن

Private Sub Command3_Click()

N=val(inputbox("Enter a Number :"))

For I = 1 to n / 2

      R= n mod 2

       If r = 0 then print I : c=c+i

Next i

Print "Sum :" +cstr(C)

عدد را از مبنای 10 به مبنای 2 ببرد.

Private Sub Command 4_Click()

Dim n as integer,c as string

N= val(inputbox("Enter a Number:"))
do while  n >0

       R= n mod 2

       C=cstr(r) + c

       N= n \2

Loop

End sub

توضیح :

عدد 4 را وارد می کنیم.

تا زمانی که عدد 4 بزرگتر از صفر است :

باقیمانده صحیح عدد 4 تقسیم بر 2 را داخی متغیر R   می ریزیم – R= 0

به متغیر C  ، مقدار متغیر R  را اضافه می کنیم. C= C + 0

خارج قسمت صحیح عدد 4 را داخل N  می ریزیم. N= 2

فاکتوریل یک عدد :

Private Sub Command5_Click()

N=val(inputbox("Enter a Number :"))

F=1

For i=1 to n

    F=F *i

Next i

Print F

مقلوب یک عدد و جمع ارقام عدد وارد شده :

Private Sub Command 6 _Click()

Dim N as integer, C as string

N = Val(InputBox("Enter a Number:"))

Do While N>0

       R= N mod 10

                 C = Cstr (R) + C

       Print R

       N= N\10

Loop

عدد وارد شده اول است یا خیر

Private Sub Command 7_Click()     

N= Val (InputBox("Enter a Number :"))

If N=2 then Print "Yes" : Exit Sub

For I = 2 to N

          R = N mod i

                   If R=0  then C=C+1

Next i

اعداد اول یک تا 100

Private Sub Command 8_Click()

For I= 1 To 100

      C=0

                      For J=1 To I

                     If I mod J =0 then C=C+1

           Next j

           If C=2 then Print i

آرایه تک بعدی :

ابتدا در قسمت عمومی عبارت زیر را وارد می کنیم:

Dim a ( 5 ) as integer

---------

Private Sub Command 9_Click()

For I = 0 To 5

        a(i)=Val(InputBox("Enter a Number:"))

        Print a(i)

Next I

End Sub

آرایه بالا مقدار دهی شد.

بزرگترین عدد در آرایه بالا :

Private Sub CmdMax_Click()

Max = a(1)

For I =0 to 5

         If Max<a(i) then Max=a(i)

Next i

Print "Max:"&Cstr(Max)

کوچکترین عدد در آرایه بالا

Private Sub CmdMin_Click()

Min = a(1)

For I = 0 to 5

            If Min > a( I ) then Min = a (I )

Next i

Print "Min :"&Cstr(Min)

جدول ضرب به کمک آرایه ها :

Dim a() as integer

---------------------------

Private Sub CmdMult _Click()

X=Val(InputBox("Enter a Number For Row:"))

Y=Val(InputBox("Enter a Number For Col:"))

For I = 1 to X

       For J = 1 to Y

       Redim a(I,J)

       a (I,J)= I * J

       Print a(I,J),

       Next J

     Print

Next I

معکوس یک رشته با استفاده از توابع Right  و Left

Private Sub Cmd1_Click()

a = (Text1.text)

b = len(a)

For I= 1 to b

      C=Right(a,i)

       D=left(C,1)

       Print D;

معکوس یک رشته با استفاده از تابع Mid

Private Sub Cmd2_Click()

a=Text1.Text

b=Len(a)

For I=b to 1 Step -1

         C=  Mid(a,I,1)

         Print C;

Next i

حروف برزگ را کوچک و حروف کوچک را بزرگ می کند:

Private Sub Cmd3_Click()

a = Text1.Text

b=ASC(a)

if b>=65 and b<=90 then

          e=b-65

          f = e+97

          Print CHR(f)

Elseif b>=97 and b<=122 then

          e=b-97

           f=e+65

             Print CHR(f)

End if

تبدیل جمله با حروف کوچک به حروف بزرگ و برعکس

Private Sub Cmd4_Click()

a=Text1.Text

b=len(a)

For I=1 to b

        C=Mid(a,I,1)

        D=ASC(C)

If D>=65 and D<=90 then

         e=D-65

          f=f+97

          Print CHR(f);

Elseif D>=97 and D<=122 then

       e=D-97

          f=f+65

Print CHR(f);

Else

        Print C;

Next i

ترسیم دایره به کمک پیکسل در تایمر

ابتدا در قسمت عمومی برنامه عبارات زیر را وارد می کنیم و Interval  تایمر را برابر 10  قرار می دهیم .

Dim T as Single

Dim X,Y,R as Integer

-------------------------

Private Sub Form1_Load()

X=2500

Y=3500

R=10

Timer1.Enable=True

T=0

End Sub

------------------------

Private Sub Timer1_Time()

T=T+0.01

X=X+R*Cos(T)

Y=Y+R*Sin(T)

Pset (X,Y),VbBlue

 خلاصه ای 200 صفحه ای از کتاب رضا شاه از تولد تا سلطنت تالیف رضا نیازمند

 

رضا شاه فرزند عباسعلی خان از طایفه پهلوان های آلاشت از توابع سوادکوه مازندران و از مادری بیگانه به نام نوش آفرین که از مهاجرین قفقازی می باشد . این موسس سلسله پهلوی یکی از سلاطین ایران زمین است که از سرپرستی پدر و مادر بی بهره بود و کودکی و نوجوانی را در فقر و بی کسی گذرانید و از هرزه گری و تیله بازی در کوچه های خاکی سنگلج به جرگه تاریخ ساز پیوست .سرباز ساده ای که در زمانی کمتر از25  سال باحمایت اپراتوری بریتانیا بر تخت سلطنت دست یافت. عباسعلی خان (دادش بیگ ) پدر رضا شاه در سال 1230 هجری قمری (1193 هجری خورشیدی ) و در آلاشت متولد شد و پس از گذراندن دوران جوانی به تهران رفت و مانند اجداد خود در فوج سوادکوه به حرفه سپاهیگری مشغول شد . او با درجه نایبی کار سپاهیگری را شروع کرد و با درجه یاوری بازنشسته شد.عباسعلی خان پدر رضا شاه دو مرتبه ازدواج کرد ، مرتبه اول با یکی از منسوبین خود در آلاشت و مرتبه دوم با نوش آفرین (مادر رضا شاه ) در تهران ، وی از ازدواج اول خود سه فرزند داشت که هر سه دختر بودند و به نام های (خورشید خانم، ددُرخانم و نبات خانم )

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

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

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

بعد مرگ مادر ؛ دایی او ابوالقاسم بیک سرپرستی رضا شاه را بر عهده گرفت. ابوالقاسم بیک مرد نسبتا فقیری بود  که با درجه معین نایبی  در قزاقخانه خدمت می کرد . او فرزندی نداشت و برای همین رضا را مانند فرزند دوست می داشت اما چون فقیر بود نمی توانست او را به مدرسه بفرستد برای همین در کوچه ها با بچه های همسن و سال خود به هرزهگری و تیله بازی مشغول می شد.ابوالقاسم بیک رضا را در قزاقخانه به کار گماشت ، برایش زن گرفت تا افسر شد .

استخدام در قزاقخانه :

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

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

لغت میر پنج را میرپنجه هم می گفتند . برخی افسران که رسما فرمان میر پنجی نداشتند ولی در سرباز خانه رشادت هایی نشان داده بودند با وجود این که هنوز درجه سرهنگی داشتند به میرپنجه مشهور می شدند و پس از مدتی آنها را میرپنج صدا می کردند ؛ از آن جمله رضا خان است که از هنگامی که درجه سرهنگ دومی داشت ، میرپنجه خطاب می شد ، وقتی سرهنگ تمام شد او را میر پنج می خواندند.

ناصرالدین شاه در مسافرت های خود به اروپا و بازدید از ارتش های اروپایی علاقه مند شد که مطابق آنها ارتش ایران را نوسازی کند لذا از امپراتور اتریش و تزار روس خواست که واحد های مشابه آنچه خود دارند در ایران تاسیس کنند ؛ ابتدا یک فوج اتریشی در تهران درست شد ولی دوام نیاورد و پس از چندی منحل شد . ناصرالدین شاه در روسیه فوق العاده مجذوب قزاق ها شدلذا درخواست کرد یک معلم قزاق به ایران بفرستند ؛ تزار هم از خدا خواست و موافقت کرد تا بدین وسیله نفوذی در ارتش ایران بدست آورد . رضا از این هدیه بهترین استفاده را کرد . او در اولین فرصت وارد این قزاقخانه شد و 43 سال بعد از قزاقخانه به کاخ گلستان رفت و تاج سلطنت را از نواده ناصرالدین شاه گرفت و بر سر خود نهاد. رضا در 14 سالگی در قزاقخانه مشغول کار شد اما کار غیر رسمی مانند پادویی و خدمات سرپایی و در ازای آن کار غذای خود را می خورد و لباس هم می گرفت ولی حقوق نداشت . او گرچه رسما قزاق نشده بود ولی در تمرین های قزاقان شرکت می کرد وقتی یک فوج پیاده نظام به قزاقخانه اضافه شد رضا رسما وارد قزاقخانه شد. غذای خوب و کار زیاد او را قوی تر و خوش اندام تر کرده بود اما رضا از فوج پیاده راضی نبود ؛ قزاق سواره اهیمت بیشتری داشت  لذا هر وقت یکی از قزاق های سوار غایب بود رضا فورا به جای او سوار می شد و در تمرین ها شرکت می کرد تا این که به فوج آتشبار منتقل شد .در اواخر سال 1313 هجری قمری ( 1274 خورشیدی – 1895 میلادی ) ناصرالدین شاه می خواست وارد پنجاهمین سال سلطنت شود ، او می خواست جشن بزرگی بر پا کند و خود را به لقب سلطان صاحب قران ملقب نماید  لذا سه روز قبل از جشن تصمیم گرفت به زیارت حضرت عبدالعظیم برود و نمی دانست که آخرین زیارت او خواهد بود زیرا در حرم با شلیک گلوله میرزا رضا کرمانی که گفته می شد مورد ظلم و جور دستگاه واقع شده بود به قتل رسید.پس از کشته شدن ناصرالدین شاه پسرش مظفرالدین میرزا که ولیعهد و والی آذربایجان بود و در تبریز حکومت می کرد ، به تهران آمد و بر جای پدر نشست اما آنچه مورد توجه و تعجب سیاستمداران وخصوصا خبرنگاران خارجی واقع شد این بود که  چرا مظفرالدین شاه حمایل

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

رضا شاه در 20 سالگی برای اینکه ترقی کند و حقوق بهتری داشته باشد به ماموریت خارج از تهران رفت ، او به فوج سلطان آباد اراک منتقل شد

و ماهانه هفت تومان مواجب داشت .

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

رضا در فوج سوادکوه :

سال 1316  ﻫ.قمری( مطابق با سال 1277 خورشیدی ، 1898 میلادی ) فرا رسید . ابوالقاسم بیک دایی رضا شاه به فوج سواد کوه منتقل شد ، چون این فوج معمولا باید همگی سواد کوهی می بودند لذا ابوالقاسم بیک رضا را با خود به فوج سوادکوه برد تا موجب ترقی او شود ؛ رضا در این سربازخانه خیلی قوی بنیه شده بود ، اغلب با همقطاران خود دعوا می کرد و زیر بار حرف هیچ کس نمی رفت ، وقتی فرماندهی فوج به نصراله خان پهلوان واگذار شد ، شرارت های رضا بیشتر شد و بارها می گفت چون پدرم یاور بوده باید من هم یاور باشم ، آنقدر اذیت می کرد که بالاخره همقطاران او شکایت کردند ، یاور نصراله خان وقتی از اصل و نسب او آگاه شد و متوجه شد که فرزند برادر ناتنی او می باشد و این که قبلا گفته شد که اقوام و اهالی آلاشت از ازدواج عباسعلی خان با نوش آفرین که بیگانه به حساب می آمد ، ناراحت بودند و دستور داد تخته و شلاق بیاورند و آنقدر او را بزنند که بمیرد و لذا با وساطت دایی اش ابوالقاسم بیک که در آن فوج بود ، نجات پیدا کرد. رضا دیگر نتوانست در این فوج خدمت کند لذا از آنجا خارج و مجددا  نزد

کاظم آقا رفت و در قزاقخانه مشغول خدمت شد و تا کودتای 1299 در قزاقخانه ماند.

مشروطیت ایران و افسر شدن رضا خان :

سال 1318 ﻫ.قمری ( 1297 خورشیدی – 1900 میلادی) مظفرالدین شاه سفارش خرید مقداری مسلسل سبک به نام شصت تیر داد . یکی از شصت تیر ها در اختیار قزاقخانه قرار گرفت ، تا قزاق ها فن استفاده از آن را یاد بگیرند . بین افرادی که تعلیم کار با شصت تیر را دیدند ، یکی رضا سواد کوهی بود که از همه در این کار بهتر از آب در آمد . به طوری که به رضا شصت تیر مشهور شد و به سمت وکیل باشی این گردان انتخاب شد. این اولین قدم برای افسر شدن رضا محسوب می شد . رضا 25 ساله که بود او را مامور خراسان کردند ،رضا خان دو سال در خراسان بود ، در جنگ بسطام شرکت کرد و به درجه معین نایبی رسید. رضا در 27 سالگی با دختری به نام تاجماه ازدواج کرد که موقع زایمان دخترش فاطمه سر زا رفت و رضا با دخترش تنها ماند.

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

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

در سال 1321 ﻫ . قمری ( 1283 خورشیدی ، 1904 میلادی ) چرنو زوبوف به جای کاساکوفسکی به فرماندهی قزاق منصوب گردید . چرنوزوبوف بهترین رئیس قزاقخانه بود.دوران خدمت چرنوزوبوف با فوت مظفرالدین شاه پایان یافت و به روسیه برگشت و به جای او سرهنگ لیاخف به ایران آمد.

وقتی سرهنگ چرنوزوبوف تشکیلات جدید قزاقخانه را پیاده کرد عده زیادتری از ایرانی ها درجه افسری گرفتند که از آن جمله رضا خان بود که از درجه معین نایبی به درجه نایبی ترقی کرد و مامور کار در گرگان شد.

<!--[if !supportFootnotes]-->

---

<!--[endif]-->

منبع: kistdownload

برنامه سازی برای کنکور

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

با مطالعه همین مطالب درصد زیادی در کنکور می زنید

در VB  پنجره مشخصه ها دارای دو زبانه است : 1- Alphabetic   : مشخصه ها را به ترتیب حروف الفبا نشان می دهد .  2- Categorized  : لیست را بر اساس نوع عملکرد نشان می دهد.

در ویژوال بیسیک مشخصه های Right   و Bottom  وجود ندارد.

فایل پروژه  VBP  : محتوای آن مشخصات پروژه ، فرم و ... می باشد.

فایل محیط کاری VBW  : محتوای آن اطلاعات محیط کاری و فرم های پروژه می باشد.

فایل فرم FRM   : محتوای آن یک فرم و تمام مشخصات فرم می باشد

فایل تصاویر FRX   : محتوای آن تصاویر روی فرم یا کنترل

روش های برنامه نویسی : 1- نا مشخص 2- زیر روالی 3- ساخت یافته 4- مدولار 5- شی گرا  6- رویداد گرا

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

3- به کار گیری برنامه :کد اصلی برنامه با زبان برنامه نویسی مورد نظر پیاده سازی می شود.

مشخصه ها ، شی را توصیف می کنند  و متد سبب می شود که شی کاری انجام دهد.

داده های عددی به دو دسته صحیح و اعشاری تقسیم می شوند.Integer --- Decimal  

داده Byte  1 بایت از حافظه و Integer (%)   2 بایت از حافظه و Single (!)  4 بایت و Longe(&)  4 بایت و Currency(@)  8 بایت و Double (#)  8 بایت از حافظه را اشغال می کند.

داده های رشته ای بین دو نقل قول یا کوتیشن قرار می گیرند. ("")

رشته ای که طول آن صفر است ؛ Null  نامیده می شود.

متغیر مکانی است در حافظه برای نگهداری یک مقدار ؛ مقداری که در متغیر قرار می گیرد قابل تغییر است.

دو نوع داده رشته ای وجود دارد : 1- با طول ثابت مثل dim varName as String * 10 or 2 , ….

2- با طول متغیر مثل : dim varName as String

ساده ترین راه برای ذخیره یک مقدار در متغیر که مقدار می تواند یک عبارت رشته ای – عبارت محاسباتی – مقدار مشخصه یک کنترل و ترکیبی از عبارات محاسباتی و رشته ای باشد.

مانند :Dim x as integer : x = 2*5 or "ali"

عملگر Mod  : خارج قسمت صحیح را بر می گرداند.

تقسیم صحیح \  : خارج قسمت صحیح عدد را بر می گرداند.

توابعی وجود دارند که ورودی نمی گیرند که به آنها آرگومان می گویند.

تابع Msg Box  برای نمایش پیام

عملگرهای رابطه ای هیچ گونه عملیات ریاضی انجام نمی دهند، بلکه داده ها را مقایسه می کنند.

نتیجه عملگر های رابطه ای True or False  می باشد.

عملگر های رابطه ای علاوه بر اعداد ، رشته ها را هم مقایسه می کنند.

در هنگام مقایسه رشته ها : 1- حروف بزرگ کوچکتر از حروف کوچک هستند.  IRAN < iran

2- اعداد کوچکتر از حروف می باشند . 2 < Two – 3 < Three

3- حروف الفبا : A < a  می باشد.حروف کوچک الفبا از 65 تا 90 و حروف بزرگ از 97 تا 122

عملگر های منطقی : Not – And – Or – Xor – Imp – Eqv

Not  : مقدار یک عبارت را نقض می کند : Nor ( True ) = False

And   : روی دو عبارت عمل می کند و زمانی درست است که ارزش هر دو عبارت درست باشد.

Or  : روی دو عبارت عمل می کند و ارزش وقتی F  است که ارزش هر دو عبارت F  باشد.

مثال : Or ( F , F) = F --- Or(T,F)=T

Xor  : ارزش وقتی درست است که ارزش یکی T  و دیگری F  باشد.

Eqv  : ارزش وقتی درست که ارزش هر دو عبارت یکسان باشد. Eqv ( T,T) = T

Imp  : روی دو عبارت عمل می کند و ارزش وقتی غلط که ارزش عبارت دوم غلط باشد.

از مشخصه Alignment  برای ترازبندی ( چپ چین – راست چین – وسط چین )

مشخصه های Auto Size  برای این که کنترل اندازه خودش را با محتوا تنظیم کند و کنترل به صورت افقی بزرگ می شود.

برای شکستن محتوا به خط بعد و بزرگ کردن عمودی محتوا از مشخصه Word Warp  استفاده می کنیم.

بهترین روش برای بررسی چندگانه Select Case  می باشد.

برای دسته بندی کنترل ها از کنترلی به نام Frame  استفاده می کنیم.

حلقه های تکرار معین مانند For ….. Next   و حلقه های تکرار نامعین مانند Do …. Loop

حلقه هایی که While   دارند تا زمانی که شرط درست است اجرا می شوند .

حلقه هایی که Until  دارند اگر شرط درست بشود حلقه پایان می پذیرد.

انواع توابع : 1- ریاضی 2- رشته ای 3- تبدیلی 4- تاریخ و زمان

تابع ریاضی Int   و Fix  : Int (9) = 9 – Int (9.2) = 9 --- Int (-9.2) = -10

Fix (9) =9 ---- Fix (9.2) = 9 ---- Fix (-9.2 ) = -9

تابع Abs  : قدر مطلق یک عدد را بر می گرداند : ABS(5) = 5 --- ABS ( -5 ) = 5

تابع Sqr  : جذر یک عدد را بر می گرداند : Sqr (9 ) =3

برای تبدیل درجه به رادیان : (درجه = D ) : D*atn(1)/45 ---- D * 4Atn(1) / 180

عدد پی = 4Atn(1)

تابع RND  : یک عدد تصادفی تولید می کند.

تابع Log  : یک لگاریتم طبیعی از آرگومان خود می گیرد.

تابع StrComp  برای مقایسه دو رشته مورد استفاده قرار می گیرد :

StrComp ( رشته اول   , رشته دوم  )

اگر رشته اول بزرگتر از رشته دوم باشد نتیجه 1 ، اگر رشته 1 مساوی رشته 2 باشد نتیجه صفر و اگر رشته 1 کوچکتر از رشته 2 باشد نتیجه 1- خواهد بود.

نوع مقایسه می تواند براساس VbUseCompareOption  انجام شود.

VbBinaryCompare  : حساس به حروف بزرگ و کوچک

VbTextCompare : عدم حساسیت به حروف بزرگ و کوچک

عملگر Mid  : برای انتخاب یک رشته از زیر رشته

Mid ("Student",4,2) = de

عملگر Len  : طول رشته دریافتی را بر می گرداند.

تابع Instr  برای جستجو در یک رشته مفید است.

یکی از مشخصه های مهم مشترک تمام قالب های تصویری عمق رنگ ( Color Depth  ) می باشد.

عمق رنگ ؛ تعداد رنگ هایی که تصویر از آنها پشتیبانی می کند.

تصویر های با عمق رنگ تک بیت ؛ سیاه و سفیذ هستند .

تصویر های با عمق رنگ 8 بیت دارای 256 رنگ و اغلب تصاویر تخت نامیده می شوند.

تصویرهای با عمق رنگ 16 بیت دارای 65535 رنگ می باشند و اغلب تصاویر با کیفیت بالا نامیده می شوند.

تصویرهای با عمق رنگ 24 بیت ؛ تصاویر با عمق رنگ واقعی نامیده می شوند.

کنترل Picture Box  : انعطاف پذیری بیشتری دارد و متد های بیشتری را پشتیبانی می کند.

کنترل Image  : کارایی بهتری دارد و در رایانه های با سرعت پایین بهتر عمل می کند.

برای قرار دادن تصویر در این کنترل ها می توانید از تابع Load Picture  استفاده نمائید.

رویداد های ماوس : 1- جابه جایی 2- کلیک 3- دابل کلیک 4- کلیک راست 5- عملیات کشیدن و رها کردن

فشار دادن یک کلید و رهاکردن آن رویداد کلید می گویند.

رویداد های Mouse Down – Up – Move  چهار آرگومان می گیرند : In Button  : دکمه ای که فشار داده شده است : یک برای دکمه سمت چپ ، 4 برای دکمه وسط و 2 برای دکمه سمت راست ماوس

In Shift   : فشار کلید های Shift – Ctrl – Alt  ؛   Shift = 1 , Ctrl = 2 , Alt =4

 

منبع وبلاگ: Kistdownload >>>> <<<<<