আমাদের আজকের আলোচনার বিষয় ভিজ্যুয়াল বেসিক ফর্ম ডিজাইন প্রোগ্রাম – যা অধ্যায় ৬ ”ভিজ্যুয়াল বেসিক ফর্ম ডিজাইন” এর অন্তর্ভুক্ত। বর্তমান বিশ্বের সর্বাধুনিক প্রযুক্তি হচ্ছে কম্পিউটার প্রযুক্তি। কারণ শিল্পকারখানা, গবেষণা, শিক্ষাপ্রতিষ্ঠান, চিকিৎসাশাস্ত্র ইত্যাদি সকল ক্ষেত্রই আজ কম্পিউটার অটোমেটেড। কম্পিউটার অটোমেশনের সঙ্গে কম্পিউটার প্রোগ্রামিং ও প্রোগ্রামিং লেখার জন্য প্রোগ্রামিং ল্যাংগুয়েজ অত্যন্ত গুরুত্বপূর্ণ।
তাই শিক্ষা ও গবেষণার জন্য প্রোগ্রামিং ল্যাংগুয়েজ অধ্যয়ন একটি অতি আবশ্যকীয় বিষয়। বিষয়টি অত্যন্ত গুরুত্বসহ বিবেচনা করে বর্তমানে কারিগরি শিক্ষার সকল টেকনোলজিতে কম্পিউটার প্রোগ্রামিং ল্যাংগুয়েজ বিষয়কে আবশ্যিক করা হয়েছে ।
Table of Contents
ভিজ্যুয়াল বেসিক ফর্ম ডিজাইন প্রোগ্রাম
প্রোগ্রাম-১। ভিজ্যুয়াল বেসিক ফর্মের বিভিন্ন প্রপার্টিজের কার্যকারিতা প্রদর্শনের প্রোগ্রাম
Private Sub Form_Load()
Width Screen.Width 0.75
Height = Screen.Height 0.75
Me.BackColor = QBColor(Rnd 15)
Me.ForeColor QBColor(Rnd 10)
Me.Caption = “Form Properties Observation”
End Sub
আউটপুট দেখার জন্যঃ
ভিজ্যুয়াল বেসিক চালু করে একটি Standard Exe প্রজেক্ট ওপেন করতে হবে স্ক্রীনের ফর্মে ডাবল ক্লিক করে ফর্মের ডান দিকে অবস্থিত ইভেন্টের কম্বো বক্স থেকে Load ইভেন্ট সিলেক্ট করতে হবে। এবার এতে প্রোগ্রামটি লিখে রান করলে নিম্নবর্ণিত প্রোগ্রামের ফর্মের বিভিন্ন প্রপার্টিজের কার্যকারিতা পর্যবেড়ান করা যাবে।
প্রোগ্রাম-২। ভিজ্যুয়াল বেসিক ফর্মের Click() ইভেন্ট এর কার্যকারিতা প্রদর্শনের প্রোগ্রাম
Private Sub Form_Click()
If MsgBox(“Are u Sure?”, vbYesNoCancel + vbQuestion, “Quit”) = vbOK Then
Unload Me
End If
End Sub
আউটপুট দেখার জন্যঃ
ভিজ্যুয়াল বেসিক চালু করে একটি Standard Exe প্রজেক্ট ওপেন করতে হবে
ক্রীনের ফর্মে ডাবল ক্লিক করে ফর্মের ডান দিকে অবস্থিত ইভেন্টের কথো বক্স থেকে Click() ইভেন্ট সিলেক্ট করতে হবে। এবার এতে প্রোগ্রামটি লিখে রান করলে নিম্নবর্ণিত প্রোগ্রামের ফর্মের বিভিন্ন প্রপার্টিজের কার্যকারিতা পর্যবেক্ষণ করা যাবে।
প্রোগ্রাম-৩। ভিজ্যুয়াল বেসিক ফর্মের DulClick() ইভেন্ট এর কার্যকারিতা প্রদর্শনের লোগ্রাম
Private Sub Form DblClick()
it MsgBox(“Are u Sure?”, vbYesNo Cancel + vbQuestion, “Quit”) = vbOK Then
Unload Me
End If
End Sub
আউটপুট দেখার জন্যঃ
ভিজ্যুয়াল বেসিক চালু করে একটি Standard Exe প্রজেক্ট ওপেন করতে হবে
স্ক্রীনের ফর্মে ডাবল ক্লিক করে ফর্মের ডান দিকে অবস্থিত ইভেন্টের কম্বো বক্স থেকে DblClick() ইভেন্ট সিলেক্ট করতে হবে। এবার এতে প্রোগ্রামটি লিখে রান করলে নিম্নবর্ণিত প্রোল্লামের ফর্মের বিভিন্ন প্রপার্টিজের কার্যকারিতা পর্যবেক্ষণ করা যাবে।
প্রোগ্রাম-৪। ভিজ্যুয়াল বেসিক ফর্মের বিভিন্ন প্রপার্টিজ ও মেথড এর কার্যকারিতা প্রদর্শনের প্রোগ্রাম
Private Sub Form Load()
Me.ScaleHeight 100
Ma.ScaleWidth=100 Me. AutoRedraw = True
Me.ForeColor = 10
Me.FillColor = QBColor(9)
Me.FillStyle = 0
Me.Circle (50, 50), 30
Me.AutoRedraw = False
End Sub
আউটপুট দেখার জন্যঃ
ভিজ্যুয়াল বেসিক চালু করে একটি Standard Exe প্রজেক্ট ওপেন করতে হবে
স্ক্রীনের ফর্মে ডাবল ক্লিক করে ফর্মের ডান দিকে অবস্থিত ইভেন্টের কম্বো বক্স থেকে Load ইভেন্ট সিলেক্ট করতে হবে।
এবার এতে প্রোগ্রামটি লিখে রান করলে নিম্নবর্ণিত প্রোগ্রামের ফর্মের বিভিন্ন প্রপার্টিজের কার্যকারিতা পর্যবেড়ান করা যাবে।
প্রোগ্রাম-৫। ভিজ্যুয়াল বেসিক ফর্মের বিভিন্ন মেথড (Circle ও Line) এর কার্যকারিতা প্রদর্শনের প্রোগ্রাম
Form Method:
Private Sub Form_Click()
For i = 100 To 1000 Step 10
ScaleMode = 3
Me.Circle (i, i), i, RGB(255, 0, 0)
Me.Line (200, 300)-(1, 100)
Next i
End Sub
আউটপুট দেখার জন্যঃ
ভিজ্যুয়াল বেসিক চালু করে একটি Standard Exe প্রজেক্ট ওপেন করতে হবে।
চীনের ফর্মে ডাবল ক্লিক করে ফর্মের ডান দিকে অবস্থিত ইভেন্টের কম্বো বক্স থেকে Click() ইভেন্ট সিলেক্ট করতে হবে। এবার এতে প্রোগ্রামটি লিখে রান করলে নিম্নবর্ণিত প্রোগ্রামের ফর্মের বিভিন্ন প্রপার্টিজের কার্যকারিতা পর্যবেড়ান করা যাবে।
প্রোগ্রাম-৬। ইনপুট বক্স ও মাসেজ বক্স স্টেটমেন্ট ব্যবহার করে একজন ব্যক্তির জন্ম তারিখ ইনপুট নিয়ে তার বয়স প্রদর্শনে প্রোগ্রাম
Private Sub Form_Click()
Dim GetBD As String
Dim GetAge As Integer
GetBD = InputBox(“Enter Your Birth Date:”)
GetAge DateDiff(“yyyy”, GetBD, Now) MsgBox “So you are” & GetAge & “years old”
End Sub
প্রোগ্রাম-৭। ইনপুট বক্স ও মাসেজ বক্স স্টেটমেন্ট ব্যবহার করে কোন ব্যক্তি ভোটার কিনা তা নির্ণয়ের প্রোগ্রাম
Private Sub Form_Load()
Dim Age
Age = InputBox(“Enter Your Age:”)
If Age >= 18 Then
MsgBox “You are a Voter
Else
MsgBox “You are not a Voter, Thanks!!!”
End If
End Sub
প্রোগ্রাম-৮। ইনপুট বক্স ও মাসেজ বক্স স্টেটমেন্ট ব্যবহার করে ইনপুটকৃত কোন সংখ্যা জোড় না বিজোড় তা নির্ণয়ের প্রেমান
Private Sub Form_Load()
Dim number
number = InputBox(“Enter the Number:”)
If number = 0 Or number < 0 Then
456
MsgBox “Please Enter another Number”
Elself number Mod 2 = 0 Then
MsgBox “This is an Even Number”
Else
MsgBox “This is an Odd Number”
End If
End Sub
আরও দেখুনঃ