المحوّل بلغة ⁦VB.NET⁩: النافذة والكود والاختبار

1' Part 1: this block runs when the button is clicked
2Private Sub ButtonConvert_Click(sender As Object, e As EventArgs) Handles ButtonConvert.Click
3    ' Part 2: four variables
4    Dim typed As String = TextNumber.Text
5    Dim fromBase As Integer
6    Dim toBase As Integer
7    Dim number As Integer
8
9    ' Part 3: which system is the typed number in?
10    If RadioFromDec.Checked Then
11        fromBase = 10
12    ElseIf RadioFromHex.Checked Then
13        fromBase = 16
14    Else
15        fromBase = 2
16    End If
17
18    ' Part 4: which system do we want?
19    If RadioToDec.Checked Then
20        toBase = 10
21    ElseIf RadioToHex.Checked Then
22        toBase = 16
23    Else
24        toBase = 2
25    End If
26
27    ' Part 5: read, write, show
28    number = Convert.ToInt32(typed, fromBase)
29    MessageBox.Show(Convert.ToString(number, toBase))
30End Sub