> Tous les forums > Forum Autres langages
 Commande pour exécuter un fichier .PRGSujet résolu
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
Le_Siberien
  Posté le 24/03/2018 @ 17:18 
Aller en bas de la page 
Astucien

tlm,

J'ai créé un petit programme sous Dbase avec l'extension .PRG et j'aimerais l'exécuter, pour voir comment le programme se présente, mais du coup j'ai un trou de mémoire et j'ai complétement oublié la commande.

Quelqu'un saurait me rappeler la commande ?

Merci d'avance pour vos réponses.

Publicité
poussebois
 Posté le 25/03/2018 à 07:47 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Maître astucien

Bonjour ,

Je ne connais pas dBase, mais j'ai trouvé la liste de toutes les commandes ici.

Cherche du côté de COMPILE, SET LIBRARY ou de SET PROCEDURE.

@ +

Le_Siberien
 Posté le 25/03/2018 à 14:00 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

poussebois a écrit :

Bonjour ,

Je ne connais pas dBase, mais j'ai trouvé la liste de toutes les commandes ici.

Cherche du côté de COMPILE, SET LIBRARY ou de SET PROCEDURE.

@ +

,

Je te remercie pour ta réponse, toutefois ces commandes là je les connais et elles sont utilisées à l'intérieur du programme que j'ai créé. Ce que je veux c'est qu'on m'aide à me souvenir de la commande qui me permettra d'exécuter mon .PRG pour voir comment ce dernier se présente, s'il faut modifier ou bien ajouter quelque chose. C'est après ces vérifications que si le résultat me satisfait, je compilerai alors tous les modules en .EXE.
Voici le module en question que je souhaite exécuter :

* Programme: CHANSONS.PRG
* Auteur...: Le Sibérien
* Date.....: 20/03/2018

CLEAR ALL
IF ISCOLOR()
SET COLOR ON
ELSE
SET COLOR OFF
ENDIF
SET COLOR TO W/B
CLEAR
SET TALK OFF
SET BELL OFF
SET STAT OFF
SET SCOR OFF
SET SAFE OFF
SET ESCA ON
USE CHANSONS INDEX PAYS,ABREGE,TOTALP
DO WHILE .T.
@ 00,00 TO 04,79 DOUBLE
@ 02,01 TO 02,78 DOUBLE
@ 01,21 SAY ' CONCOURS EUROVISION DE LA CHANSON '
@ 01,55 SAY YEAR(DATE())
STORE '( 1 ) CREATION ( 2 ) FIN DE TRAVAIL [ ]' TO CHOIX
@ 24,56 say "(c) L.I.C. Informatique"
STORE 2 TO NUM
@ 03,(80-LEN(CHOIX))/2 SAY CHOIX
@ 03,59 GET NUM PICTURE '9'
READ
DO CASE
CASE NUM=1
DO CREE
CASE NUM=2
CLEAR ALL
SET COLOR TO
CLEAR
RETURN
ENDCASE
ENDDO
RETURN

* EOF : CHANSONS.PRG

C'est bête, car il y a quelques années de ça, j'avais déjà créé ce même type de programme et je savais bien comment y faire, mais voilà les années passent et je suis resté trop longtemps sans programmer et maintenant je ne me souvient plus de la commande qui permet d'exécuter ces modules.



Modifié par Le_Siberien le 25/03/2018 14:15
Titi12
 Posté le 27/03/2018 à 11:13 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonjour,

Si tu essayais tout simplement do CHANSONS.PRG.

@++

Le_Siberien
 Posté le 27/03/2018 à 14:32 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Titi12 a écrit :

Bonjour,

Si tu essayais tout simplement do CHANSONS.PRG.

@++

,

Je crois bien que tu as raison. C'est la commande DO mais comme il y a une erreur dans le module, forcement Dbase répond erreur de syntaxe et ça ne vas pas plus loin.

Je vais corriger tout cela et si jamais je reviendrais sur le sujet. Pour l'heure je vais considérer mon problème comme résolu et cela grâce à toi. Merci.



Modifié par Le_Siberien le 27/03/2018 16:30
Titi12
 Posté le 27/03/2018 à 18:33 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Cela fait 30 ans que je ne pratique plus dBaseIII, donc mes souvenirs sont minuscules. Ça me donne envie de m'y replonger. Par contre si je ne m'abuse, il ne fonctionne qu'en 16 bits.

Qu’utilises tu pour virtualiser MS-Dos ?

@++

Le_Siberien
 Posté le 28/03/2018 à 12:11 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Titi12 a écrit :

Cela fait 30 ans que je ne pratique plus dBaseIII, donc mes souvenirs sont minuscules. Ça me donne envie de m'y replonger. Par contre si je ne m'abuse, il ne fonctionne qu'en 16 bits.

Qu’utilises tu pour virtualiser MS-Dos ?

@++

,

J'utilise DOSBox.

Titi12
 Posté le 28/03/2018 à 18:51 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

C'est dingue, c'est comme le vélo, ça s'oublie pas? Que de souvenirs... J'arrête là, sinon je vais me remettre au Basic...........

@++

zoulouman
 Posté le 29/03/2018 à 02:21 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

DBase existe encore ? Ben alors !

Page : [1] 
Page 1 sur 1

Vous devez être connecté pour poster des messages. Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !


Les bons plans du moment PC Astuces

Tous les Bons Plans
99,99 €Pack HP Imprimante Photo Sprocket 200 blanche + housse + 20 papiers photos à 99,99 €
Valable jusqu'au 24 Février

La Fnac fait une promotion sur le pack HP Imprimante Photo Sprocket 200 accompagnée d'une housse et de 20 papiers photos à 99,99 € alors qu'on le trouve ailleurs à 129 €. L'imprimante Photo Sprocket 200 va vous permettre d'imprimer des photos instantanées de 5 x 7,6 cm (2 x 3") depuis votre smartphone via le bluetooth. 


> Voir l'offre
141,99 €SSD externe portable USB 3.1 SanDisk Extreme 1 To à 141,99 €
Valable jusqu'au 24 Février

Amazon fait une promotion sur le SSD externe portable USB 3.1 SanDisk Extreme 1 To qui passe à 141,99 € livré gratuitement alors qu'on le trouve à 180 € ailleurs. Le disque SSD SanDisk Extreme portable est plus de deux fois plus petit que la taille de votre smartphone et fournit jusqu'à 5 fois la vitesse d'un disque dur portable. Apprenez à travailler en quelques secondes, transférez de grandes bibliothèques de vidéos et de photos à des vitesses pouvant atteindre 550 Mo/s. Vous ne craindrez pas de l'emporter partout avec vous grâce à sa conception robuste et résistante avec un coeur de SSD résistant aux chocs. Le logiciel SanDisk inclu SecureAccess peut crypter vos fichiers personnels. Garantie 3 ans. Résiste à l'eau (IP55). Interface : USB 3.1 Type A et C.


> Voir l'offre
GratuitJeu PC Faeria gratuit
Valable jusqu'au 27 Février

Epic Game Store offre actuellement le jeu PC Faeria. Faeria est un jeu de cartes. Construisez des decks incroyables et façonnez le champ de bataille dans des combats épiques. Élevez des montagnes, bâtissez des forêts, remplissez des lacs, ou maîtrisez le sable du désert. Tracez votre propre chemin vers la victoire.


> Voir l'offre

Sujets relatifs
Quel langage pour extraire un fichier de zip 3e niveau
Commande batch pour ouvrir plusieurs fichiers windows 8
macro excell pour ouverture fichier avec password
commande dos pour lancer cmd en admin
recherche un logiciel pour ouvrir un fichier
aide pour fichier .bat
Commande DIR sous DOS +cacher l'extension fichier?
Petit coup de main pour un fichier "batch" svp
fichier bat pour sauvegarde
batch pour modifier un fichier texte
Plus de sujets relatifs à Commande pour exécuter un fichier .PRG
 > Tous les forums > Forum Autres langages