• 0
Sign in to follow this  
Followers 0
Elmo

Vos premier pas en programmation .....

Question

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 .

Share this post


Link to post
Share on other sites

0 answers to this question

There have been no answers to this question yet

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0