20.इंटरैक्टिव
इस लेसन में हम यूजर से इनपुट लेना सीखेंगे
स्क्रीन को पहले क्लियर कर लें
readword कमांड यूजर से इनपुट लेता है. उसे हमने बताये हुए वेरिएबल में स्टोर करता है
make "name readword
इसमें make कमांड से हम वेरिएबल में वैल्यू स्टोर करते हैं
"name यह हमारा वेरिएबल है
readword कमांड यह यूजर से इनपुट लेगा
@ इसे रन करें और स्क्रीन पर आये हुए एक पॉप अप विंडो मे अपना नाम टाइप करें
यूजर ने जो भी नाम इसमें एंटर किया वह "name वेरिएबल में स्टोर हो चुका
अब हम print :name कमांड से उसे स्क्रीन पर प्रिंट कर सकते हैं
@ इसे कर के देखें
readword में जो विंडो खुलता है उसमे कोई प्रांप्ट नहीं है. हम उसमे प्रांप्ट जोड़ सकते हैं.
make "name ( readword [Please type your name] )
@ इसे कर के देखें
हम यूजर से नंबर इनपुट भी ले सकते हैं. जिसका उपयोग हम पॉलीगॉन मे कर सकते हैं. जैसे
make "edges ( readword [please enter number of edges] )
@ इसे कर के देखें . स्क्रीन पर पूरा पॉलीगॉन दिखने के लिए 3 से लेकर 9 तक का नंबर एंटर करें
हमने edges नाम का वेरिएबल बना कर उसमें यूजर ने लिखा हुआ नंबर स्टोर किया. अब हम इसका प्रयोग पॉलीगॉन बनाने के लिए कर सकते हैं
repeat :edges [fd 100 rt 360/:edges]
@ इसे कर के देखें