 |
|
|
|
 |
Nightflowers
prog lover

Registered: Jan 2002
Location: Vallée des Vents Brûlants
|
|
|
moi je passe le concours de la douane bientot, mais je sia splus quand, faudrais que je retrouve ma convoc.
Pas de QCM pour moi, je vais avoir droit a un truc en informatique, un truc en francais, un autre en anglais et je sais plus quoi, bref je vais me planter, lol
EDIT: bon apres avoir remué l'enorme tas de papelards que j'ai chez moi (et oui, un gros tas, comme si quelqu'un voulais faire un feu en gros ) et voila ce que ca dit :
concours blabla de controleur operat. commerc.
28, 29 et 30 janv ( y'avais marqué en fevrier quand je m'etais inscrit, lol)
mardi 28 : sujet d'ordre général (3h00) (c'est a dire dissertation, exemple : Le désinteret pour la vie publique est-il un danger pour la democratie )
mercredi 29 : programmation pascal (faut savoir que je sais programmer qu'en visual basic, mais ca y'avais pas dans la liste de choix, j'ai pris pascal car ca ressemble un peu a la programmation sur calcu TI ) durée : 5h00 
jeudi 30 : commentaire ou resumé de texte (3h00) ca encore ca peux aller.
autant dire que si j'y vais pas c'est pareil
"accusé de reception a completer a detacher et renvoyer immediatement"
oups 
___________________

WAYS OF CONSCIOUSNESS On PARIS ONE (P1 Trance)
Every Saturday @ 4pm, Monday @ 8am + Thursday @ 0am (GMT+1)
OUT NOW ! : Axelle Roch - Serial Lovers (Nightflowers pres. Neurologik Remix) [MPDR092]
Also available :
A Boy And A Radio - Continuum (Nightflowers pres. Wild Symmetry Remix) [MPDR083]
Ness - Balloon (Nightflowers pres. Neurologik Dub) [MPDR063]
Last edited by Nightflowers on Jan-17-2003 at 15:31
|
|
Jan-17-2003 15:04
|
|
|
 |
 |
|
 |
 |
Nightflowers
prog lover

Registered: Jan 2002
Location: Vallée des Vents Brûlants
|
|
|
Jan-17-2003 16:54
|
|
|
 |
 |
_greggy_
SuperLoutre

Registered: Oct 2001
Location: Dans une rivière, telle une loutre
|
|
|
| quote: | Originally posted by Nightflowers
mercredi 29 : programmation pascal (faut savoir que je sais programmer qu'en visual basic, mais ca y'avais pas dans la liste de choix, j'ai pris pascal car ca ressemble un peu a la programmation sur calcu TI ) durée : 5h00 
|
Petit cours rapide de pascal
L'extrait de code suivant est en delphi (pascal objet)
| quote: |
procedure TForm1.ScruteurExecute(Sender: TObject);
begin
Liste_Fichiers.Clear;
nb_fichier := 0;
end;
|
une procedure ou fonction se note
procedure NomDeLaProcedure (param : TypeParam);
begin
end;
function NomDeLaFonction (param1, param2 : TParam1; param3 : TParam) : TypeParamSortie;
var
ma_variable : TypeParamSortie;
begin
result := ma_variable;
// NomDeLaFonction := ma_variable;
end;
Les 2 techniques pour renvoyer la valeur de sortie sont admises
| quote: |
procedure TForm1.ScruteurFichier(Sender: TObject; Nom: String);
begin
Liste_Fichiers.Items.Add(scruteur.GetNomFichier);
nb_fichier := nb_fichier +1;
end;
function Complete_Chaine_Num (chaine : string; longueur : integer) : string;
var
i : integer;
taille_chaine : integer;
begin
application.ProcessMessages;
taille_chaine := length (chaine);
for i:= 1 to longueur - taille_chaine do
begin
chaine := '0' + chaine;
end; // end for
Complete_Chaine_Num := chaine;
end; // Complete_Chaine_Num
procedure TForm1.Button1Click(Sender: TObject);
var
nom_fichier : string;
new_file : string;
i : integer;
str : string;
min, max : integer;
begin
scruteur.Dossier := source.Text;
scruteur.execute;
str := '';
for i:=1 to nb_fichier do
begin
nom_fichier := ExtractFileName (Liste_Fichiers.items[i-1]);
new_file := 'L_' + copy (nom_fichier, 4,4) + copy (nom_fichier, 9,3) + copy (nom_fichier, 13,2) + '.' + Complete_Chaine_Num (copy (nom_fichier, 18, length(nom_fichier) - 18 -3), 4) + '01.tif';
CopyFile (pchar(Liste_Fichiers.items[i-1]), pchar( destination.Text + '' + new_file), true);
Liste_Fichiers.Checked [i-1] := true;
Application.ProcessMessages;
end;
try
min := strtoint(val_min.text);
max := strtoint(val_max.text);
except on e :exception do
begin
showmessage ('les valeurs min et max sont des entiers');
exit;
end;
end;
for i:= min to max do
begin
new_file := 'L_' + copy (nom_fichier, 4,4) + copy (nom_fichier, 9,3) + copy (nom_fichier, 13,2) + '.' + Complete_Chaine_Num (inttostr(i) , 4) + '01.tif';
str := str + ' ';
Application.ProcessMessages;
end;
memo.lines.add (str);
memo.Lines.SaveToFile (destination.Text + '' + 'include');
ShowMessage ('Terminé');
end;
|
Les pieges du pascal :
if (condition1) then
begin
end // ATTENTION PAS DE ';' AVANT UN ELSE !!!!
else
begin
end;
Va sur le site : (tu y trouvera de bon lien; je suis moi meme membre de delphinautes)
Une bonne URL pour le delphi (donc le pascal)
NB : Désolé pour l'indentation
Si tu veux d'autres codes sources, ou des explications n'hésite surtout pas
___________________
NikklassTeam trip blog

basse qui tabasse ... apéro qui fracasse
basse qui tabasse ... ti ponch de Guada qui tabasse aussi
Like we say in France, tonight you don't send woods, you send the forest !
|
|
Jan-17-2003 16:55
|
|
|
 |
 |
Nightflowers
prog lover

Registered: Jan 2002
Location: Vallée des Vents Brûlants
|
|
|
Jan-17-2003 17:06
|
|
|
 |
 |
jdat
Jay Van Dat

Registered: Oct 2001
Location: I dont even know
|
|
|
Jan-17-2003 20:43
|
|
|
 |
 |
maxxyme
Mr. Discogs

Registered: Nov 2002
Location: near Paris, France
|
|
|
Jan-18-2003 13:22
|
|
|
 |
All times are GMT. The time now is 13:36.
Forum Rules:
You may not post new threads
You may not post replies
You may not edit your posts
|
HTML code is ON
vB code is ON
[IMG] code is ON
|
|
|
|
|
|
Contact Us - return to tranceaddict
Powered by: Trance Music & vBulletin Forums
Copyright ©2000-2026, Jelsoft Enterprises Ltd.
Privacy Statement / DMCA
|