[Visual Basic] Criptazione tramite matrice

tenebre della notte

Nuovo Utente
22 Nov 2017
1
0
1
20
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
 
Discussioni simili
Autore Titolo Forum Risposte Data
felino Porting da Visual Basic a C# .NET Framework 3
A [Visual Basic] Frattali in 3 dimensioni Visual Basic 0
StephenSoftware [Visual Basic] Da VB6 a VB.NET Visual Basic 0
D [Visual Basic] [MS Access] query con parametro di testo Visual Basic 4
V [Visual Basic] Richiamare funzione su modulo per restituire list Visual Basic 0
A [Visual Basic] Trasformare stringa in ora Visual Basic 0
B [Visual Basic] Passaggio variabili da un progetto all'altro (Visual Studio 2017 C#/SQL) Visual Basic 0
A [Visual Basic] Consiglio sul datagridview Visual Basic 0
C [Visual Basic] Errore INSERT su DB MySQL (VB.Net) Visual Basic 4
P [Visual Basic] access sql estrarre id vendite x cli e articolo con data maggiore del recordset Visual Basic 2
italo_vb6 [Visual Basic] DirListBox Visual Basic 0
P [Visual Basic] Come riprodurre file avi caricati come risorsa con vb 10 Visual Basic 0
P [Visual Basic] Copiare file piu' grandi di 2 gb in vb6 senza usare filecopy,usando get e put Visual Basic 6
P Riproduzione avi file in una picture box da file .dll .ocx ed altri in visual basic 10 express Offerte e Richieste di Lavoro e/o Collaborazione 0
M [Visual Basic] Cambiare lo stato in checked delle checkbox richiamando dati dal database Visual Basic 6
M [Visual Basic] Creare checkbox dinamicamente in TabControl Visual Basic 1
N [Visual Basic] Dichiarare AxWebBrowser in che versione opera Visual Basic 0
M [Visual Basic] Cercare un file pdf all'interno di una cartella attraverso il valore di una txtbox Visual Basic 1
V [Visual Basic] ottenere info su sistema Visual Basic 1
V [Visual Basic] trovare versione di un .exe con vb6 Visual Basic 0
E connessione db in visual basic 2010 Visual Basic 1
S [Visual Basic] access 2010 click su pagina html Visual Basic 1
S [Visual Basic] AIUTO - CERCO GUIDA Visual Basic 0
K [Visual Basic] Stampa e modifica record non funziona più Visual Basic 0
I inserimento data in tabelle da visual basic MySQL 0
L Salve sto per iniziare il Visual Basic Visual Basic 1
Z Conversione codice da visual basic a visual.... .NET Framework 1
maxbossi Regolamento Regolamento forum Visual Basic - leggere con attenzione! Visual Basic 0
C Creare semplice timer in Visual Basic Visual Basic 0
Y Connessione Visual Basic con DataBase Access? MS Access 0
F Visual basic 2010 e excel 2007 .NET Framework 1
C [Visual Basic] Installare un programma con pacchetto di installazione Visual Basic 0
E [Visual basic 2008]Orologio Visual Basic 0
L guida o corso per imparare visual basic Visual Basic 0
G [VISUAL BASIC]caricare dati in un database da una console application Visual Basic 3
R Visual Basic ed Access Visual Basic 1
S Come si "moltiplica" un oggetto in Visual basic 6? Visual Basic 3
C Stampare con visual basic Visual Basic 0
M [Visual Basic] Conversione XLS in PDF, urgente! Programmazione 2
neo996sps [Visual Basic Express] Salvare i dati in un DB Access Programmazione 1
G Ricerca in Visual Basic Visual Basic 1
V Visual Basic Access97 - stampare su file PDF Visual Basic 0
F visual basic Visual Basic 0
T visual basic e mdb remoto Visual Basic 16
M [Visual Basic 6.0]Immagine di un bottone Programmazione 2
R visual basic su pocket pc Visual Basic 1
GENZIANA Manuale Visual Basic in italiano? Visual Basic 2
G Visual basic deallocazione istanza classe Visual Basic 1
G Visual basic deallocazione istanza classe Windows e Software 0
M Visual Basic: come aprire il pannello di controllo Visual Basic 6

Discussioni simili