fb:porticula NoPaste

Info / Hilfe Liste

Übersicht / Liste Neu

Datei hochladen Suche

Quellcode suchen

Dateidownload

BINARY-Beispiel

Uploader:	Schbezzy
Datum/Zeit:	18.05.2008 13:08:08

Dim Vorname As String*20

Dim Nachname As String*20

Dim Adresse As String*40

Dim PLZ As String*5

Dim Ort As String*40

Cls

Input "Gebe den Vornamen ein: ", Vorname

Input "gebe den Nachnamen ein:", Nachname

Input "Gebe die Adresse ein:  ", Adresse

Input "Gebe die PLZ ein:      ", PLZ

Input "Gebe den Ort ein:      ", Ort

Cls

Print "Datei wird erzeugt....."

Open "adressen.dp" For Binary As #1

 Put # 1,, Vorname

 Put # 1,, Nachname

 Put # 1,, Adresse

 Put # 1,, PLZ

 Put # 1,, Ort

Close # 1

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.