=================================
و يوجد كود في الدوت نت يحول مباشرة إلى باينري وهو :
فيصبح الكود أعلاه كـ التالي :
و يوجد كود في الدوت نت يحول مباشرة إلى باينري وهو :
كود :
Convert.ToString(dec, 2)فيصبح الكود أعلاه كـ التالي :
كود :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim strBinary As String = Convert.ToString(Long.Parse(TextBox1.Text), 2) ' هنا عوضها بناتج عملية التحويل من العشري إلى الثنائي
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قال صلى الله عليه وسلم:
«كلمتان خفيفتان على اللسان
ثقيلتان في الميزان،حبيبتان إلى الرحمن:
سبحان الله وبحمده، سبحان الله العظيم».
