Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1535 connectés 

  FORUM HardWare.fr
  Programmation
  Algo

  Un peu d'aide avec quick basic svp

 
 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Un peu d'aide avec quick basic svp

n°275433
k2t
Posté le 24-12-2002 à 10:50:06  profilanswer
 

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

mood
Publicité
Posté le 24-12-2002 à 10:50:06  profilanswer
 

n°275475
k2t
Posté le 24-12-2002 à 12:32:13  profilanswer
 

un tout petit up  :bounce:  
 
:)

n°275495
k2t
Posté le 24-12-2002 à 13:41:53  profilanswer
 

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.

n°275498
*syl*
--> []
Posté le 24-12-2002 à 13:49:05  profilanswer
 

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

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


 
C'est loin tout ça ^^

n°275499
k2t
Posté le 24-12-2002 à 13:50:35  profilanswer
 

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

n°275502
k2t
Posté le 24-12-2002 à 13:52:37  profilanswer
 

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$

n°275503
*syl*
--> []
Posté le 24-12-2002 à 13:52:40  profilanswer
 

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:

n°275504
k2t
Posté le 24-12-2002 à 13:53:23  profilanswer
 

arf ok desole *syl*

n°275509
*syl*
--> []
Posté le 24-12-2002 à 13:57:03  profilanswer
 

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
n°275510
k2t
Posté le 24-12-2002 à 13:57:58  profilanswer
 

ok je test

mood
Publicité
Posté le 24-12-2002 à 13:57:58  profilanswer
 

n°275511
k2t
Posté le 24-12-2002 à 13:59:48  profilanswer
 

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:  

n°275513
*syl*
--> []
Posté le 24-12-2002 à 14:02:50  profilanswer
 

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:

n°275514
k2t
Posté le 24-12-2002 à 14:04:30  profilanswer
 

lol ok merci  
@ bientot  :hello:


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  Algo

  Un peu d'aide avec quick basic svp

 

Sujets relatifs
[PHP] Forum du type CoolForum (et Vbulletin) sur free, aide !! svp :)visual basic 6
aide formulaireAide
[INTRANET] aide débutantbesoin d'aide pour trouver un forum qui pourrait convenir...
[C] Petit prob quand je compile :/ besoin d'aidebesoin d'aide vba excel
[Java] besoin d'aide bidouillage BigInteger BigDecimalBATCH DOS Besoin d'aide : Erreur bizar !!!
Plus de sujets relatifs à : Un peu d'aide avec quick basic svp

Forum MesDiscussions.Net, Version 2010.2
(c) 2000-2011 Doctissimo
Page générée en 0.098 secondes

Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR