TCL demandant l'utilisateur pour plusieurs entrées

Question

J'essaye de poser à un utilisateur plusieurs questions de sorte qu'une machine puisse faire des pièces selon les entrées. Les entrées doivent être sauvegardées en tant que variables à appeler plus tard dans le programme. J'ai écrit le code ci-dessous et demande de l'aide pour comprendre pourquoi il ne fonctionne pas. Je reçois des erreurs avec la commande puts ainsi que le programme n'attend pas de réponse après chaque question. Comme vous pouvez le voir, je suis nouveau à ce sujet et je serais reconnaissant pour les indications que vous pouvez fournir. Merci d'avance.

#Asks user for diameter of probe 
    flush stdout; 
    puts “Enter Diameter ” 
    gets stdin diameter 
    #Asks user for Taper Length of probe 
    flush stdout; 
    puts “Enter Taper Length ” 
    gets stdin taper 
    #Asks user for tip shape of probe 
    flush stdout; 
    puts “Enter Tip Shape s=sharp, r=radius and f=flat” 
    gets stdin shape 
    # Prompt for tip size 
    flush stdout; 
    if {r} { 
    puts “Enter Radius Size ” 
    gets stdin radius 
    } elseif {d}{ 
    puts “Enter Diameter Size” 
    gets stdin diameter 
    } 

Answer 1

Il a été déterminé que parce que les guillemets ont été écrits en utilisant MS Word, ils étaient le type incorrect qui a conduit à l'erreur. Cela a été rectifié en les supprimant et en ajoutant des citations dans Notepad ++. L'instruction if a également été corrigée en utilisant (if {$shape == "r"}) et (elseif {$shape == "f"}). Merci de votre aide.