[Taha Okla]

وعليكم السلام ورحمة الله وبركاته :

كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
   Dim strBinary As String = ToBinary(TextBox1.Text)   '  هنا عوضها بناتج عملية التحويل من العشري إلى الثنائي
   Dim iBinary As String = ""

   Dim iLeft As Integer = 10
   Dim iTop As Integer = 10

   Dim f As Font = New Font("Arial", 12, FontStyle.Bold)


   For i = 1 To Len(strBinary)
       Dim t1 As New TextBox
       t1.Left = iLeft
       t1.Top = iTop
       t1.Width = 25
       t1.Font = f
       t1.TextAlign = 2  '  2 = Center

       t1.Text = Mid(strBinary, i, 1)

       Me.Controls.Add(t1)
       iLeft += t1.Width       ' نجعل اليسار يزداد بمقدار عرض التكست الواحد من أجل العنصر التالي
   Next


End Sub

Private Function ToBinary(dec As Integer) As String
   Dim bin As Integer
   Dim output As String
   While dec <> 0
       If dec Mod 2 = 0 Then
           bin = 0
       Else
           bin = 1
       End If
       dec = dec \ 2
       output = Convert.ToString(bin) & output
   End While
   If output Is Nothing Then
       Return "0"
   Else
       Return output
   End If
End Function