fb:porticula NoPaste

Info / Hilfe Liste

Übersicht / Liste Neu

Datei hochladen Suche

Quellcode suchen

Dateidownload

Stupid Hello World

Uploader:	PMedia
Datum/Zeit:	19.09.2007 18:41:46

'Grundidee: Nemored

'ausgebaut von PMedia



Dim Text As String

Dim i As Integer

Dim Buchstabe As UByte

Dim Start As Double



text = "hello world!"



Start = Timer



For i = 1 To len(text)

  Do

     Locate 1, i

    buchstabe = rnd*256

    If buchstabe <> 7 then Print chr(buchstabe)

  loop until buchstabe = asc(mid(Text, i, 1))

  print mid(Text, i, 1);

Next

Print

Print str(Timer-Start)+ " Sekunden benötigt"



sleep

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.