Salve a tutti qualche giorno fa, seguendo la logica che si usa per convertire con carta e penna, ho fatto un convertitore da binario a decimale in VB...
Screen:
Codice Sorgente:
Download: http://www.evilshare.com/d89f9d12-d7...9-00a0c993e9d6codice:Public Class Form1 Dim bits128, bits64, bits32, bits16, bits8, bits4, bits2, bits1 As Integer Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click bits128 = TextBox1.Text bits64 = TextBox2.Text bits32 = TextBox3.Text bits16 = TextBox4.Text bits8 = TextBox5.Text bits4 = TextBox6.Text bits2 = TextBox7.Text bits1 = TextBox8.Text TextBox9.Text = 0 If Val(bits128) = 1 Then TextBox9.Text = Val(TextBox9.Text) + 128 End If If Val(bits64) = 1 Then TextBox9.Text = Val(TextBox9.Text) + 64 End If If Val(bits32) = 1 Then TextBox9.Text = Val(TextBox9.Text) + 32 End If If Val(bits16) = 1 Then TextBox9.Text = Val(TextBox9.Text) + 16 End If If Val(bits8) = 1 Then TextBox9.Text = Val(TextBox9.Text) + 8 End If If Val(bits4) = 1 Then TextBox9.Text = Val(TextBox9.Text) + 4 End If If Val(bits2) = 1 Then TextBox9.Text = Val(TextBox9.Text) + 2 End If If Val(bits1) = 1 Then TextBox9.Text = Val(TextBox9.Text) + 1 End If End Sub
Ovviamente con carta e penna so convertire anche da decimale a binario...ma non riesco a capire come potrei fare anke questo in VB...potreste darmi qualke aiuto?
E anche per convertire in esadecimale...GRAZIE !!![]()
![]()


Rispondi quotando
