ارسال جدول به ارایه

سلام
همگی خسته نباشید
من شدیدا به کمکتون نیاز دارم لطفا کمک کنید
من باید یک جدول داشته باشم که که هر خونه دلخواه رو کلیک کنم و بعد به صورت باینری در یک ماتریس ذخیره بشه
خواهش می کنم کمکم کنید ممنون

اگر یکم بیشتر توضیح میدادین فکر کنم بهتر بود.

جدولتون رو باید با چه شیئی ایجاد کنید؟

منظورتون از این که به صورت باینری ذخیره شه چیه؟ یعنی عدد تبدیل به مبنای 2 شه؟

اما در هر حال چیزی که من از سوالتون فهمیدم رو جواب میدم.

این که یه جدول داشته باشید: اگه تعدادشون محدوده، میتونید با Line بسازید و به عنوان خانه های خالی، Label بذارید.

برای کلیلک هم که دیگه مشخصه :31: از رویداد Mouse down استفاده کنید.

در مورد تبدیل به باینری هم که میشه از تقسیم های متوالی و یا توان رسانی مرتبه ها از کم به زیاد استفاده کنید.

برای ذخیره در ماتریس هم که از آرایه دو بعدی استفاده کنید. مثلا این:

کد:

---

Option Explicit
Dim Array_Name(5, 5) As Integer
Dim kol As String, i, j, x, z As Integer


Private Sub Form_Load()

For i = 1 To 5
For j = 1 To 5
x = i * j
Mabna (x)
Print Array_Name(i, j)
Next j, i

End Sub

Function Mabna(x As Integer)
kol = ""
Do While x / 2 > 1
z = x Mod 2
kol = kol & z
x = x / 2
Loop
Mabna = 1 & StrReverse(kol)
Array_Name(i, j) = Mabna
End Function

---

اگر سوالی داشتی، بپرس. من هم نباشم، بچه ها جواب میدن.:40::11::40:

یا علی ... :10: