یک سوال کوچیک از دوستان برنامه نویس

[photolady]

سلام دوستان . سوالم اینه که
برنامه ای که دو عدد را از ورودی خوانده و حاصلضرب دو عدد را بدون استفاده از عملگر ضرب نمایش دهد ؟؟
من یه کامپوننت ms flex grid توی صفحه ی کار وی بی گذاشتم و بعد روی اون ، این کد رو نوشتم ولی دلیلشو نمیدونم که چرا درست خطا میده .:اشتباه:

Private Sub MSFlexGrid1_Click()
For i = 1 To 10
For j = 1 To 10
MSFlexGrid1.Row = i
MSFlexGrid1.Col = j
MSFlexGrid1.Text = i * j
Next i.j
End Sub

میشه اینو هم بگید که من توی فرم به غیر از کنترل MSFlexGrid چه کنترل دیگه ای هم قرار بدم ؟

[h_a_m_i_d]

Private Sub MSFlexGrid1_Click()
For i = 1 To 10
For j = 1 To 10
MSFlexGrid1.Row = i
MSFlexGrid1.Col = j
MSFlexGrid1.Text = i * j
Next
next
End Sub
دوست عزیز اینو بزن ببین درست میشه

[photolady]

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

[h_a_m_i_d]

من کامپوننتش رو ندارم رو ویژوال استادیوم (تو choose ithemam نیست البته :بامزه:)
مگرنه نمونه کد بهتون میدادم
چون توضیح دادنم خیلی داغونه اکثر مواقع سورس میذارم:لبخند:
بازم یک سرچ میکنم ببینم میتونم کامپوننت رو گیر بیارم
میشه سورس خودتونو بذارید

[zahedi121]

سلام
عدد را بدون تغییر دارید داخل تکست میریزید !



Private Sub MSFlexGrid1_Click()
For i = 1 To 10
For j = 1 To 10
MSFlexGrid1.Row = i
MSFlexGrid1.Col = j
MSFlexGrid1.Text =cstr( i * j)
Next j
next i
End Sub



ولی این چه ربطی به انجام ضرب بدون عملگر ضرب دارد ؟ اگر میخواهید از عملگر ضرب استفاده نکنید ، مثلا برای i*j باید از یک کدی مثل این استفاده کنید :
x=i
for a = 2 to j
i = i + x
next a

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

[xxnagin]

سلام


Private Sub MSFlexGrid1_Click()
For i = 1 To 10
For j = 1 To 10
MSFlexGrid1.Row = i
MSFlexGrid1.Col = j
MSFlexGrid1.Text = i * j
Next i.j
End Sub

این کدها برای vb6 هستش بهتر نبود تو تالار خودش سوالتون رو میپرسیدین اینجا vb.net هستش
به همین خاطر دوستان درست نتونستن راهنمایت کنن
و دانلود این active x (http://www.ocxdump.com/ocxfiles/M/MSFlexGrid.ocx)

[photolady]

سلام
عدد را بدون تغییر دارید داخل تکست میریزید !





Private Sub MSFlexGrid1_Click()
For i = 1 To 10
For j = 1 To 10
MSFlexGrid1.Row = i
MSFlexGrid1.Col = j
MSFlexGrid1.Text =cstr( i * j)
Next j
next i
End Sub



ولی این چه ربطی به انجام ضرب بدون عملگر ضرب دارد ؟ اگر میخواهید از عملگر ضرب استفاده نکنید ، مثلا برای i*j باید از یک کدی مثل این استفاده کنید :
x=i
for a = 2 to j
i = i + x
next a

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


راستش دوست عزیز اینو هم تست کردم ولی هی این خطا رو بهم میده ::ناراحت:


http://https-sock-vpn.persiangig.com/image/mx%20flex%20grid.png102808


فک کنم واسه next j یا next i.j گیر میده چون موقع خطا دادن حرف i.j قسمت next رو انتخاب میکنه و Private Sub MSFlexGrid1_Click رو هم به حالت زرد رنگ که انتخاب میکنه :ناراحت:

خلاصه اگه یه جور دیگه هم امکانش هست کدنویسی بشه ولی با همین کامپوننت MSFlexGrid

میشه خودتون هم تست بکنید ممنون میشم :خجالت:

[SlowCode]

مشکل اینه که جای next i و next j رو اشتباه نوشتی.
جاشون رو عوض کنی درست میشه.

[aliphp1]

شما که از ضرب استفاده کردی دوست عزیز
for( i=1; i>=j)
sum=sum+x

i شمارشگر حلقه
j یکی از اعداد
x یکی دیگر از اعداد
sum حاصل

من کلا vb کار نکردم ولی منطق اینکه بخوای از ضرب استفاده نکنی فکر کنم این باشه

[zahedi121]

راستش دوست عزیز اینو هم تست کردم ولی هی این خطا رو بهم میده ::ناراحت:


http://https-sock-vpn.persiangig.com/image/mx%20flex%20grid.png102808


فک کنم واسه next j یا next i.j گیر میده چون موقع خطا دادن حرف i.j قسمت next رو انتخاب میکنه و Private Sub MSFlexGrid1_Click رو هم به حالت زرد رنگ که انتخاب میکنه :ناراحت:

خلاصه اگه یه جور دیگه هم امکانش هست کدنویسی بشه ولی با همین کامپوننت MSFlexGrid

میشه خودتون هم تست بکنید ممنون میشم :خجالت:


سلام
همانطور که آقا محسن گفتند جای next ها را اشتباه نوشتید!
سوال vb را در انجمن vb.net دارید پیگیری میکنید!
کدی که اول گذاشتید با اینکه الان گذاشتید فرق میکنه!(i-1 , j-1 )
بالاخره هدفتون از این کد چیه ؟ ضرب نمیخواهید استفاده کنید (کدش را نوشتم ) ؟ با حلقه ها مشکل دارید (جای next ها را درست کنید) ؟ قراره این کد چکار انجام بده ؟ بگین راهنمایی راحتره.

موفق باشید .

[photolady]

واقعا که انجمن برنامه نویس انجمن خوبی هستش . چون کاربرانش خیلی فعال هستن . من انتظار این همه جواب رو نداشتم و تجب کردم وقتی اینهمه جواب رو گرفتم . راستش مشکل از همون سمت next هستش و من میرم به قسمت vb و این مشکل رو مطرح میکنم شاید جوابشو بگیرم
بازم خیلی ممنون از همه :بوس::قلب::بوس: