I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
Here you go: function asc2bin ($str) { for($i = 0; $i < strlen($str); $i++) { $ret .= str_pad(decbin(ord(substr($str, $i, 1))), 8, "0", STR_PAD_LEFT); } return $ret; } håber du kan bruge ideen til vb :)
Denne funktion omregner et decimaltal til et binært tal.
Public Function Dec_2_Bin (v As String) As String Tal_Streng$ = "0123456789ABCDEF" tal = Val(v) slut = False Tekst$ = "" Do Until slut = True a = Fix(tal / 2) b = Fix(tal Mod 2) tal = a Tegn$ = Mid$(Tal_Streng$, Fix(b) + 1, 1) Tekst$ = Tegn$ & Tekst$ If tal = 0 Then slut = True Loop Dec_2_Bin = Tekst$ End Function
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.