Gagner de l'argent avec ebuzzing

Partage propulse par ebuzzing

Calculatrice

Déclarer variables suivants : signe, nb1, nb2, montant, egale  comme ci-dessous :

private

    { Déclarations privées }

  public

    { Déclarations publiques }

  end;

var

  Form1         : TForm1;  cette variable est déclaré par défaut ,

  Signe         : integer;

  nb1, nb2, montant       : real;

  egal          : boolean;

implementation

{$R *.dfm}

Pour les boutons de N° : 1 à 9

Double cliquer sur le bouton « 1 »  et écrire :

Procedure TForm1.SpeedButton12Click (Sender: TObject);

begin

        if egal then

                Edit1.Clear;

        Edit1.Text := Edit1.Text + '1';

        egal := false;

end;

même méthode pour les autres boutons   0 2 3 4 5 6 7 8 9

pour le bouton ‘=’ écrire :

procedure TForm1.SpeedButton15Click(Sender: TObject);

begin

        nb2 := StrToFloat(Edit1.Text);

        Case Signe of

                1 : montant := nb1/nb2;

                2 : montant := nb1*nb2;

                3 : montant := nb1-nb2;

                4 : montant := nb1+nb2;

        end;

        Edit1.Text := FloatToStr(montant);

        egal := true;

end;

pour le bouton « c »

procedure TForm1.SpeedButton1Click(Sender: TObject);

begin

        Edit1.Clear;

end;

pour le bouton    “ ,  ”  la virgule veuillez écrire ;

procedure TForm1.SpeedButton17Click(Sender: TObject);

begin

        Edit1.Text := Edit1.Text + ',';

        egal := false;

end;

poser la curseur  dans la form1 , aller dans l’inspecteur d’objet , dans l’onglet événement Chercher  OnShow  double cliquer et écrire

procedure TForm1.FormShow(Sender: TObject);

begin

        egal := false;

end;

Animation d’un texte

 

Dans une fiche placez ces composants

Un timer, un edit , 3 labels

Label 1 pour caption : Bousselam, Sétif

Label 2 pour caption Vitesse ;

Label3 pour caption nobleux@live.fr

Double cliquer sur edit1 et écrire ces événements :

procedure TForm1.Edit1Change(Sender: TObject);

begin

Timer1.Interval:=strtoint(edit1.text);

end;

Double cliquer sur timer 1  et écrire ces événements :

procedure TForm1.Timer1Timer(Sender: TObject);

begin

label1.Left:=label1.Left-2;

if label1.Left=-304 then

label1.Left:=120;

end;

dans l’événement  « Edit1KeyPress » à l’inspecteur d’objet dans l’onglet evenement  double cliquer et écrire comme suite

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);

begin

if not (Key in ['0'..'9', #8]) then

  begin

    Key := #0;

    Beep;

  end;

end;

double

Double cliquer sur label3 et écrire ces événements :

procedure TForm1.Label2Click(Sender: TObject);

begin

 ShellExecute (handle,'Open',  'mailto:djezar@otmail?body=Taper votre message ici','',

                     '',SW_SHOWNORMAL);

end;

dans la partie dessus de  la partie uses  n’oubliez pas d’ajouter     ShellApi  comme indique la la figure suivante :

Claculer l’age entre deux date

1.  Interface :

Dans une fiche  placer :

Deux boutons un pour caption 'calculer' et  l'autre fermer.

trois label: un pour caption : 'Du' autre ' Au' autre ' Age'.

2. Programmation : 

déclarer ces deux fonction :

function Nomberofdays(const DT1, DT2: TDateTime): LongInt;

begin

   Result := Trunc (DT2) - Trunc (DT1);

End;

 function Diffa(const DT1: TDateTime; const DT2: TDateTime):string ;

var  Day1, Month1, Year1 ,Day2, Month2, Year2,IDay,IMonth,IYear: word;

begin

IYear:=0;

 DecodeDate(dt1,Year1,Month1,Day1);

 DecodeDate(dt2,Year2,Month2,Day2);

       if Year2>= Year1 then IYear := Year2 - Year1 else

           begin

           showmessage('Inversé les Dates SVP');

           abort;

           end;

      if  Month2>= Month1          then
              IMonth := Month2 - Month1 
else

            begin

               IMonth := 12 + Month2 - Month1 ;

               IYear  := IYear -1 ;

               if IYear =65535 then   //-1

                begin

                showmessage('Inversé les Dates SVP');

                abort;

                end;

            end;

       if  Day2>= Day1          then
           IDay := Day2 - Day1 else

           begin

             IDay := 30 + Day2 - Day1;

             IMonth :=  IMonth -1;

             if IMonth =65535 then

                begin

                IMonth := IMonth +12;

                IYear :=  IYear -1;

                   if  IYear = 65535  then

                     begin

                     showmessage('Inversé les Dates SVP');

                     abort;

                     end;(* *)

                  end;

           end;

Double clique sur le bouton "Claculer"  écrire :

procedure TForm1.Button2Click(Sender: TObject);

begin

 label3.Caption:=diffa(dt1.date,dt2.Date);

end;

map

http://maps.google.com/maps/geo?q=1600+Amphitheatre+Parkway, + montagne + View, CA + & output = json & oe = utf8 \
& Capteur = true_or_false & key = ABQIAAAAd3YsqywwwVrIluJpiNcnThSiAgcDl_QsvJHhm6si39LdHd9gzRQ50JRN8885wnQt1uY6Y6ONFyEUuQ

Afficher date en arabe

function MoisEnArabe(moi: word): string;

·  var MLA:string;

·  begin //donner les mois en Arabe de janvier à décembre dans le même ordre

·  case moi of

·  1:MLA :='ÌÇäÝí' ; 7 :MLA :='ÌæíáíÉ' ;

·  2:MLA :='ÝíÝÑí' ; 8 :MLA :='ÃæÊ' ;

·  3:MLA :='ãÇÑÓ' ; 9 :MLA :='ÓÈÊãÈÑ' ;

·  4:MLA :='ÃÝÑíá' ; 10:MLA :='ÃßÊæÈÑ' ;

·  5:MLA :='ãÇí' ; 11:MLA :='äæÝãÈÑ' ;

·  6:MLA :='ÌæÇä' ; 12:MLA :='ÏíÓãÈÑ' ;

·  end;// case

·  Result:= MLA ;

·  end;

·  function JourEnArabe(j: word): string;

·  var JLA:string;

·  days: array[1..7] of string;

·  begin // donner les jours en Arabe

·  days[1] := 'ÇáÃÍÏ'; //dimanche

·  days[2] := 'ÇáÇËäíä'; // lundi

·  days[3] := 'ÇáËáÇËÇÁ'; // mardi

·  days[4] := 'ÇáÃÑÈÚÇÁ'; // mercredi

·  days[5] := 'ÇáÎãíÓ'; // jeudi

·  days[6] := 'ÇáÌãÚÉ'; // vendredi

·  days[7] := 'ÇáÓÈÊ'; // samedi

·  JLA:=days[DayOfWeek(date)] ;

·  Result:= JLA ;

·  end;

·  function DateEnArabe():string;

·  var annee,mois,jour :word;

·  begin

·  DecodeDate(Date,annee,mois,jour);// decoder la date du jour

·  DateEnArabe:='íæã '+JourEnArabe(jour)+' '+inttostr(jour)+' '+MoisEnArabe(mois)+' '+inttostr(annee);

·  // DateEnArabe reçoit la date jour en Arabe

·  end;

·  procedure TForm1.Button1Click(Sender: TObject);

·  begin

·  label1.Caption:=DateEnArabe;

·  end;

Recopier un enregistrement

var i:integer;
begin
table2.edit;
for i:=0 to table1.fieldscounts-1 do
begin table2.fieldsvalues[i].assign(table1.fieldvalues[i ]); end;
table2.post;
end;