Dubbio su un programma creato con VisualBasic.Net

Mixx

Utente Attivo
105
0
Prima di dire il mio problema volevo dire che sto programmando con VisualBasic.Net che sarebbe Visual Basic 2010 express?
Esiste anche un Visual Basic senza il .Net?
Ora veniamo al mio problema.
Questo è il programma che ho creato:

Public Class Form1 Dim variabile As Integer


Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
If TextBox1.Text = "password" Then
Button1.Visible = True
Button2.Visible = True
Button3.Visible = True
Button4.Visible = True
Button5.Visible = True
Button6.Visible = True
Button7.Visible = True
Button8.Visible = True
Button9.Visible = True
Button10.Visible = True
Button12.Visible = True
Button13.Visible = True
Button14.Visible = True
Button11.Visible = False
TextBox1.Text = ""
TextBox1.PasswordChar = ""
End If
If TextBox1.Text <> "password" Then
MsgBox("Password Errata!", MsgBoxStyle.Critical, "Attenzione")
End If
End Sub


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Text = TextBox1.Text + "1"
End Sub


Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox1.Text = TextBox1.Text + "2"
End Sub


Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
TextBox1.Text = TextBox1.Text + "3"
End Sub


Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
TextBox1.Text = TextBox1.Text + "4"
End Sub


Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
TextBox1.Text = TextBox1.Text + "5"
End Sub


Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
TextBox1.Text = TextBox1.Text + "6"
End Sub


Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
TextBox1.Text = TextBox1.Text + "7"
End Sub


Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
TextBox1.Text = TextBox1.Text + "8"
End Sub


Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
TextBox1.Text = TextBox1.Text + "9"
End Sub


Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
TextBox1.Text = TextBox1.Text + "0"
End Sub


Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
variabile = Val(TextBox1.Text)
TextBox1.Text = ""
End Sub


Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click
TextBox1.Text = Val(TextBox1.Text) + variabile
End Sub


Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click
TextBox1.Text = ""
End Sub
End Class
Se guardate bene ho programmato che quando metto nel TextBox1.text la parola password entra senza problemi.
E ho aggiunta la funzione che se si sbaglia la password compare un msgbox.
Il problema sta nel fatto,che quando a fare il debug,quando metto la password errata va tutto bene,ma se metto quella giusta compare sia la calcolatrice ma anche il messaggio di sistema che io avevo solo impostato quando dovevo sbagliare password.
Spero di essermi fatto capire XD
Grazie in anticipo :D
 
M

Mursey

Ospite
E' l'istruzione TextBox1.Text = "" che rende vero il controllo If TextBox1.Text <> "password" Then
se metti :

Else
MsgBox("Password Errata!", MsgBoxStyle.Critical, "Attenzione")

nel primo if e' meglio.
 
Ultima modifica da un moderatore:

Mixx

Utente Attivo
105
0
E' l'istruzione TextBox1.Text = "" che rende vero il controllo If TextBox1.Text <> "password" Then
se metti :

Else
MsgBox("Password Errata!", MsgBoxStyle.Critical, "Attenzione")

nel primo if e' meglio.
Scusa non capisco siccome non conosco il comando Else.
Comunque ho provato così

If TextBox1.Text = "password" Then
Else : MsgBox("Password Errata!", MsgBoxStyle.Critical, "Attenzione")
Button1.Visible = True
Button2.Visible = True
Button3.Visible = True
Button4.Visible = True
Button5.Visible = True
Button6.Visible = True
Button7.Visible = True
Button8.Visible = True
Button9.Visible = True
Button10.Visible = True
Button12.Visible = True
Button13.Visible = True
Button14.Visible = True
Button11.Visible = False
TextBox1.Text = ""
TextBox1.PasswordChar = ""
End If
End Sub

Perchè conviene meglio scrivere l'ultimo codice nello stesso if?Facendo così non c'è il codice della password diversa (<>)
Però facendo così,anche se metto una password errata,una volta che chiudo il messaggio d'avvio compare la calcolatrice,quindi non ho risolto.
Aspetto risposte :)
 

lorigio

Utente Attivo
817
238
CPU
Athlon II x3 435 With Noctua NH-D14
Scheda Madre
Asus M5A99X EVO AM3+
HDD
1TB + 160gb + WD My Passport Essential 500gb
RAM
Kingston ddr3 9-9-9-24 6gb 1333mhz
GPU
Gigabyte 5670 790mhz
Monitor
Samsung 22 pollici P2270HD
PSU
Corsair 400watt
Case
Cm 690 II advanced
OS
Windows 7 32 bit
Devi usare else come ha scritto Mursey
else sta ad indicare "altrimenti" e viene eseguito se nessuna condizione if viene soddisfatta
 

Mixx

Utente Attivo
105
0
Ho risolto
Button14.Visible = True
Button11.Visible = False
TextBox1.Text = ""
TextBox1.PasswordChar = ""
Else : MsgBox("Password Errata!", MsgBoxStyle.Critical, "Attenzione")
 
M

Mursey

Ospite
if condizione then
____codice nel caso la condizione e' verificata
else
____codice nel caso la condizione non e' verificata
end if
 

Mixx

Utente Attivo
105
0
Aprofitto questo topic per non crearne un altro.
Mi è capitato più volte di mettere una variabile su un form e poi doverla utilizzare anche per un ipotetico Form2 però non saprei come fare.
Per esempio
Form1
Variabile=inputbox("Come ti chiami""Domanda"ecc)

Poi voglio usare la stessa variabile su un altrio form, ma ovviamente non lo trova, come risolvo?
Grazie.
 
M

Mursey

Ospite
Se la variabile e' legata logicamente al Form (tipo secondo nome del form) la fai diventare una proprieta' o la rendi pubblica a quel punto accedi come Form1.Variabile
Se la variabile e' invece un valore globale da condividere con tutti puoi usare un modulo comune da associare alla solution.
 

Entra

oppure Accedi utilizzando