VB-32 : Add 2 matrices of size mXn

Write a VB application to add two matrices of size mXn and display the resultant matrix.

Give your applicationn a splashscreen also.

A)    Program Design : 

(B) Property(Controls Used) :

1. Label    : Caption - Rows in Matrix
2. Labe2  : Caption - Columns in Matrix
3. Label3    : Caption -Matrix 1
4. Label4    : Caption - Matrix 2
5. Label5    : Caption -Addition Matrix
6. TextBox1    :Text property should kept blank
7. TextBox2    :Text property should kept blank
8. Command Button1   : Caption - Set Rows and Columns
9. Command Button2  : Caption - Add Matrix
10. Grid1   : 
11. Grid2   : 
12. Grid3   : 

(C) Attaching Code to the Object :

(Code doesn't give here to get  a splashscreen  application )

Private Sub Command1_Click() Grid1.Rows = Text1.Text Grid1.Cols = Text2.Text Grid2.Rows = Text1.Text Grid2.Cols = Text2.Text Grid3.Rows = Text1.Text Grid3.Cols = Text2.Text End Sub

Private Sub Command2_Click() For i = 0 To Grid3.Rows - 1 For j = 0 To Grid3.Cols - 1 Grid1.Row = i Grid1.Cols = j Grid2.Row = i Grid2.Cols = j Grid3.Row = i Grid3.Cols = j Grid3.Text = Val(Grid1.Text) + Val(Grid2.Text) Next j Next i End Sub

Private Sub Grid1_KeyPress(KeyAscii As Integer) Grid1.Text = Grid1.Text + Chr(KeyAscii) End Sub

Private Sub Grid2_KeyPress(KeyAscii As Integer) Grid2.Text = Grid2.Text + Chr(KeyAscii) End Sub

================================

• Back to Home   &  VB

===========================================================