Ciao Ragazzi
sono uno studente alle prese con la programmazione in visual basic, la prof questa volta si è divertita a darci un bel esercizio.
Ecco il testo del compito:
Un messaggio viene criptato inserendolo nel quadrante 4x5 in alto a sx di una matrice 8x10. Il quadrante viene specchiato nel quadrante 4x5 di dx e a questo punto si applica la simmetria orizzontale e si riempe tutta la matrice.
Il messaggio criptato si ottiene inviando i dati della matrice per colonna.
Vincoli: il messaggio deve avere lunghezza pari a 20 caratteri (spazi esclusi)
la mia testa ha creato questo listato:
Option Explicit
Dim V() As String
Dim F As String
Dim L As String
Dim C As String
Dim K As Double
Dim X As Integer
Dim I As Integer
Dim J As Integer
Dim M As Integer
Dim S As Integer
Dim Z As Integer
Private Sub Form_Load()
'Scrivo immissione testo da inserire
Do
F = InputBox(" INSERISCI FRASE ")
L = Len(F)
For K = 0 To L - 1
C = Mid(F, K, 1)
If C <> "0" Then
ReDim Preserve V(X)
V(X) = C
X = X + 1
End If
Next
'Scrivo vincolo <20
If X <> 20 Then
MsgBox ("Errore")
End If
'Fine Vincolo
' Continuazione programmazione se il vincolo è soddisfatto
'Matrice rettangolare di tipo 4x5
Loop Until X = 20
X = 0
For I = 0 To 3
For J = 0 To 4
M = V(X)
X = X + 1
Next
Next
S = 9
For I = 0 To 3
For J = 0 To 4
M(I, S) = M(I, J)
S = S - 1
Next
'Matrice rettangolare di tipo 8x10
S = 9
Next
Z = 7
For I = 0 To 7
For J = 0 To 9
M(Z, I) = M(I, J)
Z = Z - 1
Next
Z = 7
Next
'Scrivo Simmetria matriciale
For J = 0 To 9
For I = 0 To 7
'Risultato
T1_text = T1_text & M(I, J)
Next
Next
End Sub
ma non funziona uffa
grazie in anticipo a chi mi aiuta