Was hast Du vor 10 Jahren programmiert?

Ich möchte aus Dariusz Aufruf folgen und schreiben, was ich vor 10 Jahren so getrieben hab.

Vor 10 Jahren habe ich meine Bundeswehrzeit hinter mich gebracht. Die Zeit zwischen Studium und Bund habe ich damit verbracht, Visual Basic 6 zu programmieren.

Ich hatte damals die Idee, ein Programm zur Registrierung von Webseiten in Suchmaschinen zu schreiben. Damals konnte man sein Taschengeld als “Webdesigner” oder “Webmaster” noch aufbessern. HTML war damals eben voll angesagt:

Code_HTML_For_Food

Heute hingegen kann man kaum jemanden hinterm Ofen damit hervorlocken. Ich brauchte also ein Tool, mit dem ich die Webseiten meiner Kunden in Suchmaschinen bekannt machte. Konkurrenzprodukte wie HelloEngines oder Promoware gibt’s sogar heute noch. Aber in Zeiten von google und bing .. wer braucht dann noch so Tools?

Ein früher Entwicklungsstand meines Tools “Suchmaschinen-Autopilot” sah so aus:

image

Jaja .. das Thema Quellcodeverwaltung war damals auch was dolles .. meist hab’ ich mit ZIP-Dateien die jeweiligen Arbeitsstände weggesichert. Backups wurden damals auf ZIP-Laufwerke gemacht! Hab meinen Paps gebeten, mal das alte ZIP-Laufwerk rauszukramen und per Parallelport an den alten Rechner zu verbinden. Per TeamViewer (sehr empfehlenswert!) hab ich dann die Daten ausgelesen und violá .. hier ist ein Teil des (Spaghetti-)Codes in VB (leider ohne Syntax Highlight):

Private Sub Start_Button_Click()
    If Label70.Caption = „Offline. Bitte stellen Sie eine Dfü-Verbindung zum Internet her!“ Then
    MsgBox „Bitte stellen Sie zuerst eine DFÜ-Verbindung zum Server her!“, vbCritical, „Wichtiger Hinweis!“
    ElseIf WebSite_Titel.Text = „“ Then
    MsgBox „Bitte geben Sie den Titel der WebSite an“, vbCritical, „Fehler“
    ElseIf WebSite_URL.Text = „“ Then
    MsgBox „Bitte geben Sie die URL der WebSite an“, vbCritical, „Fehler“
    ElseIf WebSite_Beschreibung_kurz.Text = „“ Then
    MsgBox „Bitte geben Sie eine Kurzbeschreibung Ihrer Homepage ein!“, vbCritical, „Fehler“
    ElseIf WebSite_Beschreibung_lang.Text = „“ Then
    MsgBox „Bitte geben die eine ausführliche Beschreibung Ihrer WebSite an!“, vbCritical, „Fehler“
    ElseIf Sprache.Text = „“ Then
    MsgBox „Bitte wählen Sie die Sprache Ihrer WebSite aus!“, vbCritical, „Fehler“
    ElseIf Frames.Text = „“ Then
    MsgBox „Bitte geben Sie an, ob Ihre WebSite Frames verwendet!“, vbCritical, „Fehler“
    ElseIf Javascript.Text = „“ Then
    MsgBox „Bitte geben Sie an, ob Ihre WebSite JavaScript beinhaltet!“, vbCritical, „Fehler“
    ElseIf K.Text = „“ Then
    MsgBox „Bitte wählen Sie eine Kategorie aus, die Ihrer WebSite entspricht“, vbCritical, „Fehler“
    ElseIf WebMaster_Name.Text = „“ Then
    MsgBox „Bitte geben Sie den Namen des Webmasters an!“, vbCritical, „Fehler“
    ElseIf WebMaster_EMAIL = „“ Then
    MsgBox „Bitte geben Sie die e-Mail-Adresse des Webmasters an!“, vbCritical, „Fehler“
    ElseIf WebMaster_Passwort = „“ Then
    MsgBox „Bitte geben Sie das Passwort des Webmaster für Suchmaschinen ein (frei wählbar)“, vbCritical, „Fehler“
    ElseIf Firma_Name = „“ Then
    MsgBox „Bitte geben Sie den Firmennamen ein“, vbCritical, „Fehler“
    ElseIf Firma_Straße.Text = „“ Then
    MsgBox „Bitte geben Sie die Straße, in der die Firmen ihren Sitz hat, an!“, vbCritical, „Fehler“
    ElseIf Firma_Nr = „“ Then
    MsgBox „Bitte geben Sie die Hausnummer an“, vbCritical, „Fehler“
    ElseIf Firma_Ort = „“ Then
    MsgBox „Bitte geben Sie den Ort an, in der die Firma ihren Sitz hat, an!“, vbCritical, „Fehler“
    ElseIf Firma_Telefon = „“ Then
    MsgBox „Bitte geben Sie die Telefonnummer der Firma ein!“, vbCritical, „Fehler“
    ElseIf Firma_EMAIL = „“ Then
    MsgBox „Bitte geben Sie die e-mail-adresse der Firma an“, vbCritical, „Fehler“
    ElseIf Land = „“ Then
    MsgBox „Bitte geben Sie das Land an, für die Ihre WebSite gemacht ist!“, vbCritical, „Fehler“
    Else
    TAB1.Visible = False
    TAB2.Visible = False
    TAB3.Visible = False
    TAB4.Visible = True
    ‚Abfrage, ob bereits eine Eintragung vorgenommen wurde
    If OK.ListCount = 0 Then
    AutoAnmeldung.Show
    End If
    End If
End Sub

In mühevoller Kleinarbeit habe ich dann die Anmeldeseiten der Suchmaschinen studiert und jede einzeln hart kodiert ins Programm aufgenommen. Was für ne Arbeit! Objektorientierung war damals auch noch kein Thema (gab’s das überhaupt schon 😉 ). Ich habe mich immer gewundert, was die Leute denn mit diesen Klassenmodulen wollten. Komisches Zeug.

Schreibe einen Kommentar

Deine E-Mail-Adresse wird nicht veröffentlicht. Erforderliche Felder sind mit * markiert