ماتریس ها در ویژوال بیسیک

nishbaz

New Member
با سلام و خسته نباشید.دوست عزیز سال نو مبارک
می خواستم اگه میشه در مورد ماتریس های بالا مثلثی و پایین مثلثی و سه قطری و اسپارس با استفاده از ویژوال بیسیک یه راهنمایی کنین. البته منظورم source برنامه هستش چون پروژه دانشگاست و باید تحویل بدم .خوشحال میشم توی اولین درخواستم از این سایت منو راهنمایی کنید.


سالک : ادیت شد.
 

HADI-KARIMI

New Member
سلام دوست عزیز
اولا برای این که شما یک ماتریس بسازید نیاز به این دارید که ابتدا یک نوع آرایه داشته باشید برای این منظور باید نسبت به تعداد خانه های ماتریس مورد نظر یک آرایه ایجاد کنید مثلا برای ایجاد یک ماتریس سه بعدی (3 ردیف و 3 تا خانه )باید شما این گونه آرایه را قسمت General تعریف کنید
Dim (3,3) as Integer
خوب آرایه شما تعریف شده است حالا باید برای مقدار دهی آن این گونه عمل کنید
در یک Button کد های زیر را برای وارد کردن داده های خانه های ماتریس باید
For i = 1 To 3
For j = 1 To 3
("عدد مورد نظر برای قرار دادن در سلول ها")a(i, j) = InputBox
Next
Next
و حالا ماتریس سه بعدی شما ساخته شد حالا برای چاپ آن باید این گونه عمل کنید
در Button کد های زیر را قرار دهید تا داده های مورد نظر چاپ شود
For i = 1 To 3
For j = 1 To 3
;(Print a(i, j
Next
Print
Next

با عرض عذر خواهی استاد من آقای saalek110 این جا بودند:cry:
 
آخرین ویرایش:

HADI-KARIMI

New Member
در ضمن یادم رفت بگم برای درست کردن ماتریس پایین مثلثی باید جای
;(Print a(i,j​
باید از کد زیر استفاده کنید​
For i = 1 To 3
For j = 1 To 3
If i > j Then
;(Print a(i, j
End If
Next
Print
Next​

و برای بالا مثلثی باید همان کد بالا را به صورت زیر تغییر دهیم​
For i = 1 To 3
For j = 1 To 3
If i < j Then
;(Print a(i, j
End If
Next
Print
Next​

و برای این که قطر اصلی را چاپ کنید باید باز همان کد بالا را به این صورت درآورید​
For i = 1 To 3
For j = 1 To 3
If i = j Then
;(Print a(i, j
End If
Next
Print
Next​

امید وارم به دردت بخورد:)
 

saalek110

Well-Known Member
ممنون آقای کریمی.
خیلی مفید بود. استفاده کردیم.
طبق معمول در لیست تاپیکهای مفید قرار دادم.
 

sohaaaa.ff

New Member
سلام
امکانش هست راهنمایی کنید ضرب دو ماتریس 3*3 که از کاربر گرفته شده ودر سلول ها نمایش داده شود را چگونه باید کد نویسی کرد؟
 

جدیدترین ارسال ها

بالا