سلام
ماشین حساب طراحی کردم که چهار عمل اصلی را انجام میده فقط می خواهم عمل
X/ 1یعنی هر عددی می گیرد1 را تقسیم بر ان عدد بکند را هم انجام بده من هم چهار عمل اصلی را با Select Case نوشتم جواب میده فقط این عمل اخر چه جوری بنویسم.
ممنون
Printable View
سلام
ماشین حساب طراحی کردم که چهار عمل اصلی را انجام میده فقط می خواهم عمل
X/ 1یعنی هر عددی می گیرد1 را تقسیم بر ان عدد بکند را هم انجام بده من هم چهار عمل اصلی را با Select Case نوشتم جواب میده فقط این عمل اخر چه جوری بنویسم.
ممنون
پاسخ به پروژه های درسی ممنوعه
این که دیگه حالا درسی نیست فقط چطوری این عمل اخر را وارد کنم؟
خب اینم یه حرفیه. ولی بازم پروژه درسیه.
خب همونجوری که بقیه ی اعمال رو نوشتید، اینم همونجوری بنویسید دیگه.
نمی دونم کجاش مشکل دارید. یکم بیشتر توضیح بدید، که کجاش مشکل دارید.
روی کامند مساوی دابل کلیک کردم و این فرمان ها را وارد کردم چهار عمل اصلی جواب میدهند فقط نمی دونم x/1را چطوری بنویسم؟
NUM2 = Val(Text1.Text)
Select Case OP
Case "+"
RESULT = NUM1 + NUM2
Case "-"
RESULT = NUM1 - NUM2
Case "*"
RESULT = NUM1 * NUM2
Case "/"
RESULT = NUM1 / NUM2
Case "^"
RESULT = NUM1 ^ NUM2
End Select
Text1.Text = Str(RESULT)
OP = ""
به حق چیزای ...:18:
خیلی بیشتر توضیح بده!:13:
یعنی میشه کسی کد به این قشنگی بنویسه بعد بقیه ش رو بلد نباشه!
خب راهش همینه دیگه.نقل قول:
ببین دوست عزیز. شما الآن باید یه کامند درست کنید و عنوانش رو بزارید 1/x .
بعد تو رویداد کلیک اون، مقدار متغیر OP رو "1/x" قرار بدی.
بعد انتهای همین کدی که نوشتی (البته قبل از عبارت End Select) این کد رو اضافه کنی.
البته چون نمیدونم، بقیه ی کدت رو چجوری نوشتی، نمیتونم دقیق راهنماییت کنم. ممکنه بعد از انجام این کارایی که گفتم به مشکل بر بخوره.کد:Case "1/x"
RESULT = 1 / NUM1
قبل از اون اعمال هم باید یه شرط بنویسی برای بررسی این که آیا عددی که قراره 1 رو بر اون تقسیم کنیم، 0 هست یا نه. اگه 0 بود پیغام خطا نشون بده و کار رو ادامه نده.
موفق باشی
آقا از به بسم الله می گم شاید چنین پروژه ای هم کسی داشته باشد.
یک text box باز کردم 18 تا کامند که 10 تا از انها شماره ها هستند بقیه هم +, -, *, /, ^, ce, =, 1/x
قسمت جنرال هم این متغیرها را هم معرفی کردم
Dim RESULT As Long
Dim OP As String
Dim NUM1 As Long
Dim NUM2 As Long
بعد به ترتیب روی 1 تا 0 دابل کلیک کردم و در هر کدوم این کدها را وارد کردم.
"1"+text1.text=text1.text
بعد 2 3 4تا 0 را همین کدرا نوشتم فقط بجای 1 رقم دکمه مربوطه را زدم
بعد روی + - / * ^ x/1 را هم این کد را وارد کردم
num1=val(text1.text
"op="1/x
" "=text1.text
بعد روی بقیه عملوندها به همین ترتیب
بعد روی دکمه = این فرمانها را وارد کردم.
NUM2 = Val(Text1.Text
Select Case OP
"+" case
RESULT = NUM1 + NUM
"-" case
RESULT = NUM1 - NUM2
"*" case
2RESULT = NUM1 * NUM
"/" case
2RESULT = NUM1 / NUM
"^" case
2RESULT = NUM1 ^ NUM
Case "1/x
1RESULT = 1 / NUM
End Select
(Text1.Text = Str(RESULT
""=op
بعد برنامه را اجرا کردم همه ی کارها جواب میده ولی دکمه x/1 را که میزنم هر رقمی در تکست باکس وارد کردم را پاک میکنه
فقط بعضی کاراکترها پریده سمت چپ خودتون سمت راست ببینینش
حال شما بگید کجا کار میلنگه؟
از اول کدتون رو اصول نوشته نشده.
اگه وقت کردم. مینویسم و براتون کدش رو میذارم. البته اگه وقت کردم.
برای اینکه کدها رو وقتی اینجا مینویسید، به هم نریزن، باید تو تگ [code] قرار بدینشون.