Binary Conversion VB.Net Program
Public Class Form1 Dim a As Integer Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim a As Integer a = CInt(TextBox1.Text) If a = 0 Then TextBox2.Text = Binary() End If End Sub Function Binary() As String Dim cbin As Integer Dim result As String = "" Dim remainder As Integer cbin = Convert.ToInt32(TextBox1.Text) a = 0 If cbin 0 Then While cbin 0 remainder = cbin Mod 2 If remainder = 1 Then a += 1 End If result = CStr(remainder) & result cbin = cbin \ 2 End While Else result = cbin End If Return result End Function Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click TextBox3.T...