Un peu d'aide avec quick basic svp

Un peu d'aide avec quick basic svp - Algo - Programmation

Marsh Posté le 24-12-2002 à 10:50:06    

bonjour et bonnes fêtes de fin d'année.
 
voila je suis en terminale info & gestion et donc on travail un peu sous quick basic, c'est pas mal comme programme.
chez moi je "m'amuse" à faire de petits aglos simple parceque pour le moment les euls choses que l'on a vu ce sont les commandes : PRINT, INPUT, CLS, IF;then;else;END IF, While;Wend, for i = * to n;next i, do;loop until, color *.
ça limite quand même les possibilités de sortir un programme :).
voila donc en ce moment je me fais un pti algo qui me permettra d'envoyer un message sur mon réseau (net send) quand on lance l'algo, on inscrit soi le nom du reseau, soi le nom de la machine distante, ensuite on met le message et voila.
mon problème est que je voudrais que lorsque j'écri le nom de la machine ou du réseau, il soit tout de suite envoyer dans un document "traitement.txt", afin que les informations entrées soient récupérées par "cmd.exe" pour qu'il envoi le message.
ensuite je veux que le document "traitement.txt" redevienne vierge, pour que je puisse envoyer d'autres messages.
 
je sais que je m'explique mal je suis désolé, peut etre que cela parait compliqué et je sais que des prog comme celui ci doivent exister mais le plaisir de le faire sois-meme est bien mieux.
 
je vous remercie par avance, pour ceux qui voudrait voir ce que j'ai deja fait sous quick basic voici mon code :
 

Code :
  1. CLS
  2. COLOR 10, 1
  3. PRINT "Bienvenue dans le programme d'envoi de messages par net send"
  4. PRINT "Ce programme a ete cree sous quick basic par David S."
  5. PRINT
  6. PRINT "Que veux-tu faire ?"
  7. INPUT "(1) Message sur le reseau entier, (2) message prive "; ch1
  8. IF ch1 = 1 THEN
  9.         INPUT "Quel est le nom du reseau "; rez$
  10.         WHILE rez$ = ""
  11.                 PRINT
  12.                 INPUT "Quel est le nom du reseau "; rez$
  13.         WEND
  14.         PRINT "Envoyer un message sur ce reseau"
  15.         INPUT "(O) pour Oui et (N) pour Non "; rep$
  16.         WHILE rep$ = "o"
  17.                 PRINT
  18.                 INPUT "Quel est le message a envoyer "; msg1$
  19.                 WHILE msg1$ = ""
  20.                         PRINT
  21.                         INPUT "Quel est le message a envoyer "; msg1$
  22.                 WEND
  23.                 PRINT "Ton message est en cours d'envoi ..."
  24.                 PRINT
  25.                 INPUT "Y a t-il un autre message ? envoyer "; rep$
  26.                 PRINT "(O) pour Oui et (N) pour Non"
  27.         WEND
  28.         PRINT "Ton message est en cours d'envoi ..."
  29.         PRINT "@ Bientot"
  31.         ELSE INPUT "Quel est le nom ou l'IP de la machine distante "; name$
  32.         WHILE name$ = ""
  33.                 PRINT
  34.                 INPUT "Quel est le nom ou l'IP de la machine distante "; name$
  35.         WEND
  36.         PRINT
  37.         INPUT "Quel est le message a envoyer "; msg$
  38.         WHILE msg$ = ""
  39.                 PRINT
  40.                 INPUT "Quel est le message a envoyer "; msg$
  41.         WEND
  42. END IF


 
encore une fois mercie

Reply

Marsh Posté le 24-12-2002 à 10:50:06   

Reply

Marsh Posté le 24-12-2002 à 12:32:13    

un tout petit up  :bounce:  
 
:)

Reply

Marsh Posté le 24-12-2002 à 13:41:53    

j'ai avancé un peut j'ai trouvé la commande pour executer cmd.exe
donc c'est  
 

Code :
  1. ...
  2. Shell "net send"
  3. ...


 
mais apres je suis bloqué, comment faire pour mettre ce que l'on veut automatiquement, voila un code simple de ce que j'attend :
 

Code :
  1. CLS
  2. PRINT "nom pc"
  3. INPUT nom$
  4. PRINT "message"
  5. INPUT msg$
  6. SHELL "net send"


 
donc la je ne sais pas comment insérer mes variables "nom$" et "msg$" afin que le message s'envoi automatiquement.
j'ai abandonné l'idéé d'enregistrer dans un fichier, je traite directement les données.
 
svp aidez moi.

Reply

Marsh Posté le 24-12-2002 à 13:49:05    

La concaténation c'est pas comme ça en Qbasic :
 

Code :
  1. SHELL "net send " ; nom$ ; " " ; msg$


 
C'est loin tout ça ^^

Reply

Marsh Posté le 24-12-2002 à 13:50:35    

oula yes,
 
je test c'est marrant c'est toujours toi qui repond :) merci encore *syl*

Reply

Marsh Posté le 24-12-2002 à 13:52:37    

il en veux pas le pti quick basic, me semblait bien que j'avais essaye ca :cry:
il me dis attendu fin d'instruction en selectionnant  
 

Code :
  1. ; nom$

Reply

Marsh Posté le 24-12-2002 à 13:52:40    

Sont tous en vacances les autres, ils se reposent..:)
Et moi j'ai plus besoin de me reposer : j'suis en vacances forcées depuis 6 mois maintenant :o  
 
Chômage powaaa ! :pfff:

Reply

Marsh Posté le 24-12-2002 à 13:53:23    

arf ok desole *syl*

Reply

Marsh Posté le 24-12-2002 à 13:57:03    

Essaie ça alors, j'viens de vérifier sur le net et pour concaténer c'est +
Le ; c'est dans les PRINT
 

Code :
  1. SHELL "net send " + nom$ + " " + msg$


Message édité par *syl* le 24-12-2002 à 13:57:25
Reply

Marsh Posté le 24-12-2002 à 13:57:58    

ok je test

Reply

Marsh Posté le 24-12-2002 à 13:57:58   

Reply

Marsh Posté le 24-12-2002 à 13:59:48    

et la je dis  :jap:  MONSIEUR
 
merci top fort  :hello:  
 
ca fonctionne a merveille, en plus j'aurai appri un truc.
 
bonne fetes a toi *syl* :bounce:  

Reply

Marsh Posté le 24-12-2002 à 14:02:50    

Si tu veux faire joujou avec netsend, tu peux d/l ça :
http://forum.ikarer.free.fr/download/syl/NetSend.exe
Ça permet juste de te faire passer pour qq'un d'autre..:)
 
Bonne fêtes à toi aussi  :hello:

Reply

Marsh Posté le 24-12-2002 à 14:04:30    

lol ok merci  
@ bientot  :hello:

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed