dz% = 0
  stw# = 0.5
  for i =Len(dual$) to 1 step -1
    stw#=stw#*2
    dz%=dz%+Val(Mid$(dual$,i,1))*stw#
    cls
    print
    print
    print "Geben Sie eine Zahl ein!"
    input "", dual$
    print stw#
  next
end

Web: http://www.vbtricks.de.vu/

VBTricks.de.vu. Meine Webseite zu VB und anderen Programmiersprachen. Verschiedene fortgeschrittene OCXe und komplette Projekte sind im Sourcecode verf?gbar.