مثلث خیام!

[sAsAn.K]

سلام به همه ی برنامه نویسان:لبخند:
ببینید من دستورهای مثلث خیام رو میخوام در صورتی که در text1.text تعداد ستون n گرفته بشه و به تعداد val(text1.text) مثلث خیام چاپ بشه روی فرم با دستور print:خجالت:
خیلی فوریه تا امشب که شب شنبه باشه 100% لازمش دارم ممنون میشم کمکم کنید:گریه:
ضمنا هر چه دستورها ساده تر بهتر مثل if و for و ...
آرایه نمیخوام باشه:خجالت:

[yavari]

1
121
1331
14641
راستش ریخت مثلث خیام یادم رفته
ولی اگر سطرها مثل نمونه بالا رشد کنند خب قانونش معلومه (یعنی مجموع دو عنصر بالا می آد پائین)
و این هم میشه فقط با if و for نوشت
فقط می مونه ریخت پرینت روی فرم
که اون هم بستگی داره از چه آبجکتائی خواسته باشی استفاده کنی

[Payman62]

به زبون ++ c تو p30word برات گذاشتم راهنماییم کردم چه طور تبدیل کنی.

[sAsAn.K]

پیمان جان اگه تبدیلش کنی دستتو میبوسم;)

[Payman62]

ولی سعی کن خودت بنویسی. چون نه این سایتا جای این بحثان نه این کار درسته. این جوری همیشه وابسته میمونی.

Dim i As Long, j As Long, lngRow As Long, lngNumbers(100, 100) As Long

Private Sub txtGetRows_Change()
On Error GoTo Handler
lngRow = txtGetRows.Text
lblShowNumbers.Caption = ""
For i = 0 To lngRow - 1
For j = 0 To 2 * lngRow
lngNumbers(i, j) = 0
Next j
Next i
lngNumbers(0, lngRow) = 1
For i = 0 To lngRow
For j = 1 To 2 * lngRow - 1
lngNumbers(i + 1, j) = lngNumbers(i, j - 1) + lngNumbers(i, j + 1)
Next j
Next i
For i = 0 To lngRow - 1
For j = 1 To 2 * lngRow - 1
If lngNumbers(i, j) = 0 Then
lblShowNumbers.Caption = lblShowNumbers.Caption & " "
Else
lblShowNumbers.Caption = lblShowNumbers.Caption & lngNumbers(i, j)
End If
Next j
lblShowNumbers.Caption = lblShowNumbers.Caption & Chr(13) & Chr(10)
Next i
Exit Sub
Handler:
lblShowNumbers.Caption = "Error"
End Sub

[Payman62]

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