Public Class aiken
Inherits System.Windows.Forms.Form
#Region " Codice generato da Progettazione Windows Form "
Public Sub New()
MyBase.New()
'Chiamata richiesta da Progettazione Windows Form.
InitializeComponent()
'Aggiungere le eventuali istruzioni di inizializzazione dopo la chiamata a InitializeComponent()
End Sub
'Form esegue l'override del metodo Dispose per pulire l'elenco dei componenti.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
'Richiesto da Progettazione Windows Form
Private components As System.ComponentModel.IContainer
'NOTA: la procedura che segue è richiesta da Progettazione Windows Form.
'Può essere modificata in Progettazione Windows Form.
'Non modificarla nell'editor del codice.
Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
Friend WithEvents TextBox2 As System.Windows.Forms.TextBox
Friend WithEvents TextBox3 As System.Windows.Forms.TextBox
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(aiken))
Me.TextBox1 = New System.Windows.Forms.TextBox
Me.TextBox2 = New System.Windows.Forms.TextBox
Me.TextBox3 = New System.Windows.Forms.TextBox
Me.SuspendLayout()
'
'TextBox1
'
Me.TextBox1.BackColor = System.Drawing.Color.White
Me.TextBox1.Location = New System.Drawing.Point(8, 8)
Me.TextBox1.MaxLength = 1
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Size = New System.Drawing.Size(24, 20)
Me.TextBox1.TabIndex = 0
Me.TextBox1.Text = ""
Me.TextBox1.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
'
'TextBox2
'
Me.TextBox2.BackColor = System.Drawing.Color.White
Me.TextBox2.Location = New System.Drawing.Point(40, 8)
Me.TextBox2.MaxLength = 1
Me.TextBox2.Name = "TextBox2"
Me.TextBox2.ReadOnly = True
Me.TextBox2.Size = New System.Drawing.Size(320, 20)
Me.TextBox2.TabIndex = 1
Me.TextBox2.Text = ""
'
'TextBox3
'
Me.TextBox3.BackColor = System.Drawing.Color.White
Me.TextBox3.Location = New System.Drawing.Point(8, 32)
Me.TextBox3.MaxLength = 1
Me.TextBox3.Multiline = True
Me.TextBox3.Name = "TextBox3"
Me.TextBox3.ReadOnly = True
Me.TextBox3.ScrollBars = System.Windows.Forms.ScrollBars.Vertical
Me.TextBox3.Size = New System.Drawing.Size(352, 64)
Me.TextBox3.TabIndex = 2
Me.TextBox3.Text = ""
'
'aiken
'
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(366, 100)
Me.Controls.Add(Me.TextBox3)
Me.Controls.Add(Me.TextBox2)
Me.Controls.Add(Me.TextBox1)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.Fixed3D
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.MaximizeBox = False
Me.Name = "aiken"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "Aiken"
Me.ResumeLayout(False)
End Sub
#End Region
Private Sub Form2_Closed(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Closed
Dim iniz As New iniz
iniz.Show()
End Sub
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
Select Case TextBox1.Text
Case "0"
TextBox2.Text = TextBox2.Text & "0"
TextBox3.Text = TextBox3.Text & "0000"
TextBox1.SelectAll()
Case "1"
TextBox2.Text = TextBox2.Text & "1"
TextBox3.Text = TextBox3.Text & "0001"
TextBox1.SelectAll()
Case "2"
TextBox2.Text = TextBox2.Text & "2"
TextBox3.Text = TextBox3.Text & "0010"
TextBox1.SelectAll()
Case "3"
TextBox2.Text = TextBox2.Text & "3"
TextBox3.Text = TextBox3.Text & "0011"
TextBox1.SelectAll()
Case "4"
TextBox2.Text = TextBox2.Text & "4"
TextBox3.Text = TextBox3.Text & "0100"
TextBox1.SelectAll()
Case "5"
TextBox2.Text = TextBox2.Text & "5"
TextBox3.Text = TextBox3.Text & "1011"
TextBox1.SelectAll()
Case "6"
TextBox2.Text = TextBox2.Text & "6"
TextBox3.Text = TextBox3.Text & "1100"
TextBox1.SelectAll()
Case "7"
TextBox2.Text = TextBox2.Text & "7"
TextBox3.Text = TextBox3.Text & "1101"
TextBox1.SelectAll()
Case "8"
TextBox2.Text = TextBox2.Text & "8"
TextBox3.Text = TextBox3.Text & "1110"
TextBox1.SelectAll()
Case "9"
TextBox2.Text = TextBox2.Text & "9"
TextBox3.Text = TextBox3.Text & "1111"
TextBox1.SelectAll()
Case Else
MsgBox("Immettere solo valori numerici", MsgBoxStyle.Critical, Me.Text)
End Select
End Sub
Private Sub Form2_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles MyBase.KeyPress
If e.KeyChar = Microsoft.VisualBasic.ChrW(27) = True Then MsgBox("")
End Sub
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
If e.KeyChar = Microsoft.VisualBasic.ChrW(27) = True Then Me.Close()
End Sub
Private Sub TextBox2_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox2.KeyPress
If e.KeyChar = Microsoft.VisualBasic.ChrW(27) = True Then Me.Close()
End Sub
Private Sub TextBox3_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox3.KeyPress
If e.KeyChar = Microsoft.VisualBasic.ChrW(27) = True Then Me.Close()
End Sub
End Class