Habt ihr noch euren ersten selbstgeschriebenen Quellcode aus eurer Anfängerzeit?



  • Ne 1,44 Zoll Disk? LOL!

    Mein erster Code: http://www.fh-merseburg.de/~roesch/trash/1stcode.gif
    Auch C64.

    Bye, TGGC (Ein Jahr Helden)



  • TGGC schrieb:

    Ne 1,44 Zoll Disk? LOL!

    Ach F§%$... So lang ist das also schon her, dass ich die Dinger das letzte Mal benutzt habe. 🤡



  • Was ist ne 1,44 Zoll Disk?

    Ich kenne nur die 3 1/2 und die 5 1/4 Zoll.



  • Unix-Tom schrieb:

    Was ist ne 1,44 Zoll Disk?

    Sei mal nicht so kleinlich. Ob Zoll oder Megabyte - doch eh alles das selbe 🤡



  • Unix-Tom schrieb:

    Was ist ne 1,44 Zoll Disk?

    Ich kenne nur die 3 1/2 und die 5 1/4 Zoll.

    Du vergisst die guten alten 8"

    Erinnerst du dich nicht mehr?



  • Ich unterscheide 2 Phasen in meinem Programmiererleben.

    Die erste ist die C64/Amig500 Zeit (13-16 Jahre alt).

    Die Programme aus dieser Zeit habe ich nicht mehr.

    Danach kammen die PCs und ich in die Pubertät. Mädchen und Frauen wurden mir wichtiger.

    So mit 25-26 habe ich mir ein PC gekauft meine Kenntnisse aufgefrischt. Erste Programm in C und Turbo C (Quellcodes habe ich noch).



  • Unix-Tom schrieb:

    Was ist ne 1,44 Zoll Disk?

    Die gab es wohl nur in meiner Phantasie *aspirin-nachwerf*. Ne, ich meine schon die 3,5" mit 1,44MB 😉 .

    EDIT: Schon wieder vertippt...



  • Mein erstes Programm:

    10 BEEP
    

    Mein zweites Programm:

    10 BEEP
    20 GOTO 10
    

    Dann wurde das auf allen Rechnern im Computerraum ausgefuehrt.



  • Hat glaube ich jeder mal gemacht den Gag 😃 .



  • SeppSchrot schrieb:

    Mein erstes Listing steht auf Seite 32 des C64 Handbuchs und es besteht zu 50% aus Goto.

    Da ich das Handbuch noch habe, könnte man sagen, ich hab den Quelltext noch 😉

    Es sollte natürlich selbggeschriebener Code sein.

    Abgeschriebener Code gilt nicht. :p



  • Ok, da die meisten mit allersten Code
    [code]
    10 Print"Hello World!"
    [/code}

    meinen, weiten wir die Frage mal etwas aus.

    Also ab jetzt den Code in den ersten 6 Monate eurer Anfangszeit des Programmierens.

    Vielleicht kommen wir dann über die 5 Zeilen Programme und
    "aus dem Einleitungstutorial des Handbuchs abgeschrieben" hinaus. 🙂



  • Ich fang mal an, das ist ein Schnipsel meiner ersten Anfänge bezügl. Programmieren in GWBasic:

    [code]
    10 SCREEN 9
    15 CLS
    20 D = 1
    30 f = 1
    40 FOR ALPHA = 0 TO 400
    50 RESTORE
    70 READ X, Y
    80 GOSUB 190: P1 = bX: P2 = bY
    90 FOR I = 2 TO 5
    100 READ X, Y
    110 GOSUB 190
    115 P3 = bX: p4 = bY
    117 f = f + 1
    120 LINE (P1, P2)-(P3, p4), f
    130 NEXT I
    136 f = 8
    140 D = 1
    150 IF D < 0 THEN 170
    160 NEXT ALPHA
    170 END
    190 xe = X * COS(ALPHA) - Y * SIN(ALPHA)
    200 ye = X * SIN(ALPHA) + Y * COS(ALPHA)
    210 bX = D * xe + 320: bY = D * ye + 200
    220 RETURN
    230 DATA -120,120,120,120,120,-120,-120,-120,-120,120
    [/QUOTE]



  • program primzahlen;
    
    var ia,ie,i,k,pz,k0: word;
    
    function getkey: word; assembler;
    asm
    	mov	ah,00h
    	int	16h
    end;
    
    begin
      repeat
        write('Intervallanfang: '); readln(ia);
        write('Intervallende: '); readln(ie);
        for i:=ia to ie do
        begin
          pz:=i;
          for k:=2 to trunc(sqrt(i)) do
          begin
            if trunc(i/k)=i/k then
            begin
              pz:=0; k:=trunc(sqrt(i));
            end else pz:=i;
          end;
          if i=pz then write(i,' ');
        end;
        writeln; writeln;
        writeln('ENTER   weiter');
        writeln('ESC     Abbruch');
        repeat
          k0:=getkey;
        until (k0=283) or (k0=7181);
      until (k0=283);
    end.
    

    Bin mir allerdings nicht vollkommen sicher, ob es wirklich mein allererstes Programm war.



  • Turbo Pascal ist ein Traum an Programmiersprache wenn man die ersten Schritte so wie ich zuvor in GW-Basic gemacht hat.

    Aber irgendwie hatte GW-Basic flair, die IDE falls man überhaupt von so etwas sprechen kann war nämlich echt eine Zumutung, aber das Back to the roots Gefühl,
    das dadurch zustande kam hatte auf mich irgendwie einen deutlich höheren Nostalgiewert als unter Turbo Pascal.

    Turbo Pascal war da im Vergleich schon geradezu modern.

    Lang lang ists her. 🙂



  • Jap. Bei mir ists ca. ein Jahr her, hier ein Ergebnis der Übungen von Volkards Kurs (ich weiß nicht mehr, in welcher Reihenfolge die Aufgaben waren.wie man sieht, war ich <iostream.h>-verseucht):

    #include <iostream.h> //funzt net!
    
    bool istschj(int j)
    
    {
    
    if (j%4!=0) return false;
    
    if (j%100==0) return false;
    
    if (j%400!=0) return false;
    
    return true;
    
    };
    
    int wievield (int m, int jahr)
    
    {
    
    if (m==2 && istschj(jahr)==true) return 29;
    
    else return 28;
    
    if (m==1 || m==3 || m==5 || m==7 || m==8 || m==10 || m==12) return 31;
    
    if (m==4 || m==6 || m==9 || m==11) return 30;
    
    };
    
    bool gueltig (int d, int m, int j)
    
    {
    
    if (wievield(m,j)>=d  && d>0 && m<13 && m>0) return true;
    
    return false;
    
    };
    
    void main()
    
    {
    
    int jahr;
    
    int monat;
    
    int tag;
    
    while(true)
    
               {
    
               cout<<"Geben sie das zu ueberpruefende Jahr ein: ";
    
               cin>>jahr;
    
               cout<<endl<<"Geben sie den zu ueberpruefenden Monat ein: ";
    
               cin>>monat;
    
               cout<<endl<<"Geben sie den zu berprfenden Tage ein: ";
    
               cin>>tag;
    
               if (gueltig(tag,monat,jahr)==true) cout<<endl<<endl<<"Es handelt sich um ein gueltiges Datum!"<<endl<<endl<<endl;
    
               else cout<<endl<<endl<<"Es handelt sich nicht um ein gueltiges Datum!"<<endl<<endl<<endl;
    
               };
    
    };
    

    (irgendwie seh ich grad, meine Formatierung war ein graus...



  • Kommt erstmal mit der "IDE" auf'm Zefi klar. 😎

    Bye, TGGC (Wähle deine Helden)



  • Immerhin bootet er direkt in die IDE. 😉



  • TGGC schrieb:

    Kommt erstmal mit der "IDE" auf'm Zefi klar. 😎

    Bye, TGGC (Wähle deine Helden)

    Hast du dir schonmal GWBasic angeschaut?

    Auf dem C64 war ich dadurch geradzu Zuhause.
    Nur die Syntax war ein klein wenig anders, aber für ein Print und Co hat's gereicht.



  • SeppSchrot schrieb:

    Immerhin bootet er direkt in die IDE. 😉

    Das konnte der Original IBM PC auch.
    Der hatte nämlich ein integriertes PC-Basic von Microsoft.

    Und da die kompatiblen das nicht hatten,
    hat Microsoft einfach ein erweiterets PC-Basic
    als Software auf Disketten ausgeliefert, so daß man auch auf kompatiblen Rechnern ohne integriertes Basic darauf arbeiten konnte.

    Dieses Software PC-Basic war, na wer hätte es gedacht genau GW-Basic. 😃

    Aus dem GW-Basic wurde dann später QuickBasic, das wurde separat verkauft und hatte dazu noch einen Compiler mit dem man EXE Dateien erstellen konnte.
    Aus dem QuickBasic hat man wiederum ein abgespecktes QBasic gemacht,
    das wurde dann ab MS-Dos 5.0 bei MS-Dos mitgeliefert.
    Auf den Windows 9x/ME CDs ist QBasic ebenfalls drauf.



  • Noch etwas, falls hier jemand GWBasic oder QBasic einmal ansschauen will.

    GWBasic und QBasic funktionieren heute noch auch unter Windows 2000 und Windows XP.
    Das ausführen von GWBasic und QBasic Programmen ist also möglich,
    auch wenn einige Features wie z.b. das Ansprechen der Druckerschnittstelle unter W2K/WXP damit nicht mehr möglich sind.
    (kleine Korrektur, genaugenommen sind zwar maßgeblich die Drucker schuld,
    aber das kehren wir jetzt mal zur Vereinfachung unter den Tisch)


Anmelden zum Antworten