Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
C# / VB.NET - Vb.net protezione programmi
Forum - C# / VB.NET - Vb.net protezione programmi

Avatar
Irvine (Normal User)
Pro


Messaggi: 86
Iscritto: 27/03/2010

Segnala al moderatore
Postato alle 16:35
Sabato, 27/03/2010
Salve a tutti, e da molto che girovago per il sito, e oggi finalmente ho deciso di iscrivermi, sono un programmatore ancora alla prime armi (principalmente in vb.net).
Sto creando un sistema per proteggere alcuni programmi che andrò a creare. Questo sistema deve richidere una key, effettuare determinati controlli e se corrisponde lasciare proseguire.
Questo è l'inizio del codice
Codice sorgente - presumibilmente VB.NET

  1. stringa = TextBox1.Text
  2.  
  3.         numero = Len(stringa)
  4.         If numero = 12 Then
  5.             x = 0
  6.             Do
  7.                 car(x) = stringa.Substring(x, x + 1)
  8.                 x = x + 1
  9.             Loop While x = 11
  10.                    Else
  11.             Label1.Text = "Codice Errato"
  12.         End If


e nelle dichiarazioni:
Codice sorgente - presumibilmente VB.NET

  1. Dim stringa As String
  2.     Dim car(11) As Char
  3.     Dim numero As Integer
  4.     Dim x As Integer


il problema che riscontro e che nn funziona il ciclo iterativo, infatti provando:
Codice sorgente - presumibilmente Plain Text

  1. Label1.Text =car(5)


non visualizza il contenuto ma rimane vuoto, sapete dirmi dove sbaglio.... ( PS: ho provato anche con un for)

PM Quote
Avatar
Alfonso (Ex-Member)
Guru


Messaggi: 688
Iscritto: 30/09/2009

Segnala al moderatore
Postato alle 19:40
Sabato, 27/03/2010
Loop Until x = 11

ciao

PM Quote
Avatar
Irvine (Normal User)
Pro


Messaggi: 86
Iscritto: 27/03/2010

Segnala al moderatore
Postato alle 19:49
Sabato, 27/03/2010
Testo quotato

Postato originariamente da Alfonso:

Loop Until x = 11

ciao



con Until mi da errore in:
Codice sorgente - presumibilmente Plain Text

  1. car(x) = stringa.Substring(x, x + 1)



ho provato a mettere
Codice sorgente - presumibilmente C# / VB.NET

  1. Loop Until x <> 11


ma mi da lo stesso problema  originale

Ultima modifica effettuata da Irvine il 27/03/2010 alle 19:50
PM Quote
Avatar
Alfonso (Ex-Member)
Guru


Messaggi: 688
Iscritto: 30/09/2009

Segnala al moderatore
Postato alle 20:05
Sabato, 27/03/2010
La cosa di cui mi sono subito accorto è che in partenza x=0 e poi loop while x=11 esce subito naturalmente.

Ora però vedo anche stringa.Substring(x, x + 1) che quando x=6 x+1=7 da errore essendo la stringa lunga 12.


Non so cosa tu voglia ottenere, non so dirti altro.

PM Quote
Avatar
Irvine (Normal User)
Pro


Messaggi: 86
Iscritto: 27/03/2010

Segnala al moderatore
Postato alle 10:27
Domenica, 28/03/2010
Testo quotato

Postato originariamente da Irvine:

Testo quotato

Postato originariamente da Alfonso:

Loop Until x = 11

ciao



con Until mi da errore in:
Codice sorgente - presumibilmente Plain Text

  1. car(x) = stringa.Substring(x, x + 1)



ho provato a mettere
Codice sorgente - presumibilmente C# / VB.NET

  1. Loop Until x <> 11


ma mi da lo stesso problema  originale



:hail:vero non me ne ero accorto, ero fissato che
(x, x + 1)
prelevava i valori dal carattere in posizione x a quello in posizione x+1, perfetto, grazie 1000, adesso funziona:
Codice sorgente - presumibilmente Plain Text

  1. car(x) = stringa.Substring(x, 1)


PM Quote