আমাদের আজকের আলোচনার বিষয় ভিজ্যুয়াল বেসিক ভেরিয়েবল ও কনস্ট্যান্ট ব্যবহার করে প্রোগ্রাম – যা অধ্যায় ৩ ”ভিজ্যুয়াল বেসিক ভেরিয়েবল, কনস্ট্যান্ট ও কীওয়ার্ড” এর অন্তর্ভুক্ত। বর্তমান বিশ্বের সর্বাধুনিক প্রযুক্তি হচ্ছে কম্পিউটার প্রযুক্তি। কারণ শিল্পকারখানা, গবেষণা, শিক্ষাপ্রতিষ্ঠান, চিকিৎসাশাস্ত্র ইত্যাদি সকল ক্ষেত্রই আজ কম্পিউটার অটোমেটেড। কম্পিউটার অটোমেশনের সঙ্গে কম্পিউটার প্রোগ্রামিং ও প্রোগ্রামিং লেখার জন্য প্রোগ্রামিং ল্যাংগুয়েজ অত্যন্ত গুরুত্বপূর্ণ।
তাই শিক্ষা ও গবেষণার জন্য প্রোগ্রামিং ল্যাংগুয়েজ অধ্যয়ন একটি অতি আবশ্যকীয় বিষয়। বিষয়টি অত্যন্ত গুরুত্বসহ বিবেচনা করে বর্তমানে কারিগরি শিক্ষার সকল টেকনোলজিতে কম্পিউটার প্রোগ্রামিং ল্যাংগুয়েজ বিষয়কে আবশ্যিক করা হয়েছে ।
Table of Contents
ভিজ্যুয়াল বেসিক ভেরিয়েবল ও কনস্ট্যান্ট ব্যবহার করে প্রোগ্রাম
প্রোগ্রাম-১: সেলসিয়াস তাপমাত্রাকে ফারেনহাইট তাপমাত্রায় রূপান্তরের প্রোগ্রাম
Private Sub Command1_Click()
Dim celcius, farenheghit As Double celcius = Val(Text1)
farenheight = (1.8* celsius) + 32
Text2 = farenheight
End Sub
প্রোগ্রাম-২ঃ কনস্ট্যান্ট ঘোষণার মাধ্যমে বৃত্তের ক্ষেত্রফল নির্ণয়ের প্রোগ্রাম
Private Sub Command1_Click()
Const Pl3.1416
Dim radious, CircleArea As Double
radious Val(Text1)
CircleArea PI radious radious
Text2 CircleArea.
End Sub
প্রোগ্রাম-৩: কনস্ট্যান্ট ঘোষণার মাধ্যমে ঘনবস্তুর ক্ষেত্রফল ও আয়তন নির্ণয়ের প্রোগ্রাম
Private Sub Command1_Click()
Const PI 3.1416
Dim radious, SphereArea, SphereVolume As Double
radious Val(Text1)
SphereArea 4 PI radious radious
SphereVolume 4 PI radious radious radious
Text2 = SphereArea
Text3 SphereVolume
End Sub
প্রোগ্রাম-৪ঃ ইয়ং এর গুনাংক (Y= mgL/ πr²L1) নির্ণয়ের প্রোগ্রাম যেখানে র এবং ৫ কনস্ট্যান্ট।
Private Sub Command1_Click()
Const g = 9.8
Const PI 3.1416
Dim m, L, L1, r, Y
m = Val(Text1)
L = Val(Text2)
r = Val(Text3)
L1 = Val(Text4)
Y= (m*g*L)/(PI*r^2*L1)
Text5 – Y
End Sub
প্রোগ্রাম-৫: কোন ব্যাক্তির মোট বেতন নির্ধারণের প্রোগ্রাম
Private Sub Command1_Click()
Dim Basic, DA, TA, Gross Salary
Basic = Val(Text1)
DA = Val(Text2)
TA Val(Text3)
Gross Salary Basic + DA + TA
Text4 Gross Salary
End Sub
প্রোগ্রাম-৬ঃ সমদ্বিবাহু ত্রিভুজক্ষেত্রের ক্ষেত্রফল নির্ণয়ের প্রোগ্রাম
Private Sub Command1_Click() Dim a, Area a = Val(Text1) Area Sqr(3)/(48) Text2 = Area
End Sub
প্রোগ্রাম-৭ : কল বাই ভ্যালু পদ্ধতিতে দুটি সংখ্যা অদল-বদল (swaping) করার প্রোগ্রাম
Public Sub swap(ByVal X As Integer, ByVal Y As Integer)
Dim tmp.
tmp = X
X=Y
Y = tmp
MsgBox “After swaping the value of i & jare:” & X & Y
End Sub
Private Sub Command1_Click()
Dim i, j
1=10
1-7
Call swap(i, j)
End Sub
প্রোগ্রাম-৮: কল বাই রেফারেন্স পদ্ধতিতে দুটি সংখ্যা অদল-বদল (swaping) করার প্রোগ্রাম।
Public Sub swap(ByRef X As Integer, ByRef Y As Integer)
Dim tmp
tmp = X
X=Y
Y= tmp
MsgBox “After swaping the value of i & jare:” & X & Y
End Sub
Private Sub Command1_Click()
Dim i As Integer, As Integer
1-5
17
Call swap(i, j)
End Sub