ورود به حساب ثبت نام جدید فراموشی کلمه عبور
برای ورود به حساب کاربری خود، نام کاربری و کلمه عبورتان را در زیر وارد کرده و روی «ورود به سایت» کلیک کنید.





اگر فرم ورود برای شما نمایش داده نمیشود، اینجا را کلیک کنید.









اگر فرم ثبت نام برای شما نمایش داده نمی‌شود، اینجا را کلیک کنید.









اگر فرم بازیابی کلمه عبور برای شما نمایش داده نمی‌شود، اینجا را کلیک کنید.





کاربران برچسب زده شده

نمایش نتایج: از 1 به 7 از 7
  1. #1
    2007/12/28
    جنوب کشور
    885
    1

    یه سوال کوچیک : تابع تبدیل مبنا 10 به مبنا 2 در VB

    سلام.
    خوبید؟
    من تابع تبدیل مبنا 10 به 2 رو لازم دارم.
    2- شرطی بنویسم که اگر اطلاعات ورودی غیر از عدد بود، دستور تبدیل مبنا 10 به 2 رو انجام نده و مثلا Text1.Text="" قرار بده.
    همچنین اگه در ادامه بتونید برام بگید چطور می تونیم بنویسیم که عدد ابتدا و انتها رو از ما بخواد و از عدد اول تا عدد آخر رو به صورت باینری بنویسه. اولین در خواستم خیلی ضرور تره. ممنون
    کنکوری 90 ديروز،آ*دانشجو مهندسي نرم افزار پلي تكنيك امروز!
  2. #2
    2007/12/28
    جنوب کشور
    885
    1

    پاسخ : یه سوال کوچیک : تابع تبدیل مبنا 10 به مبنا 2 در VB

    سوال به این راحتی نمی تونستم پیدا کنم. لطفا کمک کنید.
    کنکوری 90 ديروز،آ*دانشجو مهندسي نرم افزار پلي تكنيك امروز!
  3. #3
    2009/07/29
    لابه لاي الکترون هاي مدارام
    1,306
    30

    پاسخ : يه سوال کوچيک : تابع تبديل مبنا 10 به مبنا 2 در VB

    سلام
    اگه VB8 کار مي کني


    کد:
    Dim i, lo As Double
        lo = TextBox1.Text
        i = Math.Log(lo, 2)
        MsgBox(i)

    تو VB6 هم بايد مثل همين باشه.
    سوال دومت که ساده ترين راهش اينه:
    يه دونه Try/catch يا يه On erorr resume next تعريف کني، اگه کاربر عدد نزنه خود به خود خطا مي ده. فقط حواست باشه ورودي بايد عدد بزرگتر از صفر باشه نه هر عددي.
    برای کاری در حوزه اربعین نیاز به نیروی داوطلب هستیم.

    مهمان عزیز شما حق دیدن لینک ها را ندارید

    عضویت

  4. #4
    2007/12/28
    جنوب کشور
    885
    1

    پاسخ : یه سوال کوچیک : تابع تبدیل مبنا 10 به مبنا 2 در VB

    من با وی بی 6 کار می کنم. و کدی که داده بودین، کار نکرد :cry2:
    جواب دومی شما رو متوجه نشدم . می شه با مثال بفرمائید. ممنون
    کنکوری 90 ديروز،آ*دانشجو مهندسي نرم افزار پلي تكنيك امروز!
  5. #5
    2007/12/28
    جنوب کشور
    885
    1

    پاسخ : یه سوال کوچیک : تابع تبدیل مبنا 10 به مبنا 2 در VB

    خب. سوال اولم هنوز سر جای خودش هست : تابع تبدیل عدد در مبنای 10 به همان عدد در مبنای 2
    سوال دومم خودم تونستم حلش کنم البته نه به روش اصولی. به این صورت نوشتم که
    if val(text1.text) >0 then
    ...
    else
    msgbox " لطفا عدد بزرگتر از صفر وارد کنید "
    end if
    به نظرم همین که کار می کنه خوبه. ولی هنوز اون تابع رو لازم دارم.
    کنکوری 90 ديروز،آ*دانشجو مهندسي نرم افزار پلي تكنيك امروز!
  6. #6
    2007/12/28
    جنوب کشور
    885
    1

    پاسخ : یه سوال کوچیک : تابع تبدیل مبنا 10 به مبنا 2 در VB

    خوب بلاخره جوابش رو از دوستان گرفتم. از دوستان مجید آنلاینی . آدرس پاسخ : http://forum.majidonline.com/showpost.php?p=884612&postcount=2
    اینم تابعش که دوستمون تو سایت مجید آنلاین قرار دادن :
    کد:
    Private Function NumberToText(ByVal Number As Currency, ByVal Base As Long) As String
      Dim Value As Long, NewNumber As Currency
      Dim Pos As Long, BasePos As Long
      Dim InsertZero As Boolean
      If Number < 0 Then
        NumberToText = "-"
        Number = 2147483648@ + Number
        If Number = 0 Then Number = 2147483648@
      End If
      BasePos = Log(4294967296@) / Log(Base)
      For Pos = BasePos To 0 Step -1
        NewNumber = CCur(Base) ^ CCur(Pos)
        Value = 0
        Do While Number >= NewNumber
          Value = Value + 1
          Number = Number - NewNumber
        Loop
        If Value > 0 Or Pos = 0 Then InsertZero = True
        If InsertZero Then
          NumberToText = NumberToText & Mid("0123456789ABCDEF", Value + 1, 1)
        End If
      Next
    End Function
    ین تابع دو پارامتر دریافت می کنه، پارامتر اول عدد مورد نظر در مبنای 10 است و عدد دوم مبنایی است که می خواهید
    به آن تبدیل شود، مثلا اگر می خواهید به مبنای 2 تبدیل شود، عدد 2 را در آن قرار دهید.

    در مثال زیر معادل مبنای 2 عدد 1234 در Text1 قرار می گیرد :
    کد:
      Text1.Text = NumberToText(1234, 2)
    کنکوری 90 ديروز،آ*دانشجو مهندسي نرم افزار پلي تكنيك امروز!
  7. #7
    2007/12/28
    جنوب کشور
    885
    1

    پاسخ : یه سوال کوچیک : تابع تبدیل مبنا 10 به مبنا 2 در VB

    تابع فوق برای visual basic 2008 با دو تغییر می توان به دست اورد:
    کد:
    Private Function NumberToText(ByVal Number As Currency, ByVal Base As Long) As String
      Dim Value As Long, NewNumber As decimal
      Dim Pos As Long, BasePos As Long
      Dim InsertZero As Boolean
      If Number < 0 Then
        NumberToText = "-"
        Number = 2147483648@ + Number
        If Number = 0 Then Number = 2147483648@
      End If
      BasePos = Math.Log(4294967296@) / Math.Log(Base)
      For Pos = BasePos To 0 Step -1
        NewNumber = Cdec(Base) ^ Cdec(Pos)
        Value = 0
        Do While Number >= NewNumber
          Value = Value + 1
          Number = Number - NewNumber
        Loop
        If Value > 0 Or Pos = 0 Then InsertZero = True
        If InsertZero Then
          NumberToText = NumberToText & Mid("0123456789ABCDEF", Value + 1, 1)
        End If
      Next
    End Function
    کنکوری 90 ديروز،آ*دانشجو مهندسي نرم افزار پلي تكنيك امروز!
نمایش نتایج: از 1 به 7 از 7

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

  1. پاسخ: 1
    آخرين نوشته: 2015/10/25, 14:03
  2. یک چند سوال کوچیک
    توسط dastanjahan در انجمن مفاهیم پایه برق و الکترونیک
    پاسخ: 1
    آخرين نوشته: 2015/04/19, 14:20
  3. طراحی کامپیوتر مبنا با quartus
    توسط faraday در انجمن آموزش نرم افزارهاي آناليز و شبيه ساز
    پاسخ: 0
    آخرين نوشته: 2014/01/08, 12:06
  4. پاسخ: 2
    آخرين نوشته: 2012/08/21, 12:37
  5. پاسخ: 0
    آخرين نوشته: 2008/12/21, 13:51

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

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

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

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

  • شما نمیتوانید موضوع جدیدی ارسال کنید
  • شما امکان ارسال پاسخ را ندارید
  • شما نمیتوانید فایل پیوست کنید.
  • شما نمیتوانید پست های خود را ویرایش کنید
  •