روي خط سي شارپ ‍‍C#

» .

منوي كاربري

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

(به خاطر بعضی از چیز ها خیلی از چیز ها را از دست داد)
--------------------------------------------------------------------------
کسانی که گذشته را به یاد نمی آورند محکوم به تکرار آن هستند
--------------------------------------------------------------------------
براي رسيدن بايد راه رفت (مهندس مهدي دلير)
--------------------------------------------------------------------------
مي خواهم ولي نمي توانم، افسوس كه مي توانستم ولي نخواستم!!
هميشه مراقب اشتباه دوم باش، اشتباه اول حق توست!!
--------------------------------------------------------------------------
لشكر گوسفندانی كه توسط یك شیر اداره میشود، میتواند لشكر شیرانی را كه توسط یك گوسفند اداره میشود، شكست دهد
--------------------------------------------------------------------------
زندگی مثل دوچرخه سواری است؛ برای حفظ تعادل بایدحرکت کرد.............
--------------------------------------------------------------------------
هر روز ما آف هامونو باز می کنیم و پیام هایی رو که دوستامون فرستادن می خونی ... اما تا حالا چند بار "قرآن" رو باز کردیم تا پیام هایی رو که خداوند فرستاده بخونیم
--------------------------------------------------------------------------
دیگران را ببخش نه برای اینکه آنان لایق ببخشش هستند بلکه به خاطر اینکه تو لایق آرامشی
--------------------------------------------------------------------------
و این آغاز انسان بود...

از بهشت که بیرون آمد، دارایی اش یک سیب بود. سیبی که به وسوسه آن را چیده بود. و مکافات این وسوسه هبوط بود.

فرشته ها گفتند: تو بی بهشت می میری. زمین جای تو نیست. زمین همه ظلم است و فساد.

انسان گفت: اما من به خود ظلم کرده ام. زمین تاوان ظلم من است. اگر خدا چنین می خواهد، پس زمین از بهشت بهتر است.

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

و فرشته ها همه گریستند. اما انسان نرفت. انسان نمی توانست برود. انسان بر درگاه بهشت وامانده بود. می ترسید و مردد بود. و آن وقت خدا چیزی به انسان داد. چیزی که هستی را مبهوت کرد و کائنات را به غبطه واداشت.

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

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

--------------------------------------------------------------------------
هر 3 ثانیه یکی تو دنیا میمیره
بشمار1 2 3 همین الان یکی مرد یادت باشه یکی از این 3 ثانیه ها نوبت من و توه
--------------------------------------------------------------------------
به نظر تو قرآن برای چی نازل شد فقط برای اینکه یک نگاهی به جلدش بکنیم
تاحالا چند تا کتاب خوندی ازکتاب درسی گرفته تا کتاب شعر
حتما یلی خوندی اما یک بار شده با حوصله معنی قرآن را بخونی
این چه برنامه ی زندگی بزای من و توه که تاحالا حتی اون را کامل نخوندیم چه برسه به اینه روش فکر کنی
تا حالا شده فکر کنی که چرا من وتو نمی تونیم مثل اون کتابی بیاریم
--------------------------------------------------------------------------
چند قورباغه از جنگلي عبور مي کردند که ناگهان دو تا از آنها به داخل گودال عميقي افتادند.
بقيه قورباغه ها در کنار گودال جمع شدند و و قتي ديدند که گودال چقدر عميق است به دو قورباغه ديگر گفتند :
ديگر چاره ايي نيست .شما به زودي خواهيد مرد .
دو قورباغه حرفهاي آنها را نشنيده گرفتند و با
تمام توانشان کوشيدند تا از گودال خارج شوند.
اما قورباغه هاي ديگر دائما به آنها مي گفتند که دست از تلاش برداريد چون نمي توانيد از گودال خارج شويد ?
به زودي خواهيد مرد . بالاخره يکي از قورباغه ها تسليم گفته هاي ديگر قورباغه ها شد و دست از تلاش برداشت .
او بي درنگ به ته گودال پرتاب شد و مرد.
اما قورباغه ديگر با حداکثر توانش براي بيرون آمدن از گودال تلاش مي کرد .
بقيه قورباغه ها فرياد مي زدند که دست از تلاش بردار ?
اما او با توان بيشتري براي بيرون آمدن از گودال تلاش مي کرد و بالاخره از گودال خارج شد.
وقتي از گودال بيرون آمد بقيه قورباغه ها از او پرسيدند : مگر تو حرفهاي ما را نشنيدي ؟
معلوم شد که قورباغه ناشنوا است و در واقع او در تمام راه فکر مي کرده که ديگران او را تشويق مي کنند .
--------------------------------------------------------------------------

لوگوي ما

خبرنامه

لينك دوستان

لينكدوني

منوي اصلي

نويسندگان

موضوعات

آرشيو ماهانه

جستجوگر

آمار و کدهاي جاوا

طراح قالب

نمونه سوالات درس برنامه نویسی سیستم های تجاری (ویژوال بیسیک) ( برنامه نویسی )

نمونه سوالات درس برنامه نویسی سیستم های تجاری (ویژوال بیسیک)

1-سه عدد از ورودی دریافت، تعیین کند که آیا می توان با این سه عدد یک مثلث قائم الزاویه تشکیل داد یا خیر.

Private Sub Command4_Click

Dim a As Integer, b As Integer, c As Integer

a = InputBox ("Enter 1st num") ^ 2

b = InputBox ("Enter 2nd num") ^ 2

c = InputBox ("Enter 3rd num") ^ 2

If (a + b = c Or a + c = b Or b + c = a) then

MsgBox "YES"

Else: MsgBox "NO"

End If

End Sub

2-ضرایب معادله درجه 2 را بگیرد و رشته های آن را روی فرم چاپ کند

Private Sub Command1_Click()

Dim a!, b!, c!, x!, x2!, delta!

a = InputBox(Prompt:="Enter a", Default:=4)

b = InputBox(Prompt:="Enter b", Default:=5)

c = InputBox(Prompt:="Enter c", Default:=1.5625)

delta = b ^ 2 - 4 * a * c

Select Case delta

Case Is < 0

MsgBox "There are no solutions"

Case 0

x = -b / 2 * a

MsgBox "There is one solution: " & x

Case Is > 0

x = (-b + Sqr(delta)) / (2 * a)

x2 = (-b - Sqr(delta)) / (2 * a)

MsgBox "There is two solutions: " & x & " and " & x2

End Select

End Sub

3-برنامه ای بنویسید که یک عدد را خوانده، اول بودن آن را تعیین نماید و پیغام مناسبی چاپ کند.

Private Sub Command1_Click()

n = Val(Text1.Text)

s = 0

For i = 2 To n

S1 = 0

For j = 1 To i

If i Mod j = 0 Then S1 = S1 + j

Next j

Next i

If S1 = n + 1 Then

MsgBox "prim"

Else: MsgBox "no prim"

End If

Text2.Text = Sum

Text3.Text = sum1

End Sub

4-برنامه ای بنویسید که یک عدد حد اقل چهارقمی مثبت را خوانده، مغلوب آن را نمایش دهد.

Private Sub Command1_Click()

Dim n As Integer, i As Integer

n = InputBox("Enter the num:")

While n > 0

i = n Mod 10

Print CStr(i);

n = n \ 10

Wend

End Sub

5-برنامه ای بنویسی ه و عد صحیح A و B را از ورودی بگیرد و بزرگترین مقسوم علیه مشترک و کوچک ترین مضرب مشترک بین آن دو عدد را محاسبه و چاپ کند.

Private Sub Command1_Click()

Dim a As Integer, b As Integer, c As Integer

a = InputBox("Enter")

b = InputBox("Enter")

a1 = a

b1 = b

If a < b Then

a = a + b

b = a - b

a = a - b

End If

c = a Mod b

If c = 0 Then Exit Do

a = b

b = c

Loop

Print "BMM: "; b

Print "KMM: "; a1 * b1 / b

End Sub

برنامه نویسی سیستم های تجاری (ویژوال بیسیک) برنامه نویسی سیستم های تجاری (ویژوال بیسیک) برنامه نویسی سیستم های تجاری (ویژوال بیسیک) برنامه نویسی سیستم های تجاری (ویژوال بیسیک) برنامه نویسی سیستم های تجاری (ویژوال بیسیک)

نوشته شده توسط حامد نعیمایی در جمعه 31 خرداد1387

لينك ثابت

ناگفته های زهرا امیر ابراهیمی از آقای ح.ب ( گالری عکس )

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

ادامه ي مطلب ...

نوشته شده توسط حامد نعیمایی در چهارشنبه 29 خرداد1387

لينك ثابت

ترفند مخفی ایرانسل: انتقال اعتبار از یک سیم کارت به یک سیم کارت دیگر ( کامپیوتر )

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

با ترفندی که امروز قصد معرفی آن را داریم قادرید تا تنها با ارسال یک پیام کوتاه ، مقدار اعتبار دلخواه خود را به سیم کارت ایرانسل دیگری انتقال دهید !

تصور کنید اعتبار سیم کارت اعتباریتان رو به پایان است و نیاز به شارژ سیم کارت دارید ، در حالی که دسترسی به کارت شارژ نیز ندارید .

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

برای این مظور کافی است ابتدا با سیم کارتی که قصد دارید تا از آن اعتبار بگیرید یک پیام کوتاه به صورت زیر و به شماره 1112 ارسال کنید

۱۱۱۱۱۱:مبلغ مورد نظر به ریال: شماره سیم کارت مقصد

» به طور مثال فرض کنید قصد داریم تا از سیم کارتی به شماره فرضی 09351111111 به شماره 09352222222 ، مبلغ 1000 تومان اعتبار انتقال دهیم .

بدین منظور کافی است از سیم کارت اول یک پیام کوتاه به شماره 1112 ارسال کنید که در متن آن ابتدا شماره سیم کارت مقصد را نوشته و سپس علامت دو نقظه گذاشته و سپس مبلغ مورد نظر را به ریال وارد کنید .سپس ۱۱۱۱۱۱

یعنی :

۰۹۳۵۲۲۲۲۲۲۲:۱۰۰۰۰:۱۱۱۱۱۱

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

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

نوشته شده توسط حامد نعیمایی در چهارشنبه 22 خرداد1387

لينك ثابت

..: آخرين ارسال ها :..