[MirHossein]

سلام دوستان
در نوشتن یک برنامه بهمشکلی برخوردم
توی این برنامه نیاز داریم به اینکه اعداد 0 تا 15 را به هم ریخته به ما بدهد
و هربار که اجرا میشه اعداد متفاوت باشد (randomize timer )
در ضمن اعداد در یک ارایه ذخیره بشه مثلا arra(0 to 15)

هر مدل که کمکم کنید ممنونتون میشم ولی نوشتن کدش خیلی بهتره

[behroz1992]

دوست عزیز بیبین این برنامه بدردت میخوره:

Private Sub Timer1_Timer()
Dim a(15) As Integer
Dim c As Integer
For k = 0 To 15
c = (Rnd * k)
Next
Print c
End Sub

[MirHossein]

این روش کاملا اشتباه است

یه خورده مسعله رو باز تر میکنم شاید بتونین کمکم کنید(خدایا یعنی میشه)
من یه ارایه 15 تایی دوبعدی دارم که توی اون برنامه نیاز هست که بهم بریزه
حالا چطور باید این کار رو کرد؟؟؟
با تشکر

[HvPc]

منظور ت از 2 بعدی 3 در 5 هست
یعنی
3,5
یا
15و15

[HvPc]

من یکی برات نوشتم اون چیزی که من متوه شدم اگه میتونی بیشتر توضیح بده و کامل آرایه .

این قسمت در بخش جنرال بنویس

Dim HvP(1 To 15) As Byte

یه لیست باکس هم به فرمت اضافه کن

    Dim H As Byte
    Randomize Timer
    List1.Clear
    For H = 1 To 15
        HvP(H) = Int(Rnd * 15)
        List1.AddItem HvP(H)
    Next

[MirHossein]

سلام ببخشید یه مدت نبودم
دوست عزیز شما هر جور که میتوننید کد بنویسید
اعداد 0 تا 15 رو نامنظم بچینه
و اصلا هم تکراری نباشه
ممنونم

[HvPc]

خوب من اینو نوشتم

عدد تکراری نمیده

اول کد زیر رو تو قسمت جنرال کپی کن

Dim HvP(1 To 15) As Byte

یه لیست باکس اضافه کن به فرمت

و این کد رو در فرم لود کپی کن و برنامه رو اجرا کن

    Dim H As Byte
    hp = 0
    hsa = 0
    Randomize Timer
    List1.Clear
    For hmv = 1 To 15
    HvP(hmv) = 16
    Next
Do While List1.ListCount <> 15
        Hv = Int(Rnd * 16)
        Refresh
        For ha = 1 To 15
        If Hv <> HvP(ha) Then hp = hp + Val(1)
        Next
        If hp = 15 Then
        hsa = hsa + Val(1)
        HvP(hsa) = Hv
        List1.AddItem HvP(hsa)
        End If
        hp = 0
Loop