টিসিএল (Tcl) - Events এর মাধ্যমে Interactive Applications তৈরি
Event-Driven Programming হলো একটি প্রোগ্রামিং কৌশল, যেখানে প্রোগ্রামের আচরণ ব্যবহারকারীর ইন্টারঅ্যাকশনের মাধ্যমে নির্ধারিত হয়। Tk টুলকিট ব্যবহার করে টিসিএল-এ interactive applications তৈরি করা সম্ভব, যেখানে ইভেন্ট (যেমন মাউস ক্লিক, কীবোর্ড ইনপুট, উইন্ডো ফোকাস ইত্যাদি) ব্যবহারকারীর ইনপুট হিসাবে কাজ করে এবং অ্যাপ্লিকেশনটি সেই অনুযায়ী প্রতিক্রিয়া দেখায়।
এখানে Events এর মাধ্যমে Interactive Applications তৈরি করার কৌশল এবং উদাহরণ দেওয়া হয়েছে।
১. Event-Driven Programming (ইভেন্ট-ড্রিভেন প্রোগ্রামিং)
Event-Driven Programming একটি পদ্ধতি যেখানে একটি অ্যাপ্লিকেশন তার অবস্থা পরিবর্তন করে ইভেন্টগুলির প্রতি প্রতিক্রিয়া জানায়। টিসিএল ও Tk এর মাধ্যমে আপনি বিভিন্ন ধরনের ইভেন্টগুলির জন্য হ্যান্ডলার তৈরি করতে পারেন, যা তখন অ্যাপ্লিকেশনের কার্যকলাপ নিয়ন্ত্রণ করে।
২. Events Types in Tk
Tk অ্যাপ্লিকেশনে প্রধান ইভেন্টগুলির মধ্যে কিছু সাধারণ ইভেন্ট হল:
: মাউস বাটন ১ (লেফট ক্লিক) : স্ক্রোল বাটন : মাউস বাটন ৩ (রাইট ক্লিক) : কীবোর্ডে কোনো কী প্রেস করা : মাউস মুভমেন্ট : মাউস উইন্ডোর মধ্যে প্রবেশ : মাউস উইন্ডোর বাইরে চলে যাওয়া
৩. Interactive Applications এর উদাহরণ
এখানে একটি interactive application তৈরির উদাহরণ দেখানো হলো, যেখানে একটি উইন্ডোতে মাউস ক্লিক করলে একটি মেসেজ প্রিন্ট হবে এবং কীবোর্ড ইনপুট নেওয়া হবে।
৩.১. মাউস ক্লিক ইভেন্ট হ্যান্ডলিং
package require Tk
# উইন্ডো তৈরি
set win [tk::toplevel .]
# বাটন তৈরি
button $win.b1 -text "Click Me"
# মাউস ক্লিক ইভেন্ট হ্যান্ডলিং
bind $win.b1 <Button-1> {puts "Button clicked!"}
# উইন্ডো প্রদর্শন
pack $win.b1
# Tk Main Loop
tk::mainloopএখানে, <Button-1> ইভেন্টটি বাটনে ক্লিক করলে "Button clicked!" মেসেজ প্রিন্ট করবে। ব্যবহারকারী যখন বাটনটি ক্লিক করবেন, তখন bind কমান্ডটি সেই ইভেন্টটি ট্রিগার করবে এবং হ্যান্ডলার চালাবে।
৩.২. কীবোর্ড ইনপুট ইভেন্ট হ্যান্ডলিং
package require Tk
# উইন্ডো তৈরি
set win [tk::toplevel .]
# কীবোর্ড ইনপুট হ্যান্ডলারের ফাংশন
proc handleKeyPress {key} {
puts "Key pressed: $key"
}
# কীবোর্ড ইভেন্ট হ্যান্ডলিং
bind $win <KeyPress> {handleKeyPress %K}
# উইন্ডো প্রদর্শন
tk::mainloopএখানে, <KeyPress> ইভেন্টটি কীবোর্ডে যেকোনো কী প্রেস করলে handleKeyPress ফাংশনটি কল হবে এবং প্রেস করা কী এর মান প্রিন্ট করবে।
৩.৩. মাউস মুভমেন্ট ইভেন্ট হ্যান্ডলিং
package require Tk
# উইন্ডো তৈরি
set win [tk::toplevel .]
# মাউস মুভমেন্ট হ্যান্ডলারের ফাংশন
proc handleMouseMove {event} {
puts "Mouse moved to: $event"
}
# মাউস মুভমেন্ট ইভেন্ট হ্যান্ডলিং
bind $win <Motion> {handleMouseMove %x %y}
# উইন্ডো প্রদর্শন
tk::mainloopএখানে, <Motion> ইভেন্টটি মাউসের মুভমেন্ট ট্র্যাক করবে এবং মাউসের অবস্থান (x, y কোঅর্ডিনেট) প্রিন্ট করবে।
৩.৪. একটি কাস্টম ইভেন্ট হ্যান্ডলার
আপনি কাস্টম ইভেন্টও তৈরি করতে পারেন এবং তা বিভিন্ন উইজেটের সাথে বাইন্ড করতে পারেন।
package require Tk
# উইন্ডো তৈরি
set win [tk::toplevel .]
# কাস্টম ইভেন্ট হ্যান্ডলারের ফাংশন
proc customEventHandler {} {
puts "Custom event triggered!"
}
# বাটনে ক্লিক করলে কাস্টম ইভেন্ট ট্রিগার হবে
bind $win.b1 <Button-1> {event generate $win <CustomEvent>}
# কাস্টম ইভেন্ট হ্যান্ডলিং
bind $win <CustomEvent> {customEventHandler}
# বাটন তৈরি
button $win.b1 -text "Click Me"
pack $win.b1
# Tk Main Loop
tk::mainloopএখানে, <Button-1> ক্লিক করলে একটি কাস্টম ইভেন্ট <CustomEvent> তৈরি হয়, যা পরে customEventHandler ফাংশনটি কল করে।
৪. Interactive Applications with Multiple Events
এখানে একটি উদাহরণ দেওয়া হলো যেখানে বিভিন্ন ইভেন্টের সাথে একটি কাস্টম অ্যাপ্লিকেশন তৈরি করা হয়েছে, যেমন উইন্ডোতে কীবোর্ড ইনপুট, মাউস ক্লিক, এবং মাউস মুভমেন্ট ট্র্যাক করা।
package require Tk
# উইন্ডো তৈরি
set win [tk::toplevel .]
# উইন্ডো তে মাউস মুভমেন্ট হ্যান্ডলার
proc handleMouseMove {event} {
set x [lindex $event 0]
set y [lindex $event 1]
puts "Mouse moved to: ($x, $y)"
}
# কীবোর্ড ইনপুট হ্যান্ডলারের ফাংশন
proc handleKeyPress {key} {
puts "Key pressed: $key"
}
# বাটন ক্লিক হ্যান্ডলারের ফাংশন
proc handleButtonClick {} {
puts "Button was clicked!"
}
# বাটন তৈরি
button $win.b1 -text "Click Me"
# ইভেন্ট বাইন্ডিং
bind $win.b1 <Button-1> {handleButtonClick}
bind $win <KeyPress> {handleKeyPress %K}
bind $win <Motion> {handleMouseMove %x %y}
# উইন্ডো প্রদর্শন
pack $win.b1
tk::mainloopএখানে:
- মাউস ক্লিক: বাটনে ক্লিক করলে
"Button was clicked!"মেসেজটি প্রিন্ট হবে। - কীবোর্ড ইনপুট: কোনো কী প্রেস করলে সেই কী এর মান প্রিন্ট হবে।
- মাউস মুভমেন্ট: মাউসের গতিবিধি ট্র্যাক করে তার বর্তমান অবস্থান প্রিন্ট হবে।
৫. Tk Widgets with Event Handling
Tk উইজেটের সাথে ইভেন্ট হ্যান্ডলিং আরও উন্নত করা যায়। উদাহরণস্বরূপ, আপনি entry, text, listbox, এবং অন্যান্য উইজেটগুলির সাথে ইভেন্ট বাইন্ডিং ব্যবহার করতে পারেন।
৫.১. Entry উইজেটের সাথে ইভেন্ট হ্যান্ডলিং
package require Tk
# উইন্ডো তৈরি
set win [tk::toplevel .]
# Entry উইজেট তৈরি
entry $win.e1
pack $win.e1
# কীবোর্ড ইনপুট হ্যান্ডলার
bind $win.e1 <KeyPress> {puts "Key pressed in Entry widget"}
# Tk Main Loop
tk::mainloopএখানে, <KeyPress> ইভেন্টটি Entry উইজেটের সাথে বাইন্ড করা হয়েছে এবং যখন কোনো কী প্রেস করা হবে, তখন "Key pressed in Entry widget" মেসেজটি প্রিন্ট হবে।
উপসংহার
Tk-এ Event Handling ব্যবহার করে আপনি সহজেই Interactive Applications তৈরি করতে পারেন। Tk উইজেটের সাথে বিভিন্ন ধরনের ইভেন্ট বাইন্ড করে আপনি ব্যবহারকারীর ইনপুটের প্রতি প্রতিক্রিয়া তৈরি করতে পারেন, যেমন মাউস ক্লিক, কীবোর্ড ইনপুট, মাউস মুভমেন্ট ইত্যাদি। এর মাধ্যমে আপনি ইন্টারঅ্যাকটিভ এবং রেসপন্সিভ অ্যাপ্লিকেশন তৈরি করতে পারবেন। bind কমান্ড এবং ইভেন্ট হ্যান্ডলিং টেকনিকগুলি Tk অ্যাপ্লিকেশনকে আরও শক্তিশালী এবং ব্যবহারকারী বান্ধব করে তোলে।
Read more
