Langage clipper
azzedine
-
kada00 -
kada00 -
Salut tout le monde ,
Cherche une documantation sur le langage clipper
Cherche une documantation sur le langage clipper
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"-
-
-
-
il n y a pas de probelmme de lancer l editeur de texte sur clipper parce que clipper n a pas d editeur special tu peut travailler avec n iporte quel editeur exemple vous lancer edit sous votre micro suivi du nom du programme que vous voulez editer suivi de l extention prg
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 -
-
-
-
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
-
-
je cherche des documents trés facile sur les programmatios en langage clipper et delphi et systéme d-information
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 **************** -
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 -
-
-
-
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 -
-
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 -
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 -
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 possède clipper 5 ainsi que le ng, je les zipperai afin de vous les envoyer, actuellemnt je travaille avec delphi 7 et j'utilise toujours clipper pour traiter mes donnés plus rapidement et plus directement.
