Microsoft Small Basic প্রোগ্রামিং [পর্ব-০৬] :: Shapes Object Part 1

প্রথমেই সবার কাছে আমি ক্ষমা চেয়ে নিচ্ছি এতোদিন দেরি করার জন্য। আসলে ব্যাক্তিগত কাজের জন্য খুবই ব্যাস্ত ছিলাম। আজ থেকে আমি ফ্রি। আর তাই সবাইকে Microsoft Small Basic প্রোগ্রামিং এর ৬ষ্ঠ পর্বে স্বাগতম। আজ আমরা Shape Object এর বিভিন্ন অপারেশন শিখবো। তবে তার আগে  Subroutine (সাবরুটিন) নামক গুরুত্বপূর্ণ একটি বিষয় নিয়ে লিখব যা গত পর্বে দিতে ভুলে গিয়েছিলাম।

সাবরুটিন

আমরা আমাদের প্রোগ্রামের যে কোন অংশবিশেষ আলাদা একটি নাম দিয়ে প্রোগ্রামের শেষে বা যে কোন যায়গায় লিখতে পারি। পরবর্তীতে আমরা ঐ কোডের নামকে কল করে আমরা কোডগুলো কাজে লাগাতে পারি। এই কাজটিকে বলা হয় সাবরুটিন। সাবরুটিন লেখার Syntax হলোঃ

Sub label
            'some codes here
Endsub

যখন আমার সাবরুটিনের কোডটুকু কাজে লাগাতে হবে তখন আমাকে লেবেলকে ঠিক এভাবে কল করতে হবেঃ

label()

যেমন উদাহরনস্বরূপ আপনার একটি প্রোগ্রামে বারবার Please enter a disk. লেখার প্রয়োজন হলো তাহলে বারবার এই লাইনটি লিখতে অনেক সময় লাগবে না ? এক্ষেত্রে আমরা একবার সাবরুটিন লিখে বার বার কল করতে পারি।

যেমনঃ

Sub enterdisk
    TextWindow.WriteLine(“Please Eneter a disk!”)
EndSub

এবার আমার যতোবার প্রয়োজন ততোবার enterdisk() কে কল করলে Please Enter a disk! লেখা পর্দায় প্রদর্শিত হবে।

আরেকটু পরিষ্কার করা যাক নিচের উদাহরনটির সাহায্যে।

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

TextWindow.WriteLine("Please Enter a number: ") num1 = TextWindow.ReadNumber() TextWindow.WriteLine("Enter another number: ") num2 = TextWindow.ReadNumber() If (num2 = 0) Then     Error() Else     Divide()     TextWindow.WriteLine("The answer of division is: " + ans) EndIf Sub Divide     ans = num1 / num2 EndSub Sub Error     TextWindow.ForegroundColor = "Red"     TextWindow.WriteLine("ERROR: Can Not divide by Zero") EndSub

আশাকরি বুঝতে পেরেছেন। যদি বুঝতে কোন সমস্যা হয় তাহলে প্লিজ মন্তব্য করবেন।

এবার আমরা আমাদের আজকের মূল আলোচনায় চলে যাই।