Personnellement, mes premier pas sont malheureusement perdu dans quelque disquette 5 1/4 maintenant illisible, en BASICA (Pas QBasic, mais bien Basic)..... C'étais en gros un ramassis d'élucubration d'un enfant de 7 ans suivant le livre de programmation qui venais avec sont PC Junior 8088 (Avec écran 16 couleur imaginé vous donc) .....
On parle du début des année 80 .....
Dans les année 90, j'ai appris la Pascal, un peux de C, et je fesais toujours du Basic (Du Qbasic a cette époque), langage peux puissant, mais c'étais ce que je connaissais le plus .... Je savais déjà a l'époque, que je ne serais jamais programmeur, quand je programmais c'étais par nécessité, pas par plaisir....
Déjà a l'époque, je naviguais sur Gopher/BBS, grâce a notre imposante infrastructure réseautique, qui se composais d'un modem 2400 baud, par la suite, internet arriva, et soudainement le monde semblais plus petit .... Je me souviendrais toujours de mes premiers site, sur Geocity, Altern.org, Lycos, Chez.com et compagnie .....
Un des premiers "Logiciel" que j'ai entièrement créé de mes mains, et qui étais, un tant soit peux intéressant, étais un logiciel d’insertion automatique d'image dans des fichiers HTML, ce fut un de mes projet de programmation qui a duré le plus longtemps, ajoutant régulièrement de nouvelle fonction, voici le code de la première version :
'*********************************************************
'* *
'* PROG DE TEMPLATE HTML *
'* PAR BENOIT RUEL *
'* HTMLMAKER@pure-chaos.virtualave.net *
'* *
'*********************************************************
'************************ VERSION 1.4.5 ************************
' Tout changement a ce programme est approuver d'avance si la raison de
' ce changement est d'am‚liorer le programme . Ma seule exigence est que
' vous me donnier le credit de l'id‚e originale et que vous n'enleviez pas
' les informations de cette entete .... S.V.P si vous modifier le programme
' informer moi au HTMLMAKER@pure-chaos.virtualave.net .... et je mettrer votre
' version sur mon site web avec tout le credit qui vous revient ..Merci
'---- PROCHAINE AMELIORATION POUR LA VERSION 1.5*
' ???????????????????????????????????????????????
'------ OPTIMISATION DE CERTAIN DEDOUBLEMENT DE TACHE ....
'------ support des nom long ... et pouvoir avoir plus de 556 photo par rep
' ************ DCLARATION DE VARIABLE *******************
DEBUT:
DIM PHOTO$(640)
DIM FILEN$(640)
PHOTO = 0
TEMP$ = "" 'VARIABLE DU LISTING
X = 0
PHOTO$ = ""
PHOTOMAX = 0
REP$ = ""
E$ = CHR$(34) 'CARACTERE " (GUILMET)
COL% = 0
COULEUR$ = ""
COLORTEXT$ = ""
REP% = 0 'REPONCE A LA QUESTION RENOMER LES FICHIERS
CARAC$ = "" 'CARACTERE DISTINCTIF POUR RENOMER FICHIERS
PICNBR% = 0 'NOMBRES DE PHOTO PAR PAGE ---- DONC VAR PHOTO / PICNBR% = NOMBRE DE PAGE A PRODUIRE
NBRPAGE% = 0 'NBR DE PAGE PRODUITE (NBRPAGE% + 1)
PICPAGE% = 0 'NBR DE D'IMAGE PAR PAGE
COUNT% = 0
NBR% = 1
GABER1$ = "" 'PREMIERE PARTIE DU GABER
GABER2$ = "" 'DEUXIEME PARTIE DU GABER
LISTCARAC$ = "" 'VARIABLE POUR ADITIONNER AU NOM DU FICHIER POUR CHANGER DE NOM
CARAC$ = "" 'VARIABLE POUR CONVERTION DU INTERGER TO STRING
ESPACE$ = CHR$(32) 'VARIABLE ESPACE
'************ PROGRAMME PRINCIPALE ***********************
CLS
'************** INSERTION DES GABER DANS LES VARIABLES *****************
OPEN "gaber1.htm" FOR INPUT AS #13
GABER1$ = INPUT$(LOF(13), 13)
OPEN "gaber2.htm" FOR INPUT AS #14
GABER2$ = INPUT$(LOF(14), 14)
OPEN "gabind1.htm" FOR INPUT AS #15
GABIND1$ = INPUT$(LOF(15), 15)
OPEN "gabind2.htm" FOR INPUT AS #16
GABIND2$ = INPUT$(LOF(16), 16)
CLOSE #13, #14, #15, #16
'*************** DEBUT DE L'INTERFACE **********************************
PRINT "CE PROGRAMME AUTOMATISE L'INSERTION D'IMAGE DANS UN FICHIER HTML"
PRINT "JE NE SUIS PAS RESPONSABLE DES PROBLEMES QUE CE PROGRAMME PEUX OCCASIONNER"
PRINT ""
PRINT "VERSION 1.5"
'************** PRISE DE REPERTOIRE **********************
PRINT ""
INPUT "ENTRER LE REPERTOIRE ACTIF (EX: \photo\ ETC...) :"; REP$
SHELL "CD\"
SHELL "CD " + REP$
CLS
'************ PRISE DU LISTING DU REPERTOIRE *************
SHELL "DIR >DIR.TEM"
OPEN "DIR.TEM" FOR INPUT AS #1
grosstempdir% = LOF(1)
PRINT groddyrmpdir%
INPUT "??"; Fin
REM if lof(1) < 32730
FILE$ = INPUT$(LOF(1), 1)
'********************** TRAITMENT DU LISTING ***************
FOR X = 1 TO LOF(1)
TEMP$ = MID$(FILE$, X, 4)
IF TEMP$ = " JPG" THEN
PHOTO = PHOTO + 1
DECA$ = MID$(FILE$, X - 8, 8)
PHOTO$(PHOTO) = LTRIM$(RTRIM$(DECA$))
FILEN$(PHOTO) = PHOTO$(PHOTO) + ".jpg"
ELSE
IF TEMP$ = " GIF" THEN
PHOTO = PHOTO + 1
DECA$ = MID$(FILE$, X - 8, 8)
PHOTO$(PHOTO) = LTRIM$(RTRIM$(DECA$))
FILEN$(PHOTO) = PHOTO$(PHOTO) + ".gif"
END IF
END IF
NEXT X
IF PHOTO = 0 THEN
PRINT "ERREUR ---- PAS DE PHOTO DANS LE REPERTOIRE CHOISI"
SLEEP 5
GOTO DEBUT
END IF
'************************ CHOIX DU NOMBRE DE PHOTO PAR REPERTOIRE **********
CLS
PRINT "IL Y A "; PHOTO; "PHOTO DANS CE REPERTOIRE . COMBIEN DE PHOTO PAR PAGE VOULEZ VOUS ?"
INPUT NBRPIC%
PICPAGE% = PHOTO / NBRPIC%
'***************************************************************************
PHOTO2 = PHOTO
NBRPIC2% = NBRPIC%
'***************************** CREATION DU MENU DE BAS DE PAGE *************
OPEN "MENU1.TEM" FOR OUTPUT AS #20
PRINT #20, "<CENTER>"
FOR Q = 1 TO PICPAGE%
CARAC2$ = STR$(Q)
LISTCARAC2$ = LTRIM$(RTRIM$(CARAC2$))
PRINT #20, "-<A HREF ="; E$; "LIST"; LISTCARAC2$; ".HTM"; E$; "> "; LISTCARAC2$; " </A>-";
NEXT Q
PRINT #20, "</CENTER>"
CLOSE #20
OPEN "MENU1.TEM" FOR INPUT AS #18
MENU$ = INPUT$(LOF(18), 18)
CLOSE #18
'***************************************************************************
FOR Z = 1 TO PICPAGE%
NBRPAGE% = NBRPAGE% + 1
'******************* CONVERTION DE LA VARIABLE POUR LA PAGE ************
CARAC$ = STR$(Z)
LISTCARAC$ = LTRIM$(RTRIM$(CARAC$))
'****************** CREATION DU FICHIER HTML **************************
OPEN "LIST" + LISTCARAC$ + ".htm" FOR OUTPUT AS #2
PRINT #2, GABER1$
PRINT #2, ""
FOR W = NBR% TO NBRPIC2%
IF W < PHOTO THEN
PRINT #2, "<CENTER><IMG SRC="; E$; FILEN$(W); E$; "></CENTER>"
PRINT #2, "<BR><BR>"
END IF
NEXT W
PRINT #2, MENU$
PRINT #2, GABER2$
NBR% = NBR% + NBRPIC%
NBRPIC2% = NBRPIC2% + NBRPIC%
CLOSE #1, #2, #3, #11, #12, #13, #14
NEXT Z
'********************************** CREATION DE PHOTOIND.HTML *************************
OPEN "PHOTOIND.HTM" FOR OUTPUT AS #10
PRINT #10, GABIND1$
PRINT #10, ""
PRINT #10, "<CENTER><H4>"
PRINT #10, MENU$
PRINT #10, "</H4></CENTER>"
PRINT #10, ""
PRINT #10, GABIND2$
CLOSE #10
'****************************** EFFACER LES TRACE **************************
SHELL "DEL DIR.TEM"
SHELL "DEL PAGE.TXT"
SHELL "DEL MENU1.tem"
'******************************* FIN DU PROGRAMME **************************
LOOP6:
CLS
REP% = 0
PRINT "TRAITEMENT DU REPERTOIRE TERMINER"
PRINT "VOULER VOUS TRAITER UN NOUVEAUX REPETOIRE ?"
INPUT "1-NON 2-OUI"; REP%
IF REP% = 0 THEN
PRINT "FAIT UN CHOIX !!"
SLEEP 5
CLS
GOTO LOOP6
ELSE
IF REP% = 1 THEN
ELSE
IF REP% = 2 THEN
GOTO DEBUT
ELSE
PRINT "REPONCE NON VALIDE"
SLEEP 5
GOTO LOOP6
END IF
END IF
END IF
LOCATE 20, 26: PRINT "FIN DU TRAITEMENT DES FICHIERS"
LOCATE 21, 31: PRINT "TOUT DROIT RESERV"
LOCATE 23, 28: PRINT "BRI enr."
LOCATE 24, 12: PRINT "EMAIL :HTMLMAKER@pure-chaos.virtualave.net"
'***************************************************************************
SHELL "CD\"
SHELL "CD qb"
SHELL "cd qb45"
Pas élégant pour 2 cenne, étais limité....Mais ça fonctionnais, je jouais dans le code 2-3 fois par année, et j'ai jouer dedans jusqu'en 1996, par la suite, je me suis intéresser au Perl, puis au PHP, qui étais pas mal plus adapter pour ce genre de travail ...
Quoi qu'il en soit, c'est le plus vieux code que j'ai écris, que je peux retrouver, je vous invite a en faire de même si vous avez du code a nous montrer .
Personnellement, mes premier pas sont malheureusement perdu dans quelque disquette 5 1/4 maintenant illisible, en BASICA (Pas QBasic, mais bien Basic)..... C'étais en gros un ramassis d'élucubration d'un enfant de 7 ans suivant le livre de programmation qui venais avec sont PC Junior 8088 (Avec écran 16 couleur imaginé vous donc) .....
On parle du début des année 80 .....
Dans les année 90, j'ai appris la Pascal, un peux de C, et je fesais toujours du Basic (Du Qbasic a cette époque), langage peux puissant, mais c'étais ce que je connaissais le plus .... Je savais déjà a l'époque, que je ne serais jamais programmeur, quand je programmais c'étais par nécessité, pas par plaisir....
Déjà a l'époque, je naviguais sur Gopher/BBS, grâce a notre imposante infrastructure réseautique, qui se composais d'un modem 2400 baud, par la suite, internet arriva, et soudainement le monde semblais plus petit .... Je me souviendrais toujours de mes premiers site, sur Geocity, Altern.org, Lycos, Chez.com et compagnie .....
Un des premiers "Logiciel" que j'ai entièrement créé de mes mains, et qui étais, un tant soit peux intéressant, étais un logiciel d’insertion automatique d'image dans des fichiers HTML, ce fut un de mes projet de programmation qui a duré le plus longtemps, ajoutant régulièrement de nouvelle fonction, voici le code de la première version :
Pas élégant pour 2 cenne, étais limité....Mais ça fonctionnais, je jouais dans le code 2-3 fois par année, et j'ai jouer dedans jusqu'en 1996, par la suite, je me suis intéresser au Perl, puis au PHP, qui étais pas mal plus adapter pour ce genre de travail ...
Quoi qu'il en soit, c'est le plus vieux code que j'ai écris, que je peux retrouver, je vous invite a en faire de même si vous avez du code a nous montrer .
Share this post
Link to post
Share on other sites