| Questions et Réponses | Forums agrégés |
  |
|
| Kiloki » Développement » Pascal | ||||||||||||||
|
Animaux
Auto/Moto Brico/Déco Cuisine High-tech Informatique Jeux vidéo Loisirs et Divertissements Mode, People et Beauté Musique Paranormal Santé Sciences Sports Téléphonie mobile Tourisme
Forums de discussion dans la catégorie "Développement / Pascal"
[Flash Pascal] intégration de bmp
2012-05-19 02:26:07 J'ai tenté ça :
Code :
Sélectionner tout -
Visualiser dans une fenêtre à part
12345678910111213141516171819202122232425262728293031323334353637
uses Flash8;
{$FRAME_WIDTH 686}
{$FRAME_HEIGHT 324} //dimensions de l'image
{$BITMAP nom 'chrono.bmp'}
type
TMovieclip = class(MovieClip)
constructor Create;
end;
function loadBitmap(id: string): BitmapData external BitmapData.loadBitmap;
constructor ...[Dev-Pascal] Tutoriel d'installation de Dev-Pascal en français sous Windows 7 2012-05-19 02:26:06 Tutoriel : Installation de Dev-Pascal en françaissous Windows 7
Bonjour,
L'environnement de développement Dev-Pascal, bien que daté, est simple à installer et à utiliser, ce qui en fait un bon choix pour débuter en Pascal.
De plus, une version traduite en français de l'éditeur est disponible.
Le seul inconvénient est que Dev-Pascal est accompagné d'une version antédiluvienne du compilateur Free Pascal et qu'il faut donc passer par l'installation d'une version à jour du compilateur.
Toutes les étapes d'installation sont ...[Lazarus] Keypress pas détecté 2012-05-18 18:31:24 Bonjour, je travaille en Pascal avec le logiciel Lazarus pour créer un jeu type 'mario'
Pour gérer le déplacement du personnage j'utilise le clavier d'ou l'utilisation de la méthode :
Citation:
procedure TForm1.FormKeyPress(Sender: TObject; var Key: char);
begin
if (key = 'q') and (not Caribou.fkeydroite) then
begin
Caribou.fkeygauche := True;
...TProcess attente programme lancé 2012-05-17 21:36:21 Bonsoir, j'ouvre une application à partir d'une autre.
J'utilise le code suivant :
Code :
Sélectionner tout -
Visualiser dans une fenêtre à part
1234567891011
procedure TForm1.LaunchConverter(Path: string);
var
AProcess: TProcess;
begin
AProcess := TProcess.Create(nil);
AProcess.CommandLine := ExtractFilePath(Application.Exename)+'Test_Params.exe ' + Path;
AProcess.Options := AProcess.Options + [poWaitOnExit];
...[Lazarus] Optimisation du poids d'une appli déjà strippée 2012-05-17 15:26:26 Bonjour,
J'ai une appli, qui une fois strippé (d'après la méthode de la FAQ), fait 6Mo.
Je voulais savoir si cette taille vous semblait gérable, et comment réduire le poids?
Faut-il créer plus d'objets dynamiquement?
Merci de vos conseils ![Lazarus] Ordonnancement et doc sur les événements/composants 2012-05-17 15:26:23 Bonjour.
Je me mets à Lazarus, donc je suis d'une certaine manière un débutant. Cela dit, je connais le Pascal, et le développement objet mais pas Delphi, ça fait 18 ans que je développe (entre autres) en Powerbuilder.
Bon.
J'ai installé LZ et je parcours depuis quelques jours des tas de docs un peu partout, mais j'ai un souci avec des infos de base que je ne trouve pas.
Pour ma première appli, j'ai besoin de champs qui sont ...[Flash Pascal] Dégradé radial 2012-05-17 06:11:18 Je me suis essayé sur un dégradé radial sur un exemple simple :
Code :
Sélectionner tout -
Visualiser dans une fenêtre à part
1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950
program degraderadial;
uses Flash8,Math;
{$FRAME_WIDTH 400}
{$FRAME_HEIGHT 400}
type
TMovieclip = class(MovieClip)
constructor Create;
procedure circle(r,cx,cy:double);
...[Flash Pascal] Mise en forme d'un texte 2012-05-17 06:11:17 re à part
1234567891011121314151617181920212223242526272829303132333435363738394041
program ExPGCD;
// Exemple Flash-Pascal
{$FRAME_WIDTH 600}
{$FRAME_HEIGHT 400}
{$BACKGROUND $eeeeee}
uses
Flash8;
var
f : TextFormat;
t : TextField;
procedure Ecrire(s: string);
begin
t.text:=t.text+s;
t.text:=t.text+#13;
end;
function PGCD (a, b: Integer): Integer;
begin
Ecrire ('a='+IntToStr(a));
Ecrire ('b='+IntToStr(b));
if b = 0 then result := a
else result := PGCD (b, a mod b);
end;
begin
f:=TextFormat.Create('Tahoma',14);
f.color:=$111111;
f.bold:=True;
t:=TextField.Create(nil,'t',0,10,10,400,300);
PGCD(12,16);
t.setTextFormat(f);
end.Par contre, je n'ai pas réussi à afficher le ...Sens de la syntaxe 'var (name)' 2012-05-16 18:31:19 Bonjour à tous,
Je suis en train de porter du pascal vers du C mais là... j'en suis réduit à chercher une corde...
J'ai un header qui contient les déclaration suivante :
Code :
Sélectionner tout -
Visualiser dans une fenêtre à part
12345678
var ( name )
...[Lazarus] Afficher une form en fonction de l'onglet choisi via MainMenu 2012-05-15 20:24:17 Bonjour,
je souhaiterais savoir comment on fait pour afficher une form sur Lazarus en fonction de l'onglet choisi via MainMenu.
Pour l'instant j'utilise les panels :
Quand on clique sur un onglet du main menu un panel apparaît et tous les autres deviennent invisibles.
Mais je ne suis pas sûr que ce soit la bonne méthode...
Pourriez-vous m'aider svp... Merci.MessageDLG en francais? 2012-05-15 20:24:17 Bonjour,
Je voudrais savoir s'il est possible de mettre en francais les valeurs des boutons dans un messageDLG.
Lorsque je met mbYes, mbNo j'ai comme resultat : Yes No...
Je voudrais Oui et non, mais je ne comprends pas d'où ça peut venir.
Merci de votre aide.Sens de la synthaxe 'var (name)'? 2012-05-15 14:33:26 Bonjour à tous,
Je suis en train de porter du pascal vers du C mais là... j'en suis réduit à chercher une corde...
J'ai un header qui contient les déclaration suivante:
Citation:
var ( name )
param1, param2 : real;
param3, param4 : integer;
var ( name )
param11,1 param12 : real;
param13, param14 : integer;
Quel est la valeur de 'name' entre parenthèses.
PS: j'ai regardé dans le code, ...[Free Pascal] Calcul du prix d'un télégramme 2012-05-15 10:51:19 Nouveau
Bonjour, SVP je dois écrire un programme qui calcule le prix d'un télégramme. Voilà l'énoncé de l'exercice :
Citation:
On donne un télégramme mot par mot. On souhaite compter le nombres d'unités de paiement du télégramme, sachant qu'il se termine par le mot (stop) et qu'un mot de longueur L coûte (L/10)+1 unités. Le mot stop ne coûte rien.
Je dois utiliser la fonction lenght mais je sais pas comment faire.
Ps : je travaille sur le Free Pascal.
Merciii[Turbo Pascal] Puissance 4 mode texte 2012-05-15 07:36:38 Bonjour !
Je vous présente mon essai d'un Puissance 4.
L'algorithme utilisé pour les coups de l'ordinateur est tout simple. Il se base sur trois principes : le score maximal de l'adversaire au coup suivant, le nombre de réalisations de ce score maximal et enfin une prime pour les coups au centre.
Vous me direz si vous arrivez à le battre.
L'interface est en mode texte et ne contient que le strict minimum. Je n'ai pas le courage ...[Turbo Pascal] Error 2: Identifier Expected 2012-05-14 02:40:52 Bonjour
Quand je compile le programme, il m'affiche cette citation : Error 2: Identifier Expected.
Voici le code du programme :
Code :
Sélectionner tout -
Visualiser dans une fenêtre à part
12345678910111213141516PROGRAM logiciel(INPUT,OUTPUT);
VAR
c:CHAR;
Programmes ...[Turbo Pascal] Eclatement d'une liste chaînée 2012-05-14 02:40:51 pQ2:=pc;
pc:=pc^.suivant;
end;
...[Lazarus] Problème d'appel d'évènement [Résolu] 2012-05-13 11:55:55 Bonsoir à toutes et à tous,
J'ai créé un composant qui à la configuration suivante :
Dans l'unité Unit1, qui est 'registred', j'ai le composant (qui sera appelé) :
TChercher = class(TComponent).
Ce composant, va appeler une composant TAffDialog = class(TForm) dans une unité Unit2. Dans ce TAffDialog, j'ai un bouton avec son évènement OnClick.
Mon problème : Je voudrais que dans la partie 'published' de TChercher il y ait un évènement que l'on voit dans l'inspecteur d'objet ...[Lazarus] Connexion entre Matlab et Lazarus 2012-05-13 11:55:53 Bonjour à tous,
dans le cadre d'un programme de traitement audio, je dois extraire les données de fichiers wav sous forme de fichiers texte. Pour cela j'utilise Matlab avec le code suivant :
Code :
Sélectionner tout -
Visualiser dans une fenêtre à part
1234[y, Fs] = ...Erreur de compilation : Illegal expression 2012-05-12 23:46:00 readln(mois)
if(mois12) then
bMois:=false
writeln('Ce mois est invalide, recommencez svp')
until not(estUneFausseDate(jour,mois,annee))
end; {saisieDate}
procedure saisie(S jourActuel, moisActuel, anneeActuelle, jourDeNaissance, moisDeNaissance, anneeDeNaissance : Integer);
begin
writeln('Entrez la date actuelle');
sasieDate(jourActuel, moisActuel, anneeActuelle);
writeln('Entrez votre date de naissance');
saisieDate(jourDeNaissance, moisDeNaissance,anneeDeNaissance);
end; {saisie}
function calculDeLAge(jourActuel, moisActuel, anneeActuelle, jourDeNaissance, moisDeNaissance, anneeDeNaissance : Integer) : ...[Free Pascal] exo telegramme sur pascal 2012-05-12 23:45:59 Nouveau
bonjour, SVP je dois ecrire un programme qui calcule le prix d'un telegramme voila l'enonce de l'exercice:
on donne un telegramma mot par mot. On souhaite compter le nombres d'unites de paiement du telegramme sachent qu'il se termine par le mot (stop) et qu'un mot de longueur L coute (L/10)+1 unites . Le mot stop ne coute rien.
je dois utiliser la fonction lenght mais je sais pas comment faire,
Ps : je travaille sur le free pascal.
Merciii1 2 3 4 5 6 7 8 9 10 |
POSEZ VOS QUESTIONS
|
|||||||
|
| ||||||||
|
| ||||||||
