fb:porticula NoPaste

Info / Hilfe Liste

Übersicht / Liste Neu

Datei hochladen Suche

Quellcode suchen

Dateidownload

Byte-Umrechner

Uploader:	Siedlerchr
Datum/Zeit:	17.08.2007 17:18:01

'Version für 0.17

dim eingabe as string 'Variablen deklarieren,

dim as double gb,mb,tb 'Variablen deklarieren,

Color 2,0 'Farbe

Do





Print "Umrechner fuer Terrabyte, MegaByte und GigaByte in Kilobyte"

Print "-------------------------"

Print "Eingabe von ende bei Gigabyte beendet das Programm nach Tastendruck"

    Print "=========================" 'Zur Deko;)

Print "EINGABEN:"

Print "-------------------------"

Input "Terrabyte"; tb

Input "Gigabyte";eingabe 'das $ sagt aus, dass das ne text variable ist

    If eingabe="ende" Then Exit Do 'springt aus der do:loop-schleife hinten raus

    gb=Val(eingabe) 'wandelt eingabe$ in einen zahlenwert um und speichert diesen dann in der Zahlenvariable

Input "Megabyte";mb

Print "========================="

Print "ERGEBNISSE:"

Print "-------------------------" 'Berechnungen: Basis ist 1024

Print "Tb->Gb";tb*1024

Print "Tb->Mb";tb*1024*1024

Print "Tb->Kb";tb*1024*1024*1024

Print "Gb->Mb =";gb*1024

Print "Gb->Kb =";gb*1024*1024

Print "Mb->Kb =";mb*1024

sleep



cls 'nach jeder Runde leeren



Loop 'Schleife

Sleep 'Tastendruck

Impressum • Nutzungsbedingungen • Datenschutz

Microsoft, Windows, Windows NT, XBOX und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.