আমাদের আজকের আলোচনার বিষয় ভিজ্যুয়াল বেসিক অপারেটর ও এক্সপ্রেশন প্রোগ্রাম – যা অধ্যায় ৪ ”ভিজ্যুয়াল বেসিক অপারেটর ও এক্সপ্রেশন” এর অন্তর্ভুক্ত। বর্তমান বিশ্বের সর্বাধুনিক প্রযুক্তি হচ্ছে কম্পিউটার প্রযুক্তি। কারণ শিল্পকারখানা, গবেষণা, শিক্ষাপ্রতিষ্ঠান, চিকিৎসাশাস্ত্র ইত্যাদি সকল ক্ষেত্রই আজ কম্পিউটার অটোমেটেড। কম্পিউটার অটোমেশনের সঙ্গে কম্পিউটার প্রোগ্রামিং ও প্রোগ্রামিং লেখার জন্য প্রোগ্রামিং ল্যাংগুয়েজ অত্যন্ত গুরুত্বপূর্ণ।
তাই শিক্ষা ও গবেষণার জন্য প্রোগ্রামিং ল্যাংগুয়েজ অধ্যয়ন একটি অতি আবশ্যকীয় বিষয়। বিষয়টি অত্যন্ত গুরুত্বসহ বিবেচনা করে বর্তমানে কারিগরি শিক্ষার সকল টেকনোলজিতে কম্পিউটার প্রোগ্রামিং ল্যাংগুয়েজ বিষয়কে আবশ্যিক করা হয়েছে ।
ভিজ্যুয়াল বেসিক অপারেটর ও এক্সপ্রেশন প্রোগ্রাম
প্রোগ্রাম-১ঃ যদি a = 9 b = 4 হয় তবে a+b, a-b, a*b, a/b, alb এবং a mod b এর মান নির্ণয়ের প্রোগ্রাম লেখ।
Private Sub Command1_Click()
Dim a, b, c
a=9
b = 4
c=a+b
MsgBox “Result is:” & c
c=a-b
MsgBox “Result is:” & c
c=a’b
MsgBox “Result is:” & c
c=a/b
MsgBox “Result is:” & c
c=a/b
MsgBox “Result is:” & c
c = a
Mod b MsgBox “Result is:” & c
End Sub
প্রোগ্রাম-২ঃ যদি x=10,y=20,z=30 হয় তবে (x+y)>z&& (y+z)>x এর মান নির্ণয়ের প্রোগ্রাম লেখ।
Private Sub Command1_Click()
Dim x, y, z
x = 10
Y = 20
z = 30
k = (x + y) > z And (y + z) > x
MsgBox “Result is:” & k
End Sub
প্রোগ্রাম-৩ঃ XOR Operator ব্যবহার করে দুটি সংখ্যা অদল-বদল (Swapping) করার প্রোগ্রাম লেখ।
Private Sub Command1 Click()
Dim a, b
a = 1 InputBox(“Enter the value of Number1:”)
b = InputBox(“Enter the value of Number2:”)
a = a Xor b
b = a Xor b
a = a Xor b
MsgBox “Numbers after swapping:” & a&b
End Sub