اطلاعیه

Collapse
No announcement yet.

2تا سوررس ویژوال بیسیک

Collapse
X
 
  • Filter
  • زمان
  • Show
Clear All
new posts

  • 2تا سوررس ویژوال بیسیک

    سلام دوستان
    2تا سورس ویژوال بیسیک می خوام به شرح زیر :
    1- برنامه از ما عدد بگری و اینطوری جواب بده : بین 0تا9 بگه مردود
    بین 10تا 15 متوسط
    بین 16تا18 خوب
    بین 18تا 20 عالی
    ++++++++++++++++++++++++++++++++++++++++++++++++++ ++++++
    2- برنامه 3تا سوال داریم ازش که باید یه جواب مشخص بده مثلا میپرسیم چطوری بگه خوبم اینها تعریف شدن و احتیاج به دیتا بیس نداره



    ممنون (برای فردا لازم دارم لطفا کمک)

  • #2
    کد:
    dim st as string
    select case st
    case "chetori"
    label1.caption="khoobam"
    واسه اعدادم از همین روش استفاده کن
    dim i as integer
    select case i
    case is<=9
    label1.caption="مردود"
    فایل های پیوست شده
    Last edited by mta; 03-03-2008, 06:10 AM.
    کمی دیوانگی برای برداشتن گامی فراتر لازم است.
    رساله دلاور اشراق،پائولو کوئلیو

    Comment


    • #3
      دوستان مشکل این کد من چیه ؟ چون همش دومی رو مینویسه تو لیبل :
      Private Sub Command1_Click()
      Cls
      Dim a As Integer
      a = Val(Me.Text1.Text)
      If 0 < a < 9 Then Label1.Caption = "1"
      a = Val(Me.Text1.Text)
      If 10 < a < 99 Then Label1.Caption = "2"


      End Sub



      قصدم نوشتن برنامه ای هست که تعداد ارقام عدد را بنویسه

      راستی یه برنامه هم هست که باید مقسوم علیه های یک عدد رو بنویسه کسی میدونه این با چه توابعی باید نوشت ؟

      Comment


      • #4
        اکثر این سورس ها تو این سایت هستن ...
        کد:
        http://iranvig.com
        یه سر بزن، شاید به دردت بخوره.
        عشق = هوس

        Comment

        Working...
        X