نمایش نتایج: از شماره 1 تا 3 , از مجموع 3

موضوع: وضعیت مثلث

  1. #1


    آخرین بازدید
    2015/05/01
    تاریخ عضویت
    October 2014
    نوشته ها
    56
    امتیاز
    27
    سپاس
    28
    سپاس شده
    17 در 11 پست
    تعیین سطح نشده است

    وضعیت مثلث

    برنامه ای بنویسید که 3 عدد را به عنوان اضلاع مثلث دریافت کند و از نظر متساوی الساقین و قائم الزاویه و متساوی الاضلاع بودن بررسی کند؟
    من برنامه رو نوشتم ولی نمیدونم کجاش ایراد داره که آخری رو بررسی نمی کنه
    کد PHP:
    Sub mosallas()
    Cells(11)
    Cells(21)
    Cells(31)
    If 
    Or Or c Then
    MsgBox 
    "متساوي الساقين"
    Else
    MsgBox "متساوي الساقين نيست"
    If Or Or 2 Then
    MsgBox 
    "قائم الزاويه"
    Else
    MsgBox "قائم الزاويه نيست"
    If (And cThen
    MsgBox 
    "متساوي الاضلاع"
    Else
    MsgBox "متساوي الاضلاع نيست"
    End If
    End If
    End If
    End Sub 
    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.
    پاسخ مورد نظر براي اين تاپيك ارسال شده است.

  2.  

  3. #2


    آخرین بازدید
    2015/05/01
    تاریخ عضویت
    October 2014
    نوشته ها
    56
    امتیاز
    27
    سپاس
    28
    سپاس شده
    17 در 11 پست
    تعیین سطح نشده است

    کسی میدونه ایرادش کجاست؟

  4. #3


    آخرین بازدید
    2023/04/24
    تاریخ عضویت
    April 2014
    محل سکونت
    كرج
    نوشته ها
    892
    امتیاز
    4526
    سپاس
    2,297
    سپاس شده
    2,910 در 801 پست
    سطح اکسل
    64.00 %

    ساختار if که نوشتی غلطه ، با if میشه گفت این حالت میشه یا نمیشه ولی شما الان 6 تا بله و خیر دارید
    باید اینطوری بزنی ( تو یه دکمه قرارش دادم )
    کد PHP:
    Private Sub CommandButton1_Click()
    Cells(11)
    Cells(21)
    Cells(31)

    If 
    Or Or c Then
    MsgBox 
    "ãÊÓÇæí ÇáÓÇÞíä"
    Else
    MsgBox "ãÊÓÇæí ÇáÓÇÞíä äíÓÊ"
    End If

    If 
    Or Or 2 Then
    MsgBox 
    "ÞÇÆã ÇáÒÇæíå"
    Else
    MsgBox "ÞÇÆã ÇáÒÇæíå äíÓÊ"
    End If

    If (
    And cThen
    MsgBox 
    "ãÊÓÇæí ÇáÇÖáÇÚ"
    Else
    MsgBox "ãÊÓÇæí ÇáÇÖáÇÚ äíÓÊ"
    End If
    End Sub 



اطلاعات موضوع

کاربرانی که در حال مشاهده این موضوع هستند

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

موضوعات مشابه

  1. در اختیار گرفتن نوار وضعیت صفحه اکسل
    توسط shamsololama در انجمن ماكروها در ويژوال بيسيك - Macros in VBA
    پاسخ ها: 2
    آخرين نوشته: 2017/03/14, 00:26
  2. امکان تعیین موقعیت اسکرول افقی یک لیست باکس بر روی فرم وجود داره ؟
    توسط mehdi2273 در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 0
    آخرين نوشته: 2014/08/01, 05:12
  3. پرینت گرفتن در موقعیت دلخواه بر روی صفحه
    توسط my90d در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 7
    آخرين نوشته: 2012/07/28, 16:11
  4. صورت وضعیت نوشتن در اکسل
    توسط arrw.co در انجمن اكسل و رشته مهندسي مكانيك
    پاسخ ها: 5
    آخرين نوشته: 2011/09/19, 10:21

بازدید کنندگان با جستجو های زیر این صفحه را پیدا کرده اند

انجمن اكسل ايران , اكسل , اكسس , سوال و جواب اكسل , سوال اكسس , انجمن اكسل ايران , توابع اكسل, آموزش اكسل, آموزش اكسس, VBA, ويژوال بيسيك

کلمات کلیدی این موضوع

علاقه مندی ها (Bookmarks)

مجوز های ارسال و ویرایش

  • شما نمیتوانید موضوع جدیدی ارسال کنید
  • شما امکان ارسال پاسخ را ندارید
  • شما نمیتوانید فایل پیوست کنید.
  • شما نمیتوانید پست های خود را ویرایش کنید
  •  
  • BB code ها فعال هستند
  • شکلک ها فعال هستند
  • کد [IMG] فعال است
  • کد [VIDEO] فعال است
  • کد HTML غیر فعال است
با ما در تماس باشيد