আমাদের আজকের আলোচনার বিষয় ভিজ্যুয়াল বেসিক প্রজেক্ট, কোড, প্রোগ্রাম ফ্লো ও কন্ট্রোল স্টেটমেন্ট প্রোগ্রাম – যা অধ্যায় ৫ ”ভিজ্যুয়াল বেসিক প্রজেক্ট, কোড, প্রোগ্রাম ফ্লো ও কন্ট্রোল স্টেটমেন্ট” এর অন্তর্ভুক্ত। বর্তমান বিশ্বের সর্বাধুনিক প্রযুক্তি হচ্ছে কম্পিউটার প্রযুক্তি। কারণ শিল্পকারখানা, গবেষণা, শিক্ষাপ্রতিষ্ঠান, চিকিৎসাশাস্ত্র ইত্যাদি সকল ক্ষেত্রই আজ কম্পিউটার অটোমেটেড। কম্পিউটার অটোমেশনের সঙ্গে কম্পিউটার প্রোগ্রামিং ও প্রোগ্রামিং লেখার জন্য প্রোগ্রামিং ল্যাংগুয়েজ অত্যন্ত গুরুত্বপূর্ণ।
তাই শিক্ষা ও গবেষণার জন্য প্রোগ্রামিং ল্যাংগুয়েজ অধ্যয়ন একটি অতি আবশ্যকীয় বিষয়। বিষয়টি অত্যন্ত গুরুত্বসহ বিবেচনা করে বর্তমানে কারিগরি শিক্ষার সকল টেকনোলজিতে কম্পিউটার প্রোগ্রামিং ল্যাংগুয়েজ বিষয়কে আবশ্যিক করা হয়েছে ।
ভিজ্যুয়াল বেসিক প্রজেক্ট, কোড, প্রোগ্রাম ফ্লো ও কন্ট্রোল স্টেটমেন্ট প্রোগ্রাম
প্রোগ্রাম-১। ফাংশন ব্যবহার করে তিনটি সংখ্যার মধ্যে বৃহত্তম সংখ্যাটি নির্ণয়ের প্রোগ্রাম :
Public Sub largest()
Dim a, b, c
a = InputBox(“Enter the the value of a:”)
b = InputBox(“Enter the the value of b:”)
c = InputBox(“Enter the the value of c:”)
If ((a > b) And (a > c))
Then MsgBox “The largest number is a:” & a
Elself ((b > a) And (b > c)) Then
MsgBox “The largest number is b:” & b
Else
MsgBox “The largest number is c:” & c
End If End Sub
Private Sub Command1_Click()
largest
End Sub
প্রোগ্রাম-২। ফাংশন ব্যবহার করে ইনপুটকৃত কোন সংখ্যার ডিজিট গুলোর যোগফল নির্ণয়ের প্রোগ্রাম
Public Sub AddDigits()
Dim number, n, sum
sum = 0
number = Val(Text1)
Do While Not (number = 0)
n=number Mod 10
number = number
10 sumsum+n
Loop
Text2 = sum
End Sub
Private Sub Command1_Click()
Add Digits
End Sub
প্রোগ্রাম-৩। ফাংশন ব্যবহার করে কতগুলো র্যান্ডম সংখ্যা জেনারেট করার প্রোগ্রাম
Private Sub Command1_Click()
Dim c, n, max, num
n= InputBox(“Enter the number of Random numbers you want:”)
max= InputBox(“Enter the maximum value of Random numbers:”)
For c= 1 Ton
numFind(max)
Print num
Next C
End Sub
প্রোগ্রাম-৪। Else if Statement ব্যবহার করে গ্রেড নির্ণয়ের প্রোগ্রাম
অথবা, Else If Statement ব্যবহার Grade পদ্ধতি নির্ণয়ের একটি Visual প্রোগ্রাম লিখ।
Private Sub Command1_Click()
Dim score
score InputBox(“Enter your Score:”)
If score >= 80 Then
MsgBox “Your grade is A+*
Elself score >= 75 Then
MsgBox “Your grade is A”
Elself score >= 70 Then
MsgBox “Your grade is A-”
Elself score >= 65 Then
MsgBox “Your grade is B+”
Elself score >= 60 Then
MsgBox “Your grade is B
Elself score >= 55 Then
MsgBox “Your grade is B-*
Elself score >= 50 Then
MsgBox “Your grade is C+”
Elseif score >= 45 Then
MsgBox “Your grade is C
Elself score >= 40 Then
MsgBox “Your grade is D
Else
MsgBox “Your grade is F*
End If
End Sub
প্রোগ্রাম-৫। For….Next Statement ব্যবহার করে ১-১০০ পর্যন্ত সংখ্যাগুলোর মধ্যে ৫ দ্বারা বিভাজ্য সংখ্যাগুলোর যোগফল নির্ণয় করার প্রোগ্রাম
অথবা, Step ব্যবহার করে ১-১০০ পর্যস্থ সংখ্যাগুলোর মধ্যে ৫ দ্বারা বিভাজ্য সংখ্যাগুলোর যোগফল নির্ণয় করার প্রোগ্রাম
Private Sub Command1_Click()
Dim a, sum
sum = 0
For a = 1 To 100 Step 5
sum = sum +a
Next a
MsgBox “Summation of the numbers divided by 5 is=” & sum
End Sub
প্রোগ্রাম-৬। Do….Loop Statement ব্যবহার করে ১-১০০ পর্যন্ত সংখ্যাগুলোর মধ্যে ৫ দ্বারা বিভাজ্য সংখ্যাগুলোর যোগফল নির্ণয় করার প্রোগ্রাম
অথবা, Do… While Loop Statement ব্যবহার করে ১-১০০ পর্যন্ত সংখ্যাগুলোর মধ্যে ৫ দ্বারা বিভাজ্য সংখ্যাগুলোর যোগফল নির্ণয় করার প্রোগ্রাম
Private Sub Command1_Click()
Dim a, sum
sum = 0
a = 1
Do While a <= 100 sum
sum+a
a = a + 5
Loop MsgBox “Summation of the numbers divided by 5is =^ 8 sum
End Sub
প্রোগ্রাম-৭। For….Next Statement ব্যবহার করে x + x ^ 2 + x ^ 2 +……….+x^ n ধারাটির যোগফল নির্ণয়ের প্রোগ্রাম
Private Sub Command1_Click()
Dim a, x, n, sum
x = InputBox(“Enter the value of x:”)
n = InputBox(“Enter the value of n:”)
sum = 0 For a = 1 To n Step 1
sum = sum + (x ^ a)
Next a MsgBox “Summation is=^ 8sum
End Sub
প্রোগ্রাম-৮। Select Case ব্যবহার করে দুটি সংখ্যার যোগফল, বিয়োগফল, গুনফল ও ভাগফল নির্ণয়ের প্রোগ্রাম
Dim a, b, result
Public Sub addition()
a = InputBox(“Enter the 1st Number:”)
b= InputBox(“Enter the 2nd Number:”)
c = a + b
MsgBox “The result is:” & c
End Sub
Public Sub subtraction()
B = InputBox(“Enter the 1st Number:”)
b = InputBox(“Enter the 2nd Number:”)
c=a-b
MsgBox “The result is:” & c End Sub
Public Sub multiplication()
a = InputBox(“Enter the 1st Number:”)
b = InputBox(“Enter the 2nd Number:”)
c=a*b
MsgBox “The result is:” & c End Sub
Public Sub division()
a = InputBox(“Enter the 1st Number:”)
b = InputBox(“Enter the 2nd Number:”)
c=alb
MsgBox “The result is:” & c
End Sub
Private Sub Command1_Click()
Dim choice
choice = InputBox(“Enter your choice(1,2,3,4):”)
Select Case choice
Case 1
addition
Case 2
subtraction
Case 3
multiplication
Case 4
division
Case Else
MsgBox “Enter Your choice again:”
End Select
End Sub.