Création d'un logiciel de calcul matriciel sous Visual Basic

Résumé du document

Cours posant les bases du calcul matriciel et permettant de réaliser un logiciel de calcul. Ce logiciel est expliqué en détail et testé. Vous y trouverez également de nombreuses copies d'écran pour une meilleure compréhension. Document de 27 pages au format Word.

Extraits

[...] Cela étant fait pour une raison simple : le calcul matriciel ne nécessite pas d'avoir de grand nombre en résultat. Dans cette interface, nous pourrons, par conséquent, mettre cote à cote dans une matrice 3*3 sept nombres au maximum pour que le résultat soit facilement visible. 5)Boites de dialogue Windows : Les boites de dialogue Windows ont étés d'une grande utilité lors de la programmation de cette application car elles permettent à l'utilisateur d'avoir une grande aisance pour enregistrer où lire les fichiers enregistrés. [...]

[...] frmresulta.lbsigne = c (Close canal frmresulta.Caption = "Fichier sauvegardé & " " & frmprincipal.dlgopen.FileName frmresulta.Show frmresulta.cmdsave.Visible = False frmprincipal.dlgopen.FileName = Empty Exit Sub erreurouvrir: End Sub Public Sub position321() *For i = 6 To 8 frmresulta.Label1(i).Visible = False frmresulta.Label5(i).Visible = False *Next i *For i = 0 To 2 frmresulta.Label1(i).Left = 600 frmresulta.Label5(i).Left = 6000 *Next i *For i = 3 To 5 frmresulta.Label1(i).Left = 1400 frmresulta.Label5(i).Left = 6840 *Next i End Sub Public Sub positioncol1() *For i = 0 To 8 frmresulta.Label1(i).Visible = False If i = 3 Or i = 4 Or i = 5 Then frmresulta.Label1(i).Visible = True frmresulta.Label5(i).Visible = False If i = 3 Or i = 4 Or i = 5 Then frmresulta.Label5(i).Visible = True *Next i End Sub Public Sub positioncol2() *For i = 0 To 8 frmresulta.Label3(i).Visible = False Cette ligne donne l'intitulé du document en donnant le chemin d'accès et le nom d'un fichier en lecture. Cela enlève la bouton Save de la feuille de résultat. Les commandes position ont pour but de placer les valeurs dans la feuille de résultat en fonction des types de matrices insérées dans la feuille de saisie. Les options 321 et col1 positionnent les matrices comme des matrices 3*2 et des matrices colonne (utilisation pour une addition et une soustraction de deux matrices colonne et 3*2). [...]

[...] Les deux premières lettres étant l'indication de la matrice M1 pour la matrice 1 et M2 pour la matrice 2. End Sub Public Sub M133() *For i = 0 To 8 matrice(i) = frmmatrice.Text1(i).Text *Next i nom1 = "matrice End Sub Public Sub M2col() *For i = 3 To 5 matrice2(i) = frmmatrice.Text1(i).Text *Next i nom2 = "matrice colonne" End Sub Public Sub M223() *For i = 0 To 5 matrice2(i) = frmmatrice.Text1(i).Text *Next i nom2 = "matrice End Sub Public Sub M233() *For i = 0 To 8 matrice2(i) = frmmatrice.Text1(i).Text *Next i nom2 = "matrice End Sub Public Sub addition() *For i = 0 To 8 frmresulta.Label5(i) = matrice(i) + matrice2(i) *Next i frmresulta.Show End Sub Public Sub multiplication() Les seconds membres déterminent le type de la matrice : col pour une matrice colonne, 23 pour une matrice 3*2 et 33 pour une matrice 3*3. [...]

[...] Le dernier select case a pour but de replacer la deuxième matrice en fonction de son type (utilisé pour la multiplication avec une matrice 3*3). 5)Module : Public nom1, nom2 As String Public matrice(8) As Double Public matrice2(8) As Double Public resultat(8) As Double Public Sub M1col() *For i = 3 To 5 matrice(i) = frmmatrice.Text1(i).Text *Next i nom1 = "matrice colonne" End Sub Public Sub M123() *For i = 0 To 5 matrice(i) = frmmatrice.Text1(i).Text *Next i nom1 = "matrice Les variables nom et nom2 déterminent respectivement le type de la matrice 1 et 2. [...]

[...] *Si nous sommes dans le cas ou la matrice 1 est une matrice 3*3 et la matrice 2 est une matrice donc il n'est pas possible de sélectionner l'addition ni la soustraction. Le clique sur le menu 3*2 (bouton mnu32 ouvre la feuille de saisie des matrices et lui affecte le nom Matrice 3*2 la suite concerne le positionnement des textbox de la *For i = 0 To 2 frmmatrice.Text1(i).Left = 600 *Next i *For i = 3 To 5 frmmatrice.Text1(i).Left = 2760 *Next i frmmatrice.Text1(0).Top = 840 frmmatrice.Text1(1).Top = 1440 frmmatrice.Text1(2).Top = 2040 frmmatrice.Text1(3).Top = 840 frmmatrice.Text1(4).Top = 1440 frmmatrice.Text1(5).Top = 2040 a = 2 If b = 1 Then a = 4 End Sub Private Sub mnu33_Click() frmmatrice.Show frmmatrice.Caption = "Matrice b = 1 End Sub Private Sub mnuaddition_Click() signe = "Addition" frmresulta.lbsigne = frmresulta.Show End Sub Private Sub mnucolonne_Click() frmmatrice.Show frmmatrice.Caption = "Matrice colonne" *For i = 0 To 8 frmmatrice.Text1(i).Visible = False If i = 3 Or i = 4 Or i = 5 Then frmmatrice.Text1(i).Visible = True *Next i a = 1 If b = 1 Then a = 3 End Sub feuille de saisie pour une matrice3*2. [...]