VIBRATIONS EN ROSE Forum Index VIBRATIONS EN ROSE

 
FAQ Search Memberlist Usergroups
Register Log in to check your private messages Profile Log in
 

Apprendre le delphi :D
  		Previous topic .::. Next topic  
Post new topic   Reply to topic    VIBRATIONS EN ROSE Forum Index >>> INFORMATIQUE GÉNÉRALE >>> INFORMATIQUE

Author Message
Harry



Offline

Joined: 23 May 2008
Posts: 728
Localisation: Corse
Masculin Lion (24juil-23aoû) 牛 Buffle
PostPosted: Sun 1 Jun - 09:18    Post subject: Apprendre le delphi :D Reply with quote
Bonjour à tous.
J'ouvre ce topic parce que j'en ai marre de chercher des logiciels correspondant à ce que je veux. Bien que les logiciels de RPoulin me satisfassent amplement, je suis jaloux. Jaloux parce que lui n'a pas besoin de chercher des trucs tout faits, il est autonome. Je sais que ce sera long, mais j'ai déjà programmé en C. Je pense que ça pourrait m'aider.
Il y a un dicton qui dit:
"Donne un poisson à un homme il mangera une journée, Apprends lui à pêcher, il mangera toute sa vie".
Pouvez vous m'apprendre à pêcher ?
_________________
La beauté est partout, il suffit d'ouvrir les yeux.
Back to top
rap
Administrateur


Offline

Joined: 24 Sep 2007
Posts: 1,224
Masculin Verseau (20jan-19fev)
PostPosted: Sun 1 Jun - 18:07    Post subject: Apprendre le delphi :D Reply with quote
Bienvenue dans le club. Quelques sites incontournables (moi je fais tout en anglais mais il y aussi beaucoup de références en France):

Exemple:
http://delphi.developpez.com/ (y voir les outils gratuits pour développer)
http://www.delphifr.com/ (sources, conseils etc)
John Colibri - http://www.jcolibri.com/ (france)
http://www.delphibasics.co.uk/index.html (tout le code, comme un livre)
http://www.delphifeeds.com/ (les news et les meilleurs programmeurs delphi y sont )
http://www.torry.net/ (références et codes sources, composants gratuits)

Je te donnerai le code source de morse pour le compléter. Bonne chance.
_________________
<font color="red">C'est très bon, recommençons</font>
Back to top
Visit poster’s website
Harry



Offline

Joined: 23 May 2008
Posts: 728
Localisation: Corse
Masculin Lion (24juil-23aoû) 牛 Buffle
PostPosted: Sun 1 Jun - 19:47    Post subject: Apprendre le delphi :D Reply with quote
Oulaaaaaa!!
Ca fait une heure et demie que je lis... Et ça m'a l'air bien plus compliqué que ce que je pensais...
Au début, je me disais que en me jetant dans le bain, ça viendrait tout seul... Mais là, j'ai vraiment peur...
Rap, d'après toi, sachant qu'en C++, j'arrive à peine a faire un programme qui calcule les racine d'un polynôme du second degré, combien de temps il me faudrait pour que je puisse savoir comment marche ce code source par exemple:
http://usuarios.lycos.es/pixador/PixaMSNsrc.zip
P.S.: 2h00 du matin, je vais me coucher... Delphine pourra attendre jusqu'à demain :cheese
Merci pour ton aide Rap.
_________________
La beauté est partout, il suffit d'ouvrir les yeux.
Back to top
rap
Administrateur


Offline

Joined: 24 Sep 2007
Posts: 1,224
Masculin Verseau (20jan-19fev)
PostPosted: Mon 2 Jun - 01:30    Post subject: Apprendre le delphi :D Reply with quote
Tu ne commence pas par le plus facile ! Mais chose certaine que l'apprentissage va plus vite qu'avec le c++. Alors .. je dirais quelques jours, tout dépend de ta facilité à comprendre. Y a plus facile pour débuter.
_________________
<font color="red">C'est très bon, recommençons</font>
Back to top
Visit poster’s website
Harry



Offline

Joined: 23 May 2008
Posts: 728
Localisation: Corse
Masculin Lion (24juil-23aoû) 牛 Buffle
PostPosted: Mon 2 Jun - 05:43    Post subject: Apprendre le delphi :D Reply with quote
Je n'arrive pas à installer Delphi 2005 Personnal (student version): au moment d'installer le logiciel (après qu'il ait décompressé les fichier .NET .....) il me dit qu'il manque le CD d'installation (voir ici)... Que faire ? Dois je prendre Turbo Delphi ?
_________________
La beauté est partout, il suffit d'ouvrir les yeux.
Back to top
rap
Administrateur


Offline

Joined: 24 Sep 2007
Posts: 1,224
Masculin Verseau (20jan-19fev)
PostPosted: Mon 2 Jun - 07:57    Post subject: Apprendre le delphi :D Reply with quote
Oui prend TDelphi. Il n'y aura pas le .NET mais ça peut éventuellement s'ajouter plus tard. D2005 a été une année difficile (à problèmes)
_________________
<font color="red">C'est très bon, recommençons</font>
Back to top
Visit poster’s website
Harry



Offline

Joined: 23 May 2008
Posts: 728
Localisation: Corse
Masculin Lion (24juil-23aoû) 牛 Buffle
PostPosted: Mon 2 Jun - 09:37    Post subject: Apprendre le delphi :D Reply with quote
Depuis combien de temps fais tu de la programmation? C'est ton job ?
_________________
La beauté est partout, il suffit d'ouvrir les yeux.
Back to top
rap
Administrateur


Offline

Joined: 24 Sep 2007
Posts: 1,224
Masculin Verseau (20jan-19fev)
PostPosted: Mon 2 Jun - 09:50    Post subject: Apprendre le delphi :D Reply with quote
Harry wrote:
Depuis combien de temps fais tu de la programmation? C'est ton job ?


Plus de 15 ans (début en turbo pascal). Oui c'est mon job. J'ai bossé 5 ans pour IBM sur Paris Défense, en Delphi (tout le contrôle Pari Mutuel (pmu) est Delphi). Ensuite en sécurité pour des banques, a la banque mondiale, puis maintenant à mon compte, principalement de chez-moi (vente et entretien de Alice Comptable, gestions d'inventaires, et autres contrats)
_________________
<font color="red">C'est très bon, recommençons</font>
Back to top
Visit poster’s website
Harry



Offline

Joined: 23 May 2008
Posts: 728
Localisation: Corse
Masculin Lion (24juil-23aoû) 牛 Buffle
PostPosted: Mon 2 Jun - 10:05    Post subject: Apprendre le delphi :D Reply with quote
Wouaaaaaaw !!! Félicitation, ton CV impose le respect maitre maitre maitre ! Mais au delà de ça, tu es altruiste et généreux...
En plus d'être jaloux, je suis admiratif... Continuez comme ça (Dorénavant, je t'appellerai "Grand Maitre" e je te vouvoierai, quel manant oserai vous défier Grand Maitre....)
_________________
La beauté est partout, il suffit d'ouvrir les yeux.
Back to top
rap
Administrateur


Offline

Joined: 24 Sep 2007
Posts: 1,224
Masculin Verseau (20jan-19fev)
PostPosted: Mon 2 Jun - 13:31    Post subject: Apprendre le delphi :D Reply with quote
He ... il y a de biens meilleurs prog. que moi. Par exemple sur delphifeeds et plein d'autres ailleurs. sur Developpez.com etc.   
_________________
<font color="red">C'est très bon, recommençons</font>
Back to top
Visit poster’s website
Harry



Offline

Joined: 23 May 2008
Posts: 728
Localisation: Corse
Masculin Lion (24juil-23aoû) 牛 Buffle
PostPosted: Wed 4 Jun - 04:50    Post subject: Apprendre le delphi :D Reply with quote
Auriez vous un "petit code source" pour débutant à trifouiller ??
(Je viens de comprendre à quoi servait la clause "uses"... Je crois que ça va être long!)
_________________
La beauté est partout, il suffit d'ouvrir les yeux.
Back to top
rap
Administrateur


Offline

Joined: 24 Sep 2007
Posts: 1,224
Masculin Verseau (20jan-19fev)
PostPosted: Wed 4 Jun - 12:15    Post subject: Apprendre le delphi :D Reply with quote
Pourquoi pas celui du code morse ... il est simple, mais vite fait et demande améliorations. Et puis tu pourrais faire l'inverse morse -> texte. J'ai commenté un peu le code pour compréhension.

Voici: tu copies et colles dans une nouveau projet en écrasant le code déjà mis par défaut par delphi dans unit1 et l'unité dfm associée:

L'unité:

Code:

unit unitMorse;    // mon unité unitMorse.pas

interface

// les composants ou bibliothèques générales utilisées
// normalement se trouvent dans les sources originales
// de delphi ou des autres composants utilisés
// - ils sont déclarés dans la clause Uses:
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

// deux constantes utilisée pour modifier le son beep de l'ordi
// on pourrait créer une boite edit dans la fiche pour
// que les usagers les changent
const MORSE_UNIT=28;   //26
const MORSE_GROOVE=MORSE_UNIT div 4;

// déclaration du type général de la fiche et des composants ajoutés dessus
type
  TBoiteMorse = class(TForm)  //le type TBoiteMorse est une création faite à partir de la classe TForm
    memoMorse: TMemo;  // memoMorse est une instance de TMemo etc. ...
    Memo1: TMemo;
    Splitter: TSplitter;
    procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
    procedure FormCreate(Sender: TObject);
    procedure memoMorseKeyPress(Sender: TObject; var Key: Char);
    procedure FormShow(Sender: TObject);

  private
    { Private declarations }  // usage interne seulement
    MorseAArray: array ['a'..'z' ] of string;   // , '0'..'9'
    MorseNArray: array ['0'..'9' ] of string;   // , '0'..'9'
    Procedure CMDialogKey(Var Msg:TWMKey); message CM_DIALOGKEY;
  public
    { Public declarations }
  end;

var
  BoiteMorse: TBoiteMorse;  // la variable BoiteMorse est de type TBoiteMorse

implementation

{$R *.dfm}    // dans ce cas-ci la resource ne contient que l'icone du projet.

// interprétation des touches du clavier VK_ ....
procedure TBoiteMorse.CMDialogKey(var msg: TCMDialogKey);
begin
  if (msg.Charcode <> VK_RETURN) or (msg.Charcode <VK_SPACE SelText=' / ' a='.-' b='-...' c='-.-.' d='-..' e='.' f='..-.' g='--.' h='....' i='..' j='.---' k='-.-' l='.-..' m='--' n='-.' o='---' p='.--.' q='--.-' r='.-.' s='...' t='-' u='..-' v='...-' w='.--' x='-..-' y='-.--' z='--..' 1='.----' 2='..---' 3='...--' 4='....-' 5='.....' 6='-....' 7='--...' 8='---..' 9='----.' 0='-----' MorseVArray='·-·-·-' MorseVArray='--··--' MorseVArray='·----·' MorseVArray='---·' MorseVArray='-··-·' MorseVArray='-·--·' MorseVArray='-·--·-' MorseVArray='·--·-·' MorseVArray='·-···' MorseVArray='---···' MorseVArray='-·-·-·' MorseVArray=']:=' MorseVArray='.-.-.' MorseVArray='-....-' _='..--.-' MorseVArray='.-..-.' MorseVArray='...-..-'>='a') and (s<='z') Then begin
      Morse:=MorseAArray[s[1]];
      Memo1.SelText := morse + '  ';

      // alors, en fonction de l'array,  il y a un son selon que c'est . ou -
      for j := 1 to Length(Morse) do begin    // lire le code
        if Morse[j]='.' Then begin
        //modifier le 'tone' du beep pour que ça 'sonne' mieux
        Windows.Beep(1206,MORSE_UNIT+random(MORSE_GROOVE))   //1206
        end else begin
        Windows.Beep(1200,MORSE_UNIT*3+random(MORSE_GROOVE*3))   // 1200
        end;
      Sleep(MORSE_UNIT*3+random(MORSE_GROOVE*3)); //Random bit pour groove.
      end;
      end else begin
      if s=' ' Then begin
      Sleep(MORSE_UNIT*7+random(MORSE_GROOVE*7)); //Random bit pour groove.
   end

  else
     // si le texte est un chiffre
     s :=lowercase(Key);
  if (s>='0') and (s<='9') Then begin
      Morse:=MorseNArray[s[1]];
      Memo1.SelText := morse + ' ';
      Morse:=MorseNArray[s[1]];
      for j := 1 to Length(Morse) do begin
      if Morse[j]='.' Then begin
        //encore une modification du beep
        Windows.Beep(1206,MORSE_UNIT+random(MORSE_GROOVE))
        end else begin
        Windows.Beep(1200,MORSE_UNIT*3+random(MORSE_GROOVE*3))
        end;
        Sleep(MORSE_UNIT*3+random(MORSE_GROOVE*3)); //Random a bit of groove.
        end;
        end else begin
    if s=' ' Then begin
       Sleep(MORSE_UNIT*7+random(MORSE_GROOVE*7)); //Random a bit of groove.
    end
end;
end;
end;
end.





et la fiche dfm (interface texte de la fiche dfm)

Code:

object BoiteMorse: TBoiteMorse
  Left = 192
  Top = 114
  Caption = 'Volvox - mai 2008 - La boite '#224' morse'
  ClientHeight = 453
  ClientWidth = 688
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {
    0000010001001010000000000000680500001600000028000000100000002000
    000001000800000000004001000000000000000000000001000000000000EEEE
    EE00DADADA00D4D5D500BCBBBC00B5B5B500ADADAD00838383007B7B7B006E6E
    6E00222323000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000FFFFFF00FEFE
    FEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFE
    FEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFE
    FEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFE0A0AFEFEFE0A0AFEFEFE0A0AFEFEFE0A
    07090AFE0A05080AFE0A01040AFEFE0A03060AFE0A02040AFE0A00010AFEFEFE
    0A0AFEFEFE0A0AFEFEFE0A0AFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFE
    FEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFE
    FEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFE
    FEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFFFF
    FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFCE73FFFF8421FFFF8421FFFFCE73
    FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF}
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  OnKeyDown = FormKeyDown
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter: TSplitter
    Left = 0
    Top = 305
    Width = 688
    Height = 5
    Cursor = crVSplit
    Align = alBottom
    ExplicitTop = 301
  end
  object memoMorse: TMemo
    Left = 0
    Top = 0
    Width = 688
    Height = 305
    Align = alClient
    Color = clBlack
    Font.Charset = OEM_CHARSET
    Font.Color = clLime
    Font.Height = -16
    Font.Name = 'Terminal'
    Font.Pitch = fpFixed
    Font.Style = []
    Lines.Strings = (
      'Tapez ...  ')
    ParentFont = False
    ScrollBars = ssVertical
    TabOrder = 0
    OnKeyDown = FormKeyDown
    OnKeyPress = memoMorseKeyPress
  end
  object Memo1: TMemo
    Left = 0
    Top = 310
    Width = 688
    Height = 143
    Align = alBottom
    Font.Charset = OEM_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = 'Terminal'
    Font.Style = [fsBold]
    ParentFont = False
    ScrollBars = ssVertical
    TabOrder = 1
  end
end


_________________
<font color="red">C'est très bon, recommençons</font>

Last edited by rap on Wed 4 Jun - 12:42; edited 3 times in total
Back to top
Visit poster’s website
rap
Administrateur


Offline

Joined: 24 Sep 2007
Posts: 1,224
Masculin Verseau (20jan-19fev)
PostPosted: Wed 4 Jun - 12:21    Post subject: Apprendre le delphi :D Reply with quote
Ou mieux voici les sources du code - parce que le forum rend très mal le code écrit même à l'intérieur des balises code (c'est en partie tout massacré): http://volvoxsoft.com/pub/BoiteMorse.zip
_________________
<font color="red">C'est très bon, recommençons</font>
Back to top
Visit poster’s website
Harry



Offline

Joined: 23 May 2008
Posts: 728
Localisation: Corse
Masculin Lion (24juil-23aoû) 牛 Buffle
PostPosted: Wed 4 Jun - 13:55    Post subject: Apprendre le delphi :D Reply with quote
Wouaw !!!! Euuh Merci !!! Merci pour votre aide!! maitre
Je vais essayer d'assimiler et de bosser un peu le code et les commentaire pour avancer. Je sais pas trop par où commencer mais avec un peu de musique, ça ira mieux Wink
Merci encore.
_________________
La beauté est partout, il suffit d'ouvrir les yeux.
Back to top
Display posts from previous:   

Post new topic   Reply to topic VIBRATIONS EN ROSE Forum Index >>> INFORMATIQUE GÉNÉRALE >>> INFORMATIQUE All times are GMT - 4 Hours
Page 1 of 1

 
Jump to: