-
.Creare Un Eseguitore Proporzioni VB
Per creare questo programma servirebbe un pò di Conoscienza su come mettere oggetti in un form Visualbasic.
Benissimo, oggi vi insegnerò a creare un eseguitore di proporzioni, che vi troverà la x...
Create un nuovo form con visual basic e cercate di farlo in questo modo:SPOILER (clicca per visualizzare)
Modificate il nome del form in: esiguitore Proporzioni o come volete che si chiami...
Poi cliccate 2 volte il form e cancellate tutto il codice all'interno.
E mettete questo codice:SPOILER (clicca per visualizzare)CODICEPublic Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Label4.Visible = False
End Sub
Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
If CheckBox1.Checked = True Then
MaskedTextBox1.Text = "x"
MaskedTextBox1.ReadOnly = True
CheckBox3.Checked = False
CheckBox2.Checked = False
CheckBox4.Checked = False
CheckBox1.Checked = True
CheckBox1.Checked = True
CheckBox1.Checked = True
MaskedTextBox1.TextAlign = HorizontalAlignment.Center
Else
CheckBox1.Checked = False
MaskedTextBox1.TextAlign = HorizontalAlignment.Left
MaskedTextBox1.Text = ""
MaskedTextBox1.ReadOnly = False
CheckBox2.Checked = False
CheckBox3.Checked = False
CheckBox4.Checked = False
End If
End Sub
Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged
If CheckBox2.Checked = True Then
TextBox2.Text = "x"
TextBox2.ReadOnly = True
TextBox2.TextAlign = HorizontalAlignment.Center
CheckBox1.Checked = False
CheckBox4.Checked = False
CheckBox3.Checked = False
CheckBox2.Checked = True
CheckBox2.Checked = True
CheckBox2.Checked = True
Else
TextBox2.Text = ""
TextBox2.ReadOnly = False
TextBox2.TextAlign = HorizontalAlignment.Left
CheckBox1.Checked = False
CheckBox3.Checked = False
CheckBox4.Checked = False
End If
End Sub
Private Sub CheckBox3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox3.CheckedChanged
If CheckBox3.Checked = True Then
TextBox3.Text = "x"
TextBox3.ReadOnly = True
TextBox3.TextAlign = HorizontalAlignment.Center
CheckBox1.Checked = False
CheckBox2.Checked = False
CheckBox4.Checked = False
CheckBox3.Checked = True
Else
TextBox3.Text = ""
TextBox3.ReadOnly = False
TextBox3.TextAlign = HorizontalAlignment.Left
CheckBox1.Checked = False
CheckBox2.Checked = False
CheckBox4.Checked = False
End If
End Sub
Private Sub CheckBox4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox4.CheckedChanged
If CheckBox4.Checked = True Then
TextBox4.Text = "x"
TextBox4.ReadOnly = True
TextBox4.TextAlign = HorizontalAlignment.Center
CheckBox1.Checked = False
CheckBox2.Checked = False
CheckBox3.Checked = False
CheckBox4.Checked = True
Else
TextBox4.Text = ""
TextBox4.ReadOnly = False
TextBox4.TextAlign = HorizontalAlignment.Left
CheckBox1.Checked = False
CheckBox2.Checked = False
CheckBox3.Checked = False
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Label5.Visible = True
Button1.Text = "Trova x"
Label4.Visible = False
CheckBox1.Checked = False
CheckBox2.Checked = False
CheckBox3.Checked = False
CheckBox4.Checked = False
MaskedTextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
MaskedTextBox1.TextAlign = HorizontalAlignment.Left
TextBox2.TextAlign = HorizontalAlignment.Left
TextBox3.TextAlign = HorizontalAlignment.Left
TextBox4.TextAlign = HorizontalAlignment.Left
MaskedTextBox1.ReadOnly = False
TextBox2.ReadOnly = False
TextBox3.ReadOnly = False
TextBox4.ReadOnly = False
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If MaskedTextBox1.Text = "" Then
MsgBox("Inserisci un numero", vbCritical, "Messagio Di errore")
ElseIf TextBox2.Text = "" Then
MsgBox("Inserisci un numero", vbCritical, "Messagio Di errore")
ElseIf TextBox3.Text = "" Then
MsgBox("Inserisci un numero", vbCritical, "Messagio Di errore")
ElseIf TextBox4.Text = "" Then
MsgBox("Inserisci un numero", vbCritical, "Messagio Di errore")
End If
If MaskedTextBox1.Text <> "" Then
If TextBox2.Text <> "" Then
If TextBox3.Text <> "" Then
If TextBox4.Text <> "" Then
If MaskedTextBox1.Text = "x" Then
Label4.Visible = True
Label4.Text = "x = " & CInt(TextBox2.Text) * CInt(TextBox3.Text) / CInt(TextBox4.Text)
ElseIf CheckBox2.Checked = True Then
Label4.Visible = True
Label4.Text = "x = " & CInt(MaskedTextBox1.Text) * CInt(TextBox4.Text) / CInt(TextBox3.Text)
ElseIf TextBox3.Text = "x" Then
Label4.Visible = True
Label4.Text = "x = " & CInt(MaskedTextBox1.Text) * CInt(TextBox4.Text) / CInt(TextBox2.Text)
ElseIf TextBox4.Text = "x" Then
Label4.Visible = True
Label4.Text = "x = " & CInt(TextBox3.Text) * CInt(TextBox2.Text) / CInt(MaskedTextBox1.Text)
Else
MsgBox("Inserisci la x", vbCritical, "Messagio Di errore")
End If
End If
End If
End If
End If
If Label4.Text <> "Label4" Then
Button1.Text = "Copia x"
End If
TextBox5.Text = Label4.Text.Remove(0, 4)
If Button1.Text = "Copia x" Then
TextBox5.Select()
TextBox5.Copy()
End If
End Sub
Private Sub Button1_MouseDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button1.MouseDoubleClick
If Button1.Text = "Copia x" Then
Button1.Text = "Trova x"
End If
End Sub
Private Sub Button2_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.MouseHover
Label5.Visible = True
End Sub
Private Sub Button2_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.MouseLeave
Label5.Visible = False
End Sub
Private Sub Button1_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.MouseHover
If Button1.Text = "Trova x" Then
Label6.Visible = True
End If
If Button1.Text = "Copia x" Then
Label6.Visible = True
Label6.Text = "Copia il risultato"
End If
End Sub
Private Sub Button1_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.MouseLeave
Label6.Visible = False
End Sub
Private Sub MaskedTextBox1_MaskInputRejected(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MaskInputRejectedEventArgs) Handles MaskedTextBox1.MaskInputRejected
End Sub
End Class
In questo modo Creerete un eseguitore di proporzioni che vi troverà la x.
Edited by » Fire - 16/2/2012, 17:46. -
Pikachu 96.
User deleted
Oggi vi imparerò? aòd . -
.
Molto complicato prendere una calcolatrice e fare la stessa cosa in 1 minuto . -
.
Si ù.ù io faccio il programma LOL Giusto per far capire le basi Di visual Basic XD .