A voir également:
- Langage clipper
- Langage ascii - Guide
- Langage binaire - Guide
- Pascal langage - Télécharger - Édition & Programmation
- Langage pascal - Télécharger - Édition & Programmation
- Logiciel clipper gratuit - Télécharger - Organisation
10 réponses
Salut Azzedine,
je te conseil de chercher le programme" ng.exe "dans le dossier d'installation, normalement y a toute la doc et tu peux meme l'inprimer avec "ngp.exe"
je te conseil de chercher le programme" ng.exe "dans le dossier d'installation, normalement y a toute la doc et tu peux meme l'inprimer avec "ngp.exe"
j' // ASCII.prg
*
*
clear
set talk off
c = 32
col = 0
nlig = 22
lig = 1
do while lig<=nlig
col = 0
do while col<= 6
code =c+lig+col*nlig
@ lig,col*10 say code picture "999"
@ lig,col*10+5 say chr(code)
col=col+1
enddo
lig = lig + 1
enddo
WAIT "appuyer sur une touche retour au dos"ai des fichier prg dbf ntx exe obj pour clipper
exemple de fichier pour le code acci
*
*
clear
set talk off
c = 32
col = 0
nlig = 22
lig = 1
do while lig<=nlig
col = 0
do while col<= 6
code =c+lig+col*nlig
@ lig,col*10 say code picture "999"
@ lig,col*10+5 say chr(code)
col=col+1
enddo
lig = lig + 1
enddo
WAIT "appuyer sur une touche retour au dos"ai des fichier prg dbf ntx exe obj pour clipper
exemple de fichier pour le code acci
je cherche des documents trés facile sur les programmatios en langage clipper et delphi et systéme d-information
merci...
merci...
**
* fait par michel barriere
* guidel saint fiacre 56520
*****************************
*
* PROGRAMME DE CREATION D'UNE FICHE ADRESSES
* ADRES
* TITRE DU PROCRAMME CREADRES.PRG
* AUTEUR BARRIERE Michel
* DATE :
* NOTES :
*****
SET SCOREBOARD OFF
SET SAFETY OFF
SET TALK OFF
SET STATUS OFF
SET CONFIRM OFF
SET DATE FRENCH
SET CENTURY ON
SET COLOR TO G+R/N
CLEAR
CLOSE DATABASES
CLOSE FORMAT
CLOSE INDEX
STORE 'O' TO AFFIRM
STORE 'N' TO NOUVADRES
STORE .T. TO ENCORE
USE ELITEL
INDEX ON NOM TO INOM
REINDEX
DO WHILE ENCORE
STORE " " TO NUMENTRE
CLEAR
zone_date := replicate(chr(176), 9)
cadre :=chr(201)+chr(205)+chr(187)+;
chr(186)+chr(188)+chr(205)+;
chr(200)+chr(186)+chr(0)
*
@ 0,0,2,79 box cadre
@ 3,0,3,79 box zone_date
@ 3,3 say time()
@ 3,70 say date()
@ 1,1,1,78 box chr(176)
SET COLOR TO G/N
@ 1,26 say " Cr‚er une fiche ADRESSE "
SET COLOR TO G+R/N
@ 4,0,19,79 box cadre
@ 20,1,20,78 box chr(176)
@ 22,0,24,79 box cadre
SET COLOR TO W/R
@ 03,25 say "touche ENTREE pour terminer "
SET COLOR TO G+R/N
@ 06,03 SAY "NOM ET PRENOM.:"
@ 06,20 GET NUMENTRE picture "@!"
READ
IF NUMENTRE = " "
STORE .F. TO ENCORE
CLEAR
zone_date := replicate(chr(176), 9)
cadre :=chr(201)+chr(205)+chr(187)+;
chr(186)+chr(188)+chr(205)+;
chr(200)+chr(186)+chr(0)
*
@ 0,0,2,79 box cadre
@ 3,0,3,79 box zone_date
@ 3,3 say time()
@ 3,70 say date()
@ 1,1,1,78 box chr(176)
SET COLOR TO G/N
@ 1,26 say " Cr‚er une fiche ADRESSE "
SET COLOR TO G+R/N
@ 4,0,19,79 box cadre
@ 20,1,20,78 box chr(176)
@ 22,0,24,79 box cadre
SET COLOR TO W/R
@ 03,25 say "touche ENTREE pour terminer "
SET COLOR TO G+R/N
@ 08, 15 SAY " F I N D E C O N S U L T A T I O N "
@ 10, 15 SAY " D U F I C H I E R "
@ 12, 15 SAY " D E S A D R E S S E S "
CLOSE ALL
@ 24,00
WAIT " Appuyer sur une touche pour continuer"
CLEAR
DO GESADRES
RETURN
ENDIF
GO TOP
SEEK NUMENTRE
IF EOF()
@ 20,08 SAY "REF PAS TROUVE SAISIR UNE AUTRE REF O/N "
@ 20,50 GET NOUVADRES PICTURE "!"
READ
IF NOUVADRES = "O"
******************** ICI POUR LA CREATION *********
APPEND BLANK
@ 20,00 CLEAR
zone_date := replicate(chr(176), 9)
*
cadre :=chr(201)+chr(205)+chr(187)+;
chr(186)+chr(188)+chr(205)+;
chr(200)+chr(186)+chr(0)
*
@ 0,0,2,79 box cadre
@ 3,0,3,79 box zone_date
@ 3,3 say time()
@ 3,70 say date()
@ 1,1,1,78 box chr(176)
SET COLOR TO G/N
@ 1,26 say " Cr‚er une fiche ADRESSE"
SET COLOR TO G+R/N
@ 4,0,19,79 box cadre
@ 20,1,20,78 box chr(176)
@ 22,0,24,79 box cadre
SET COLOR TO W/N
@ 03,25 say " touche ENTREE pour terminer "
SET COLOR TO G+R/N
@ 08, 03 SAY "Proffession :" GET PROFESSION picture "@!"
@ 10, 03 SAY "Adresse :" GET RUE picture "@!"
@ 12, 03 SAY "Ville :" GET VILLE picture "@!"
@ 12, 55 SAY "code :" GET CODE
@ 14, 03 SAY "T‚l‚phone :" GET TEL picture "99.99.99.99.99"
@ 14, 45 say "Portable :" GET PORTAbLE PICTURE "99.99.99.99.99"
@ 16, 03 SAY "fax :" GET fax picture "99.99.99.99.99"
@ 16, 35 say "e-mail :" GET email PICTURE "@"
READ
CLEAR
zone_date := replicate(chr(176), 9)
*
cadre :=chr(201)+chr(205)+chr(187)+;
chr(186)+chr(188)+chr(205)+;
chr(200)+chr(186)+chr(0)
*
@ 0,0,2,79 box cadre
@ 3,0,3,79 box zone_date
@ 3,3 say time()
@ 3,70 say date()
@ 1,1,1,78 box chr(176)
SET COLOR TO G/N
@ 1,26 say " Cr‚er une fiche adresse "
SET COLOR TO G+R/N
@ 4,0,19,79 box cadre
@ 20,1,20,78 box chr(176)
@ 22,0,24,79 box cadre
SET COLOR TO W/N
@ 03,25 say " touche ENTREE pour terminer "
SET COLOR TO G+R/N
@ 06, 26 SAY " O B S E R V A T I O N S "
@ 09, 05 GET ELITEL->OBS1
@ 10, 05 GET ELITEL->OBS2
@ 11, 05 GET ELITEL->OBS3
@ 12, 05 GET ELITEL->OBS4
@ 13, 05 GET ELITEL->OBS5
@ 14, 05 GET ELITEL->OBS6
@ 15, 05 GET ELITEL->OBS7
@ 16, 05 GET ELITEL->OBS8
@ 17, 05 GET ELITEL->OBS9
@ 18, 05 GET ELITEL->OBS10
READ
REPLACE NOM WITH NUMENTRE
STORE " " TO WAIT_SUBST
@ 23,15 SAY "pressez une touche pour continuer .." GET WAIT_SUBST
READ
SET CONFIRM ON
ENDIF
ELSE
***************** ICI POUR LA MODIF ***********
@ 20,00
zone_date := replicate(chr(176), 9)
*
cadre :=chr(201)+chr(205)+chr(187)+;
chr(186)+chr(188)+chr(205)+;
chr(200)+chr(186)+chr(0)
*
@ 0,0,2,79 box cadre
@ 3,0,3,79 box zone_date
@ 3,3 say time()
@ 3,70 say date()
@ 1,1,1,78 box chr(176)
SET COLOR TO G/N
@ 1,26 say " Cr‚er une fiche adresse "
SET COLOR TO G+R/N
@ 4,0,19,79 box cadre
@ 20,1,20,78 box chr(176)
@ 22,0,24,79 box cadre
@ 11,24 to 15,72 double
@ 12,30 SAY " Le non de cette personne "
set color to w/r
@ 13,40 SAY nom
set color to
set color to g+r/n
@ 14,30 SAY " Existe d‚ja "
STORE " " TO WAIT_SUBST
@ 23,15 SAY "pressez une touche pour continuer .." GET WAIT_SUBST
READ
SET CONFIRM ON
ENDIF
ENDDO
CLEAR
************* FIN DE CREART.PRG ****************
* fait par michel barriere
* guidel saint fiacre 56520
*****************************
*
* PROGRAMME DE CREATION D'UNE FICHE ADRESSES
* ADRES
* TITRE DU PROCRAMME CREADRES.PRG
* AUTEUR BARRIERE Michel
* DATE :
* NOTES :
*****
SET SCOREBOARD OFF
SET SAFETY OFF
SET TALK OFF
SET STATUS OFF
SET CONFIRM OFF
SET DATE FRENCH
SET CENTURY ON
SET COLOR TO G+R/N
CLEAR
CLOSE DATABASES
CLOSE FORMAT
CLOSE INDEX
STORE 'O' TO AFFIRM
STORE 'N' TO NOUVADRES
STORE .T. TO ENCORE
USE ELITEL
INDEX ON NOM TO INOM
REINDEX
DO WHILE ENCORE
STORE " " TO NUMENTRE
CLEAR
zone_date := replicate(chr(176), 9)
cadre :=chr(201)+chr(205)+chr(187)+;
chr(186)+chr(188)+chr(205)+;
chr(200)+chr(186)+chr(0)
*
@ 0,0,2,79 box cadre
@ 3,0,3,79 box zone_date
@ 3,3 say time()
@ 3,70 say date()
@ 1,1,1,78 box chr(176)
SET COLOR TO G/N
@ 1,26 say " Cr‚er une fiche ADRESSE "
SET COLOR TO G+R/N
@ 4,0,19,79 box cadre
@ 20,1,20,78 box chr(176)
@ 22,0,24,79 box cadre
SET COLOR TO W/R
@ 03,25 say "touche ENTREE pour terminer "
SET COLOR TO G+R/N
@ 06,03 SAY "NOM ET PRENOM.:"
@ 06,20 GET NUMENTRE picture "@!"
READ
IF NUMENTRE = " "
STORE .F. TO ENCORE
CLEAR
zone_date := replicate(chr(176), 9)
cadre :=chr(201)+chr(205)+chr(187)+;
chr(186)+chr(188)+chr(205)+;
chr(200)+chr(186)+chr(0)
*
@ 0,0,2,79 box cadre
@ 3,0,3,79 box zone_date
@ 3,3 say time()
@ 3,70 say date()
@ 1,1,1,78 box chr(176)
SET COLOR TO G/N
@ 1,26 say " Cr‚er une fiche ADRESSE "
SET COLOR TO G+R/N
@ 4,0,19,79 box cadre
@ 20,1,20,78 box chr(176)
@ 22,0,24,79 box cadre
SET COLOR TO W/R
@ 03,25 say "touche ENTREE pour terminer "
SET COLOR TO G+R/N
@ 08, 15 SAY " F I N D E C O N S U L T A T I O N "
@ 10, 15 SAY " D U F I C H I E R "
@ 12, 15 SAY " D E S A D R E S S E S "
CLOSE ALL
@ 24,00
WAIT " Appuyer sur une touche pour continuer"
CLEAR
DO GESADRES
RETURN
ENDIF
GO TOP
SEEK NUMENTRE
IF EOF()
@ 20,08 SAY "REF PAS TROUVE SAISIR UNE AUTRE REF O/N "
@ 20,50 GET NOUVADRES PICTURE "!"
READ
IF NOUVADRES = "O"
******************** ICI POUR LA CREATION *********
APPEND BLANK
@ 20,00 CLEAR
zone_date := replicate(chr(176), 9)
*
cadre :=chr(201)+chr(205)+chr(187)+;
chr(186)+chr(188)+chr(205)+;
chr(200)+chr(186)+chr(0)
*
@ 0,0,2,79 box cadre
@ 3,0,3,79 box zone_date
@ 3,3 say time()
@ 3,70 say date()
@ 1,1,1,78 box chr(176)
SET COLOR TO G/N
@ 1,26 say " Cr‚er une fiche ADRESSE"
SET COLOR TO G+R/N
@ 4,0,19,79 box cadre
@ 20,1,20,78 box chr(176)
@ 22,0,24,79 box cadre
SET COLOR TO W/N
@ 03,25 say " touche ENTREE pour terminer "
SET COLOR TO G+R/N
@ 08, 03 SAY "Proffession :" GET PROFESSION picture "@!"
@ 10, 03 SAY "Adresse :" GET RUE picture "@!"
@ 12, 03 SAY "Ville :" GET VILLE picture "@!"
@ 12, 55 SAY "code :" GET CODE
@ 14, 03 SAY "T‚l‚phone :" GET TEL picture "99.99.99.99.99"
@ 14, 45 say "Portable :" GET PORTAbLE PICTURE "99.99.99.99.99"
@ 16, 03 SAY "fax :" GET fax picture "99.99.99.99.99"
@ 16, 35 say "e-mail :" GET email PICTURE "@"
READ
CLEAR
zone_date := replicate(chr(176), 9)
*
cadre :=chr(201)+chr(205)+chr(187)+;
chr(186)+chr(188)+chr(205)+;
chr(200)+chr(186)+chr(0)
*
@ 0,0,2,79 box cadre
@ 3,0,3,79 box zone_date
@ 3,3 say time()
@ 3,70 say date()
@ 1,1,1,78 box chr(176)
SET COLOR TO G/N
@ 1,26 say " Cr‚er une fiche adresse "
SET COLOR TO G+R/N
@ 4,0,19,79 box cadre
@ 20,1,20,78 box chr(176)
@ 22,0,24,79 box cadre
SET COLOR TO W/N
@ 03,25 say " touche ENTREE pour terminer "
SET COLOR TO G+R/N
@ 06, 26 SAY " O B S E R V A T I O N S "
@ 09, 05 GET ELITEL->OBS1
@ 10, 05 GET ELITEL->OBS2
@ 11, 05 GET ELITEL->OBS3
@ 12, 05 GET ELITEL->OBS4
@ 13, 05 GET ELITEL->OBS5
@ 14, 05 GET ELITEL->OBS6
@ 15, 05 GET ELITEL->OBS7
@ 16, 05 GET ELITEL->OBS8
@ 17, 05 GET ELITEL->OBS9
@ 18, 05 GET ELITEL->OBS10
READ
REPLACE NOM WITH NUMENTRE
STORE " " TO WAIT_SUBST
@ 23,15 SAY "pressez une touche pour continuer .." GET WAIT_SUBST
READ
SET CONFIRM ON
ENDIF
ELSE
***************** ICI POUR LA MODIF ***********
@ 20,00
zone_date := replicate(chr(176), 9)
*
cadre :=chr(201)+chr(205)+chr(187)+;
chr(186)+chr(188)+chr(205)+;
chr(200)+chr(186)+chr(0)
*
@ 0,0,2,79 box cadre
@ 3,0,3,79 box zone_date
@ 3,3 say time()
@ 3,70 say date()
@ 1,1,1,78 box chr(176)
SET COLOR TO G/N
@ 1,26 say " Cr‚er une fiche adresse "
SET COLOR TO G+R/N
@ 4,0,19,79 box cadre
@ 20,1,20,78 box chr(176)
@ 22,0,24,79 box cadre
@ 11,24 to 15,72 double
@ 12,30 SAY " Le non de cette personne "
set color to w/r
@ 13,40 SAY nom
set color to
set color to g+r/n
@ 14,30 SAY " Existe d‚ja "
STORE " " TO WAIT_SUBST
@ 23,15 SAY "pressez une touche pour continuer .." GET WAIT_SUBST
READ
SET CONFIRM ON
ENDIF
ENDDO
CLEAR
************* FIN DE CREART.PRG ****************
d'aprés vos réponses vous maitrisez le langage clipper,
svp si vous pouvez m'éclaircir car j'en ai vraiment besoin, je suis un programmeur en clipper, j'ai un prg qui contient la commande (sort ) pour trier la base de donnee, en lançant l'exe correspondant , il marche dans des pc et pas dans d'autres,je ne comprends rien ; aussi cmnt imprimer en usb (programme clipper) merci bcp
svp si vous pouvez m'éclaircir car j'en ai vraiment besoin, je suis un programmeur en clipper, j'ai un prg qui contient la commande (sort ) pour trier la base de donnee, en lançant l'exe correspondant , il marche dans des pc et pas dans d'autres,je ne comprends rien ; aussi cmnt imprimer en usb (programme clipper) merci bcp
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
salut le monde
je le prog source d'un menu.prg comme le menu de editeur de text du dos
edit.exe
-le guide ng.exe en français si posible
-les fonction de menu (menuItem( ),popup( ),et plus..........)
-le prog de la souris.prg
avec l'espoir de recevoir d'une suite favorable
S.V.P
merci a tous
je le prog source d'un menu.prg comme le menu de editeur de text du dos
edit.exe
-le guide ng.exe en français si posible
-les fonction de menu (menuItem( ),popup( ),et plus..........)
-le prog de la souris.prg
avec l'espoir de recevoir d'une suite favorable
S.V.P
merci a tous
bonjour
pkoi lorsque je compil mes prg(ancien prg sous dos) et faire des liens par rtlink sour windowsXP la calculatrice (fonction Popcalc)inluse dans les prg ne fonctionne pas?? et d'autres aussi comme boxshadow..etc
pkoi lorsque je compil mes prg(ancien prg sous dos) et faire des liens par rtlink sour windowsXP la calculatrice (fonction Popcalc)inluse dans les prg ne fonctionne pas?? et d'autres aussi comme boxshadow..etc
slt azzedine meme si je t envoi ng.exe c est a dire laide de clipper tu ne va rien comprendre
il te faut quelqu un qui puisse te mettre sur les rail contacter moir sur ma boite
faycal.trans@yahoo.fr
il te faut quelqu un qui puisse te mettre sur les rail contacter moir sur ma boite
faycal.trans@yahoo.fr
Je désire me procurer le langage de programmation Clipper5. Où l'avoir?
Je suis en Côte d'Ivoire_Afrique de l'ouest
Je suis en Côte d'Ivoire_Afrique de l'ouest
31 mars 2005 à 18:37
je cherche le ng de clipper
mon email : babel333@yahoo.com
merci d'avance
15 août 2005 à 21:07
7 juin 2007 à 19:57
faycal.trans@yahoo.fr
7 juin 2007 à 20:03
exp edit faycal.prg et vous pouvez ecrire votre programme un fois fini sauvegarder le apres vous le clipper pour plus d information contacter moi sur ma boite
faycal.trans@yahoo.fr
20 mars 2008 à 17:50