Senior Member
- Group
- Admin
- Posts
- 27,291
- Status
- Anonymous
|
|
Creare Un Eseguitore Proporzioni VBPer 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: 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: CODICE Public 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
|
|