Résultats de 1 à 7 sur 7

Sujet : FORUM FoxPro !!!

  1. #1
    Membre MP
    Inscrit
    août 2013
    Messages
    2 538

    FORUM FoxPro !!!

    Bonjour à tous, Voila le nouveau forum moteurprog sur FoxPro est ouvert. Vous pouvez désormais posez vos questions, les modérateurs et les membres MoteurProg sont prêt à vous répondre !! le forum étant encore actuellement en phase de test, je vous invite à me rapporter tout les bugs dans ce thread !! Merci d'avance Amicalement webmaster MoteurProg
    Admin retraité du site MoteurProg.Com" la meilleur façon de remercier est de pouvoir aider les autres à son tour !! "http://www.moteurprog.com

  2. #2
    Membre MP
    Inscrit
    août 2013
    Messages
    1
    slt kekun pourrait il faire un tuto pour foxpro???
    merci d\'avance

  3. #3
    Visiteur MP
    Visiteur MP
    bonjour,
    aide pour écrire sous excel à partir de foxpro2.1
    en choisissant sa cellule
    merci

  4. #4
    Visiteur MP
    Visiteur MP
    salut
    j\'ai conçu un prog de facturation qui marche tres bien sauf que

    quand j\'imprime un nombre de facture la convertion du total en lettre ne se fait que dans la premeir facutre
    merci

  5. #5
    Membre MP
    Inscrit
    août 2013
    Messages
    1
    je ne peut vous repondre avec exactitude
    donne nous encore un peut plus de details ou est ce que tu sauvegarde le text : variable,champ.

  6. #6
    Salut ,
    voici une fonction (ou plutot un jeu) de procedure qui écrit pour moi les nombres en toutes lettres depuis des années.
    Il suffit de lui passer la valeur à transcrire par paramètre.
    Par défaut, la monnaie est l\'euro. Si on a besoin d\'une autre monnaie, on utilise le 2e parametre.
    Il y a un programme intégré pour tester la fonction

    Code:
    * Renvoie une chaîne de caractères équivalente au nombre
    * passé en paramètre, écrite en toutes lettres suivant les
    * règle de la langue française.
    
    * Janvier 99: modification pour l\'EURO (version 2)
    
    * do TEST
    
    
    
    * =========================== FRANCS =====================
    function FRANCSEU
    *Ecriture des nombres en chiffres
    param SOMME,MONNAIE
    dimen CHIFFRE(6),UNI(9),DIZ(9),DIZAINE(9)
    private RETOUR
    store 0 to CHIFFRE
    store \"\" to UNI,DIZ,DIZAINE
    store .F. to MILLE
    do INI
    
    if MONNAIE=\"E\"
      STSOMME=alltrim(str(SOMME,9,2))
      FRACTION=\"0000\"+right(STSOMME,2)
    endif
    
    STSOMME=chrtran(str(int(SOMME),6,0),\" \",\"0\")
      
    for I=6 to 1 step -1
      CHIFFRE(I)=substr(STSOMME,I,1)
    endfor
    
    RETOUR=MOITIE(0)+MOITIE(3)
    RETOUR=left(RETOUR,1)+lower(substr(RETOUR,2))+iif(MONNAIE=\"B\",\" FRANCS\",\" EUROS\")
    if MONNAIE=\"E\" and FRACTION # \"000000\"
      for I=6 to 1 step -1
        CHIFFRE(I)=substr(FRACTION,I,1)
      endfor
      RETOUR=RETOUR+\" \"+lower(MOITIE(0)+MOITIE(3))+iif(val(FRACTION)>1,\" CENTS\",\" CENT\")
    endif
    
    return RETOUR
    
    * ------------------------------- MOITIE -------------------
    function MOITIE
    param OFFSET
    private  RETOUR
    RETOUR=\"\"
    
    do case
      case CHIFFRE(1+OFFSET)=\"1\"
        RETOUR=\"CENT \"
      case CHIFFRE(1+OFFSET)>\"1\"
        RETOUR=UNI(val(CHIFFRE(1+OFFSET)))+\"CENT \"
      case CHIFFRE(1+OFFSET)=\"0\"  
    endcase
    do case
      case CHIFFRE(2+OFFSET)=\"0\"
      case CHIFFRE(2+OFFSET)=\"1\" and CHIFFRE(3+OFFSET)=\"0\"
        RETOUR=RETOUR+\"DIX \"
      case CHIFFRE(2+OFFSET)=\"1\" 
        RETOUR=RETOUR+DIZ(val(CHIFFRE(3+OFFSET)))
      case CHIFFRE(2+OFFSET)>\"1\"
        RETOUR=RETOUR+DIZAINE(val(CHIFFRE(2+OFFSET)))
    endcase
    do case
      case OFFSET=0 and CHIFFRE(1)+CHIFFRE(2)+CHIFFRE(3)=\"001\"
      case CHIFFRE(2+OFFSET)=\"1\"
      case OFFSET=3 and CHIFFRE(5)=\"8\" and CHIFFRE(6)=\"0\"
        RETOUR=RETOUR+\"S\"
      case CHIFFRE(3+OFFSET)=\"0\" and CHIFFRE(2+OFFSET)=\"0\" and CHIFFRE(1+OFFSET)>\"1\"
        RETOUR=stuff(RETOUR,len(RETOUR),1,\"S\")
      case CHIFFRE(3+OFFSET)=\"0\"
      case CHIFFRE(3+OFFSET)=\"1\" and CHIFFRE(2+OFFSET)=\"8\"
        RETOUR=RETOUR+\"-\"+UNI(val(CHIFFRE(3+OFFSET)))
      case CHIFFRE(3+OFFSET)=\"1\" and CHIFFRE(2+OFFSET)#\"0\"
        RETOUR=RETOUR+\"-ET-\"+UNI(val(CHIFFRE(3+OFFSET)))
      case CHIFFRE(2+OFFSET)=\"0\"
        RETOUR=RETOUR+UNI(val(CHIFFRE(3+OFFSET)))
      otherwise
        RETOUR=RETOUR+\"-\"+UNI(val(CHIFFRE(3+OFFSET)))
    endcase
    if OFFSET=0 and CHIFFRE(1)+CHIFFRE(2)+CHIFFRE(3)#\"000\"
      RETOUR=RETOUR+ \"MILLE \"
    endif    
    if right(RETOUR,1)=\" \" and OFFSET=3
      RETOUR=left(RETOUR,len(RETOUR)-1)
    endif  
    return RETOUR
    
    * ------------------------------- INI -----------------------
    procedure INI
    
    UNI(1)=\"UN \"
    UNI(2)=\"DEUX \"
    UNI(3)=\"TROIS \"
    UNI(4)=\"QUATRE \"
    UNI(5)=\"CINQ \"
    UNI(6)=\"SIX \"
    UNI(7)=\"SEPT \"
    UNI(8)=\"HUIT \"
    UNI(9)=\"NEUF \"
    
    DIZ(1)=\"ONZE \"
    DIZ(2)=\"DOUZE \"
    DIZ(3)=\"TREIZE \"
    DIZ(4)=\"QUATORZE \"
    DIZ(5)=\"QUINZE \"
    DIZ(6)=\"SEIZE \"
    DIZ(7)=\"DIX-SEPT \"
    DIZ(8)=\"DIX-HUIT \"
    DIZ(9)=\"DIX-NEUF \"
    
    DIZAINE(1)=\"DIX\"
    DIZAINE(2)=\"VINGT\"
    DIZAINE(3)=\"TRENTE\"
    DIZAINE(4)=\"QUARANTE\"
    DIZAINE(5)=\"CINQUANTE\"
    DIZAINE(6)=\"SOIXANTE\"
    DIZAINE(7)=\"SEPTANTE\"
    DIZAINE(8)=\"QUATRE-VINGT\"
    DIZAINE(9)=\"NONANTE\"
    
    return
    
    * ===================================== TEST =================
    procedure TEST
    
    A=218
    TOUCHE=\"\"
    do while TOUCHE # \"q\"
      ***** Changer le B en E dans la ligne suivante pour tester l\'Euro
      LETTRE=FRANCSEU(a,\"B\")
      wait to TOUCHE
      do case
        case TOUCHE=\"+\"
          A=A+1
        case TOUCHE=\"-\"
          A=A-1
        case TOUCHE=\"*\"
          A=A+0.01
        case TOUCHE=\"/\"
          A=A-0.01
        case TOUCHE=\"3\"
          A=A+0.1
        case TOUCHE=\"1\"
          A=A-0.1
      
      endcase      
    enddo
    
    canc
    Bon amusement,
    Mike

  7. #7
    a propos de tutorial, VFP est un tel outil que cela va être difficile. Les développeurs francophones sont en train de se rassembler en association et un des axes est \"l\'aide aux débutants\". On va donc essayer de créer des documents \"de démarrage\".

    Entre temps, si tu as des questions ...

    Dis moi aussi si tu parles anglais, parce qu\'il existe beaucoup de choses aux USA.
    Jean à Grenoble

Informations du sujet

Utilisateur(s) parcourant ce sujet

il y a actuellement 1 utilisateur(s) parcourant ce sujet. (0 membre(s) et 1 visiteur(s))

Règles des messages

  • Vous ne pouvez pas créer de sujets
  • Vous ne pouvez pas répondre aux sujets
  • Vous ne pouvez pas importer de fichiers joints
  • Vous ne pouvez pas éditer vos messages
  •  
  • Les BB codes sont Activés
  • Les Smileys sont Activés
  • Le BB code [IMG] est Activé
  • Le code [VIDEO] est Activé
  • Le code HTML est Désactivé
Please disable Adblock!