سلام دوستان
يه سوال هستش ممنون ميشم جواب بديد
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
Printable View
سلام دوستان
يه سوال هستش ممنون ميشم جواب بديد
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
سوال كجاست...؟! من كه سوالي نمي بينم...! :13:
نكنه كه كور شدم...! همه بهم مي گفتن انقدر...! :41:
دوست عزيز يه كم صبر كنيد سوال به صورت يه عكسه بالا ميادش
دوست عزيز... كلي منتظر موندم ولي... چيزي لود نشد...! :13:
اگه ممكنه لينك بديد...! ممنون...! :20:
موفق باشيد...! :46:
سلام
اينم لينك
کد:http://samba.persiangig.com/a.jpg
كسي نبووود!!؟؟
Plus! خان شما پيدات نيست
باور كنيد مي خوام كمك كنم...!
ولي... عكس لود نميشه...! persiangig ارور ميده...! (ترافيك سرورش بالا رفته...!)
اگه ممكنه اينجا آپ كنيد...! :
ممنون...!کد:http://www.irfreeup.com/
سلام اينم لينك
کد:http://img.graphicno.com/files/rld1ac7velq25a5f3ldd.jpg
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]کد:http://img.graphicno.com/viewer.php?file=rld1ac7velq25a5f3ldd.jpg
خب شما الان تو كدوم قسمتش مشكل داريد...؟!
چيزي نيست همش:31:نقل قول:
سلام به همه.
سجاد جان شما که مشکلتون حل شد ولی برای بقیه بچه این کد رو میگذارم. با اجازه:
کد:Private Sub Form_Load()
Dim b As Integer
Dim x() As Integer
b = InputBox("Enter Table Bound :")
ReDim x(b, b) As Integer
Dim i, j, Number
i = Fix(b / 2) + 1
j = Fix(b / 2) + 1
Number = 1
Do
x(i, j) = Number
Number = Number + 1
i = i - 1
j = j + 1
If i <= 0 Then i = b
If j > b Then j = 1
If x(i, j) <> 0 Then
i = i - 1
If i <= 0 Then i = b
End If
Loop Until Number = (b * b) + 1
For i = 1 To b
For j = 1 To b
Print x(i, j),
Next j
Next i
End Sub