آژانس هواپیماییexchanging

چهار سوال ساده

شروع موضوع توسط shamsoft ‏29 دسامبر 2005 در انجمن Visual Basic 6

  1. shamsoft

    shamsoft کاربر تازه وارد

    تاریخ عضویت:
    ‏9 دسامبر 2005
    نوشته ها:
    10
    تشکر شده:
    0
    1.چطوری میشه مینیمم یا ماکزیمم بین چند تا عدد رو بدست آورد.مثلا مینمیم بین 6 تا عدد.
    2.چطوری میشه کاری کرد که در یک تکس باکس فقط عدد قرار بگیره.
    3.چطوری میشه بعد از اینکه توی یک تکس باکس یک عدد وارد شد اونوقت یک تب(Tab ) ارسال شود.
    4.چطوری میشه چند تا عدد به صورت رندم انتخاب کرد ولی هیچکدام با هم برابر نباشند.مثلا توی 5 تا تکس باکس 5 تا عدد به صورت رندم بین 0 تا 9 انتخاب کردم ولی ممکنه دو تا از این اعداد مثل هم باشد.حالا من می خوام این احتمال رو از بین ببرم.
    ممنون می شم اگه جوابم رو بدید.به هر حال من یه آماتور به حساب میام.
     
  2. shamsoft

    shamsoft کاربر تازه وارد

    تاریخ عضویت:
    ‏9 دسامبر 2005
    نوشته ها:
    10
    تشکر شده:
    0
    کسی بلد نیست:eek: :blink: :( :blush:
     
  3. shamsoft

    shamsoft کاربر تازه وارد

    تاریخ عضویت:
    ‏9 دسامبر 2005
    نوشته ها:
    10
    تشکر شده:
    0
    مثل اینکه اینجا آدم با سواد کم داره:blink: :wacko:
     
  4. balabala

    balabala کاربر قدیمی پرشین تولز

    تاریخ عضویت:
    ‏22 می 2005
    نوشته ها:
    7,350
    تشکر شده:
    1,322
    محل سکونت:
    یه خورده اونورتر
    اگر فرض بر این باشه که اعداد در یک آرایه به نام nums() باشن:

    کد:
    Dim nums(5) As Integer
    nums(0) = 13
    nums(1) = 2
    nums(3) = 4
    nums(4) = 22
    nums(5) = 1
    
    dim i as integer, max as integer, maxindex as integer
    for i=lbound(nums) to ubound(nums)
    if nums(i)>=max then
    max=nums(i)
    maxindex=i
    end if
    next i
    msgbox "Maximum: " & max & " Index: " & maxindex
    
     
  5. balabala

    balabala کاربر قدیمی پرشین تولز

    تاریخ عضویت:
    ‏22 می 2005
    نوشته ها:
    7,350
    تشکر شده:
    1,322
    محل سکونت:
    یه خورده اونورتر
    راحت ترینش کنترل مقدار وارد شده در دو ایونت زیر هست:
    کد:
     
    Private Sub Text1_KeyPress(KeyAscii As Integer)
    If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then KeyAscii = 0
    End Sub
    Private Sub Text1_Validate(Cancel As Boolean)
    If Not IsNumeric(Text1) Then Text1.Text = Val(Text1)
    End Sub
    
     
  6. balabala

    balabala کاربر قدیمی پرشین تولز

    تاریخ عضویت:
    ‏22 می 2005
    نوشته ها:
    7,350
    تشکر شده:
    1,322
    محل سکونت:
    یه خورده اونورتر
    بستگی داره شما عدد چند رقمی میخواید وارد کنید، مثلا اگر عددتون 2 رقمی هست:

    کد:
    Private Sub Text1_Change()
    If Len(Text1.Text) >= 2 Then SendKeys "{Tab}"
    End Sub
    
     
  7. appbannerkhuniresbanner
  8. balabala

    balabala کاربر قدیمی پرشین تولز

    تاریخ عضویت:
    ‏22 می 2005
    نوشته ها:
    7,350
    تشکر شده:
    1,322
    محل سکونت:
    یه خورده اونورتر
    یه تکست باکس بگذار، بعد:
    کد:
     
    Dim i As Integer, j As Integer, f As Integer, b As Boolean
    Dim rev(4) As Integer
    For i = 0 To 4
        Do
        Randomize Timer
        f = Int((9 * Rnd) + 1)
        
        For j = (i - 1) To 0 Step -1
            If rev(j) = f Then
                b = True
                Exit For
            Else
                b = False
            End If
        Next j
        
        Loop While b
        
        rev(i) = f
    Next i
    For i = 0 To 4
        Text1.Text = Text1.Text & ", " & f
    Next i
    
     
  9. shamsoft

    shamsoft کاربر تازه وارد

    تاریخ عضویت:
    ‏9 دسامبر 2005
    نوشته ها:
    10
    تشکر شده:
    0
    بلا بلا ازتون متشکرم.دیگه داشتم از این فروم نا امید می شدم.
    من خودم جواب 3 و 4 رو پیدا کردم البته با روش دیگه.ولی 1 و 2 به دردم خورد.در هر حال ازتون متشکرم.اگه بتونم جبران می کنم.
     
  10. balabala

    balabala کاربر قدیمی پرشین تولز

    تاریخ عضویت:
    ‏22 می 2005
    نوشته ها:
    7,350
    تشکر شده:
    1,322
    محل سکونت:
    یه خورده اونورتر
    خوشحالم که ناامید نشدی!
    موفق باشی:)