หลักการทั่วไป ในการแปลงเลขฐานสิบเป็น ฐานสอง มีดังนี้

สมมุติ 18 >>> ฐานสอง วิธีทำ เอาสองหารไปเรื่อย ๆ จนถึง 0

    2/18      เศษ     0
    2/9        เศษ     0
    2/4        เศษ     1
    2/2        เศษ    0
    2/1        เศษ    1
    2/0        เศษ    0
นำคำเศษที่ได้ ไล่ ลำดับจากล่าง ขึ้นบนในที่นี้จะได้ 18 ฐานสิบ >>> 010100 ฐานสอง

1. ออกแบบหน้าจอโปรแกรมดังรูป

2. ดับเบิ้ลคลิกที่ปุ่ม OK แล้วเขียนคำสั่งตามข้างล่างนี้

   Private Sub BtnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnOK.Click

   Dim result As String = ""
   Dim num1 As Int16
   Dim j As Int16
   num1 = TextBox1.Text
   Try
      Do
         j = num1 Mod 2
         num1 = Int(num1 / 2)
         result &= j
      Loop Until num1 <= 0
      Label1.Text = StrReverse(result)
   Catch ex As Exception
      MsgBox(ex.Message)
   End Try

   End Sub

3. ดับเบิ้ลคลิกที่ปุ่ม Cancel แล้วเขียนคำสั่งตามข้างล่างนี้

Private Sub BtnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnCancel.Click

   TextBox1.Clear()
   Label1.Text = ""

End Sub
------------------------------------------------------------------------------------------