Turbo Pascal

Yo Geeks!

Comme j'ai déjà fait du TP durant ma jeunesse, je voudrais m'y remettre un peu. Qun aurait pas un manuel, papier ou électronique à me fournir? Je vous en débarrasse gratuitement!

Comme j'ai pas vraiment le goût d'apprendre un autre langage de prog pour tout de suite, essayez-vous pas!

Shit, Turbo Pascal c'est vieux! En gros c'est du Pascal alors tu serais bien mieux de partir avec du Delphi (c'est aussi du Pascal et beaucoup plus actuel).

Liste des compilateurs Pascal (plus ou moins génériques):

http://en.wikipedia.org/wiki/Pascal_(programming_language)#Compilers_and_interpreters

Pourquoi pas se mettre au "nouveau" Pascal ?

Delphi 2010 (Embarcadero Delphi) est dérivé de Object Pascal ....

Tes base devrais te servir un peux ....

Sinon dans les alternatives gratuite, y'a Virtual Pascal (http://vpascal.ning.com/) ....

Edit : Dru a été plus vite ;-) ...

oui mais comme manuel? C,est que je ne sais plus ce que j'ai fais des miens...

Il y a Free Pascal aussi, mais je suis pas trop sur si ca va bien. Tiens, si ca peut t'aider, j'ai pogne ca sur Google, c'est assez representatif je pense:

http://langpop.com/

Si tu veux regarder autre chose que le Pascal, le Python, C# et Java sont interessant en 2010. Python est plus facile, C# et Java plus rapide d'execution et sont capable d'etre compiles. Perso je prefere le C++, C et Lua, mais pour recommencer sans avoir de "buts" precis, je ne pense pas que ca vaille la peine de les apprendre juste pour le fun. Comme les autres ont dit, Turbo Pascal c'est pas mal mort.

Entk prestone, tu ma fais penser a mes début dans le merveilleux monde de l'informatique .... Et de ma première application que j'ai vendu sous licence (Quand même 4 copie) .....

En Qbasic 4.5.... C'étais en 1999, l'html et le web, étais pas encore super mainstream, et j'ai fais un logiciel pour générer une gallerie automatiquement, avec template et tout .... C'étais assez neat ... Ma essayer de retrouver le code.... sa va être comique .....

'*********************************************************

'* *

'* PROG DE TEMPLATE HTML *

'* PAR BENOIT RUEL *

'* HTMLMAKER@pure-chaos.virtualave.net *

'* http://pure-chaos.virtualave.net/ *

'*********************************************************

'************************ VERSION 1.3 ************************

'---- PROCHAINE AMELIORATION POUR LA VERSION 1.4*

' METRE LES LIEN ENTRE LES PAGE PRODUITES DURANT UNE SESSION

' ************ D CLARATION 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.3"

'************** 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

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%

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%

PRINT #2, "<CENTER><IMG SRC="; E$; FILEN$(W); E$; "></CENTER>"

PRINT #2, "<BR><BR>"

NEXT W

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.HTML" FOR OUTPUT AS #10

PRINT #10, GABIND1$

PRINT #10, ""

PRINT #10, "<CENTER><H4>"

FOR B = 1 TO NBRPAGE%

PAGEIND$ = STR$(

PAGEIND2$ = LTRIM$(RTRIM$(PAGEIND$))

PRINT #10, ; "-<A HREF ="; E$; "LIST"; PAGEIND2$; ".HTM"; E$; "> "; PAGEIND2$; " </A>-";

NEXT B

PRINT #10, "</H4></CENTER>"

PRINT #10, ""

PRINT #10, GABIND2$

CLOSE #10

'****************************** EFFACER LES TRACE **************************

SHELL "DEL DIR.TEM"

SHELL "DEL PAGE.TXT"

'******************************* 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 "http://pure-chaos.virtualave.net/ EMAIL :HTMLMAKER@pure-chaos.virtualave.net"

'***************************************************************************

REM SHELL "CD\"

REM SHELL "CD 1"

REM SHELL "1"

D'ailleur je comprend même pas ce que je veux dire par "METRE LES LIEN ENTRE LES PAGE PRODUITES DURANT UNE SESSION"....

D'ailleur je comprend même pas ce que je veux dire par "METRE LES LIEN ENTRE LES PAGE PRODUITES DURANT UNE SESSION"....

Moi aussi je serais intéressé par quelques sources d'information pour Delphi ! Shootez vos liens si vous en avez !

@+!

Nah, y'avais déja les link, je pense que j'ai juste mal exprimé ce que je voulais dire a l'époque.... De mémoire, la dernière affaire que je voulais implanter, c'étais qu'en créant chaque page, qu'il ne crée pas le lien de la page actuellement afficher (C'est dur a expliqué lol) ....

M'enfin, sa ma fait ben rire de retrouver ça, et mes veux projet PHP de la même époque ....

J'ai un livre de Delphi, mais y date de genre 6-7 ans (Dans le temp que c'étais encore Borland) .... Sinon, je pense pas que le livre soit assez actuel pour pouvoir en faire vraiment quelque chose avec le Delphi moderne....

Edit : Ha finalement j'avais fait une version 1.5 ! LOL .... avec une couple de bug fix en 2001, me souvient que c'étais pour un des client qui étais rendu avec des milliers de gallery sur cd ....