|
Form Görüntüsü
Kod
Public Class Form1
Dim a(2, 2), b(2, 2), c(2, 2)
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim i, j
TextBox1.Text = ("")
For i = 0 To 2
For j = 0 To 2
a(i, j) = Val(InputBox("a matrisi", i & "," & j & ".elemanın değeri:", "1"))
TextBox1.Text = TextBox1.Text + " " & a(i, j)
Next
TextBox1.Text = TextBox1.Text & Chr(13) & Chr(10)
Next
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim i, j
TextBox2.Text = ("")
For i = 0 To 2
For j = 0 To 2
b(i, j) = Val(InputBox("a matrisi", i & "," & j & ".elemanın değeri:", "1"))
TextBox2.Text = TextBox2.Text + " " & b(i, j)
Next
TextBox2.Text = TextBox2.Text & Chr(13) & Chr(10)
Next
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Dim i, j, k, x
Label3.Text = "AxB matrisi"
TextBox3.Text = TextBox3.Text + ""
For i = 0 To 2
For j = 0 To 2
x = 0
For k = 0 To 2
x = x + a(i, k) * b(k, j)
Next
c(i, j) = x
Next
Next
For i = 0 To 2
For j = 0 To 2
TextBox3.Text = TextBox3.Text & " " & c(i, j)
Next
TextBox3.Text = TextBox3.Text & Chr(13) & Chr(10)
Next
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim i, j
Label3.Text = "A+B matrisi"
TextBox3.Text = ""
For i = 0 To 2
For j = 0 To 2
c(i, j) = a(i, j) + b(i, j)
TextBox3.Text = TextBox3.Text & " " & c(i, j)
Next
TextBox3.Text = TextBox3.Text + Chr(13) + Chr(10)
Next
End Sub
End Class
|
