Commande de compilation...
Commande d'exйcution...
Fichier source...
upscmp Source=binaire.upl
binaire
Source Composant "Exemple d'emploi de type Binaire" Version
1.0.0;
Principal
Variable
B : Binaire;
L : Entier;
Debut
B=Binaire("Binaire : вко");
Ecran.Ecrire(Caractere(B));
B=Binaire("Binaire")+Binaire(" : вко");
Ecran.Ecrire(Caractere(B));
B=Binaire("Binaire");
B+=Binaire(" : вко");
Ecran.Ecrire(Caractere(B));
B=Binaire("Binaire : вко");
B=-B;
Ecran.Ecrire(Caractere(B));
L=B.Longueur();
Ecran.Ecrire(L);
B=Binaire("Binaire : вко").Gauche(3);
Ecran.Ecrire(Caractere(B));
B=Binaire("Binaire : вко").Droite(3);
Ecran.Ecrire(Caractere(B));
B=Binaire("Binaire : вко").Milieu(2,5);
Ecran.Ecrire(Caractere(B));
L=Binaire("A").Unicode(0);
Ecran.Ecrire(L);
B=Binaire("Binaire");
B+=Binaire(" : вко");
Si B==Binaire("Binaire : вко") Alors
Ecran.Ecrire("B==Binaire : вко");
Fin Si
Si B!=Binaire("Binaire : вко") Alors
Ecran.Ecrire("B!=Binaire : вко");
Fin Si
Fin Principal