Printable View
با سلام و عرض ادب به همه ی برنامه نویسان انجمن
سورس که این برنامه رو میخوستم
((برنامه ای بنویسید که توسط یک inpub box حقوق یک کارمند را بخواند،اگر حقوق و بین 500 تا 700 تومان بود 12% مالیات رو از حقوق وی کسر کند اگر حقوق و بین 300 تا 500 تومان بود 8% مالیات رو از حقوق وی کسر کند، اگر حقوق وی کمتر از 300 تومان بود معاف از مالیات در نظر بگیرد.))
مسلما برای شماها برنامه بسیار ساده است،ممنون میشم اگه کمکم کنید
اینم برنامه ای که خواستی
کد:Private Sub Command1_Click()
num = InputBox("")
Select Case num
Case 500 To 700
num = num - num * 0.12
Case 300 To 500
num = num - num * 0.08
Case Is < 300
num = num
End Select
Print num
End Sub
یا علی...:5:
یه دنیا تشکر
واقعا کارم راه افتاد
با سلام
عذر میخوام که بازم مزاحم شدم
اگه میشه سورس این برنامه رو نیز که به نظر ساده میاد رو بهم بدید
برنامه ای بنویسید که با زدن یک دکمه command خروجی زیر رو در فرم چاپ کند...
1123123451234567123451231با تشکر فراوان
خواهشا دوستان سورس این برنامه رو بهم بدند
ابنم جواب سوال دوم شما
کد:For i = 1 To 7 Step 2
Print Tab(10 - i);
For j = 1 To i
Print j;
Next j
Next i
For i = 5 To 1 Step -2
Print Tab(10 - i);
For j = 1 To i
Print j;
Next j
Next i
نبود دیگه؟...:5:
ای ول داری به خدا:40::11:
---------- Post added at 06:37 PM ---------- Previous post was at 06:34 PM ----------
نقل قول:
نبود دیگه؟...:5:
ممکنه تا پایان ترم یکی دو تا دیگه از این سورس های ساده بخوام:31:
:40:
نقل قول:
تا اونجا که بتونم کمک کنم دریخ نمی کنم:31:
راستی شما دانشجوی رشته کامپیوتر هستید؟
متاسفانه بله!!!!!
اما مهندسی سخت افزار..... تو یه شرکت فروش قطعات سخت افزار ی کار هم میکنم
به برنامه نویسی اصلا علاقه و استعدادی ندارم!
برعکس من
من علاقه زیادی به برنامه نویسی دارم و امسال پیش دانشگاهی هستم ولی به هرکس میگم میخوام برم کامپیوتر میگه اشتباه میکنی منم مجبورم برم مکانیک:41:
به هرحال اگه سوالی داشتی مطرح کن تا اگه بلد بودم جواب بدم
بازم دوباره مزاحم شدم....
برنامه بنویسید که بدون محدودیت در تعداد دریافت، اسامی افراد را دریافت و در لیست باکس نمایش دهد.
تذکر:توسط 2 دکمه کامند امکاناتی را فراهم اورید که کاربر با انتخاب هر اسم بتواند رنگ و فونت نوشته را تغییر دهد.
ممنون میشم
سلام
ببخشد ولی تو این برنامه نمیتونم کاری کنم که برنامه اسم و رنگ هر اسم رو جداگونه تغییر بده نام و فونت همه لیست رو کامل عوض می کنه
تو این برنامه اگه در وارد کردن نام ها ، نام رو خالی بذارید ورود نام ها تمام می شود
دراین برنامه سه command button یه commondialog و یه listbox وجود دارد
کد برنامه :
کد:
List1.Clear
Do
a = InputBox("enter name:")
List1.AddItem a
Loop Until a = ""
End Sub
Private Sub color_Click()
CommonDialog1.ShowColor
List1.ForeColor = CommonDialog1.color
End Sub
Private Sub font_Click()
On Error Resume Next
CommonDialog1.ShowFont
List1.FontName = CommonDialog1.FontName
List1.FontSize = CommonDialog1.FontSize
List1.FontBold = CommonDialog1.FontBold
End Sub
این برنامه ها که همش ماله دووم دبیرستان هست :دینقل قول:
رفیق سعی کن خودت بنویسی هرکجاش نتونستی بنویسی بیا اینجا بپرس :40:
دوستان یه سورس میخوام که روود و خروج انبار رو حساب کنه و اخر ماه خروجی کلی بده که چقدر اومده و چقدر خارج شده اگه برنامه خاصی هم سراغ دارید بگید واسه انبار داری میخوام
داداش شما چرا حرص و جوش می زنی:41:نقل قول:
خب لابد نتونسته که اومده پرسیده
شما اگه بلد بودی سوال آخر این بنده خدا رو جواب میدادی
دستت هم درد نکنه دادا , منظورم این بود که خودش تمرین کنه که برنامه نویسیش قوی بشه.:46:
منم یه سورس ساده میخواستم(مثله اینکه بهترین جا همین جاست)
برنامه ای بنویسید که اسامی 5 دانشجو را دریافت،و درون یک فایل متنی تصادفی چاپ کند(نام فایل و محل ذخیره در سورس تعیین شود)
دستت درد نکنه
4 شنبه باید تحویل معلم بدم!
هیچی از وی بی حالیم نمیشه،سال بعد تغیر رشته میدم میرم عمران!
برای این برنامه میتونی از یه حلقه for برای دریافت اسم ها استفاده کنینقل قول:
و برای ثبت نام ها هم با دستور open ..... for random فایل رو باز کنی و با یه حلقه for دیگه توش بنویسی
درضمن چون درخواست پروژه ممنوعه دیگه درخواست پروژه نکنید و اگه مشکلی دارید مطرح کنید تا پیمان این تایپک رو نبنددش
موفق باشید....
من که اینجوری اصلا حالیم نمیشه!
حداقل برای اخرین بار سورس این یکی رو بده اگه بسته هم شد فداری سرت
خواهش
شرمنده اخلاق ورزشی !!!!
یعنی تو تو کلاس ها هیچ چی یاد نگرفتی؟:41:
به هر حال شرمنده نمیشه !
من کارشناسی عمران دارم میخونم اصلا رشته ی تخصصیم نیست و فقط همین بار برای اخرین باره که در طول زندگیم با وی بی سروکار دارم(انشالله:5:)
حداقل پیام خصوصی کن تا اصطلاحا به چنگ نرم:41::13:
24 ساعت مونده،تو رو به اون مرام ورزشيت يه اين بار رو مارو رو سفيد كن جلوي دخترا:2:
براي اخرين بار:40:
فقط موفقیت شما آرزوی ماست.کد:http://www.forum.p30world.com/showthread.php?t=53434
موفق باشید.