ESERCIZIO con visual basic 2010

[gimmi345]

ESERCIZIO

AIUTO è URGENTE

Inserisci da input un elenco di N Nomi utenti - Password e memorizzarli due strutture parallele.
Si consideri che la password deve rispettare le seguenti regole:
-Lunghezza >= 8 caratteri
-Almeno 2 caratteri maiuscoli
-Almeno 1 cifra numerica
-Non pi� di 2 caratteri consecutivi uguali
Si visualizzi l'elenco Nome utente - Password ordinato alfabeticamente per N.
questo è l'esercizio
questo è il mio codice voglio sapere come fare il controllo sulla password
DEVO FARE UN CONTROLLO PRIMA CHE INSERISCO LA PASSWORD

Public Class Form1
Const L = 50
Dim nomi(L - 1) As String
Dim password(L - 1) As String
Dim n As Integer
Dim i As Integer

Private Sub btncarica_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btncarica.Click
Dim i As Integer
Do
n = InputBox(" numero di studenti")
Loop Until n <= L
For i = 0 To n - 1
nomi(i) = InputBox("inserisci l'utente")
password(i) = InputBox("inserisci la password")
Next
For i = 0 To n - 1
lstutente.Items.Add(nomi(i))
lstpassword.Items.Add(password(i))
Next


End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim i, j As Integer
Dim salvan As String
Dim salvat As String
For i = 0 To ((n - 1) - 1)
For j = i + 1 To (n - 1)
If nomi(i) > nomi(j) Then
salvan = nomi(i)
nomi(i) = nomi(j)
nomi(j) = salvan
salvat = password(i)
password(i) = password(j)
password(j) = salvat
End If
Next
Next
i = 0
lstutente.Items.Clear()
lstpassword.Items.Clear()
Do While i < n

lstutente.Items.Add(nomi(i))
lstpassword.Items.Add(password(i))
i = i + 1
Loop
End Sub
End Class

gimmi345New Entry Messaggi: 6Iscritto il: 03 feb 2015, 15:53

Top

[oregon]

A parte che non c'è nulla di urgente, ma cosa è l'ultimo link che porta ad un altro forum dove hai scritto lo stesso problema?

[gimmi345]

eh si lo scritto anche su altro forum
perchè devo consegnare entro domani pomeriggio
sono riuscito solo a risolvere lunghezza dei caratteri
ma gli altri non ho proprio idea come risolverli

[oregon]

Di quale controllo parli?

[gimmi345]

quello di controllare se una stringa abbia 2 caratteri maiuscoli e un carattere numerico

[eziogsv]

Mah, da quanto scrivi sembrerebbe che stai frequentando una qualche scuola di informatica: onestamente a questo livello sarebbe meglio darsi da fare da sé che chiedere in giro: si impara meglio.

Ma poiché quando 50 anni fa andavo a scuola se mi passavano qualche dritta la cosa non mi faceva schifo per nulla, due dritte:

1) Caratteri maiuscoli : If Password(i) = Password(i).ToUpper....
2) Carattere numerico: If IsNumeric(Password(i))....

[eziogsv]

...........1) Caratteri maiuscoli : If Password(i) = Password(i).ToUpper....

Mmmmmmmm, ripensandoci non mi piace molto.

Select Case Asc(Password(i))
  Case 65 to 90         '65=ASCII di "A", 90=ASCII di "Z"
    ..... conta quanti sono
  Case Else
   ' ciccia
End Select