Archief - VB.NET - variabelen binair weergeven

Het archief is een bevroren moment uit een vorige versie van dit forum, met andere regels en andere bazen. Deze posts weerspiegelen op geen enkele manier onze huidige ideeën, waarden of wereldbeelden en zijn op sommige plaatsen gecensureerd wegens ontoelaatbaar. Veel zijn in een andere tijdsgeest gemaakt, al dan niet ironisch - zoals in het ironische subforum Off-Topic - en zouden op dit moment niet meer gepost (mogen) worden. Toch bieden we dit archief nog graag aan als informatiedatabank en naslagwerk. Lees er hier meer over of start een gesprek met anderen.
.

.:KrusT:.

Legacy Member
Sinds korte tijd ben ik wa vb.net aan leren, en 'k ben nu wa bezig met bit shifting. Ik zou hiervoor zelf graag wa testjes schrijven. Is het mogelijk om vb een integer in een textbox binair weer te geven?

Alvast mercikes.
O

Obliv`

Legacy Member
vb.net heeft in ieder geval geen CDec() of .toString varianten voor iets naar binair om te zetten.
maar het is natuurlijk te doen als ge zelf een algoritme ervoor schrijft, aangezien da da nie zo moeilijk is om een geheel getal om te zetten naar een binair getal
denk da ge een functie schrijft met 10regels code da ge het al wel hebt

private function toBinary(intGetal as integer) as String
'declaratie
dim strBinair as string
...

'if intGetal MOD 2 = 0 then
....
else
...
end if
......

return strBinair

als ge dees nog wa verder uitbreidt komt ge er wel rap aan denk
groetjes
.

.:KrusT:.

Legacy Member
Bedankt Obliv'!
Wist het niet of er een functie was in vb.net die dit deed, blijkbaar niet.
Zal zelf een functieke schrijven dan.
O

Obliv`

Legacy Member
moest ge het nog nie hebbe, khad goesting om me nog is met vb.net bezig te houden :)
en heb dus mo rap een toBinary scriptje gemaakt :), tis wel console toepassing, maar moest ge het nodig hebbe, het binair omzet gedoe is toch apparte functie

here it is
Code: 
Module Module1

    Sub Main()
        'declaratie
        Dim strTitel As String = "ZET GEHELE GETALLEN OM IN BINAIRE GETALLEN"
        Dim intTeller, intGetal As Integer
        Dim strBinair As String

        'titel
        Console.WriteLine(strTitel)
        For intTeller = 1 To strTitel.Length
            Console.Write("-")
        Next
        Console.WriteLine()

        'getal inlezen
        Console.WriteLine()
        Console.Write("Welk getal wil je omzetten: ")
        intGetal = Console.ReadLine

        'resultaat drukken
        strBinair = toBinary(intGetal)
        Console.WriteLine("Binair: " & strBinair)
        Console.WriteLine()

        'sluiten
        For intTeller = 1 To strTitel.Length
            Console.Write("-")
        Next
        Console.WriteLine()
        Console.WriteLine("Druk op enter om verder te gaan...")
        Console.ReadLine()
    End Sub

    Private Function toBinary(ByVal intGetal As Integer) As String
        'declaratie
        Dim strBinair, strOmgekeerd As String
        Dim intRest, intTeller As Integer

        'lus
        Do While intGetal > 0
            intRest = intGetal Mod 2
            strBinair += intRest.ToString
            intGetal = intGetal \ 2
        Loop

        'getal omkeren
        For intTeller = strBinair.Length - 1 To 0 Step -1
            strOmgekeerd += strBinair.Substring(intTeller, 1)
        Next

        'waarde terug geven
        Return strOmgekeerd
    End Function
End Module
Het archief is een bevroren moment uit een vorige versie van dit forum, met andere regels en andere bazen. Deze posts weerspiegelen op geen enkele manier onze huidige ideeën, waarden of wereldbeelden en zijn op sommige plaatsen gecensureerd wegens ontoelaatbaar. Veel zijn in een andere tijdsgeest gemaakt, al dan niet ironisch - zoals in het ironische subforum Off-Topic - en zouden op dit moment niet meer gepost (mogen) worden. Toch bieden we dit archief nog graag aan als informatiedatabank en naslagwerk. Lees er hier meer over of start een gesprek met anderen.
Terug
Bovenaan