বিসমিল্লাহির রহমানির রাহিম সবাইকে জানায় আমার আন্তরিক শুবেচ্ছা ও অভিনন্দন সবাই কেমন আছেন আসাকরি ভাল আছেন আমিও আল্লাহর রহমতে অনেক ভাল আছি আজকে মনস্থ করেছি .VBS (VBS=Visual Basic Script)নিয়ে কিছু লিখব তাই বসে পড়লাম আসা করি আমার এই টিউন থেকে আপনারা সামান্য হলে ও ভেজুয়্যাল বেসিক স্ক্রিপট সমবন্ধে ধারণা পাবেন……
A=msgbox("do you want to start the program?",vbyesno+vbquestion)
If a=vbyes then
B=inputbox("first of all, what's your name?")
Msgbox "oh, so your name is " & b
C=msgbox("that's a nice name. do you like your name?",vbyesno)
If c=vbno then
Msgbox "well, it's not your fault, is it?"
Else
Msgbox "that's good."
End if
D=inputbox("what's your age?")
If d > 17 then
E=msgbox("do you have a car?",vbyesno)
If e=vbyes then
Msgbox "cool!"
Else
Msgbox "ok, don't cry..."
End if
Else
Msgbox "well then, you'll have to wait a little until you're able to drive..."
End if
Msgbox "well then, it was nice to talk to you, " & b & "!"
Msgbox "goodbye!"
End if
If a=vbyes then
B=inputbox("first of all, what's your name?")
Msgbox "oh, so your name is " & b
C=msgbox("that's a nice name. do you like your name?",vbyesno)
If c=vbno then
Msgbox "well, it's not your fault, is it?"
Else
Msgbox "that's good."
End if
D=inputbox("what's your age?")
If d > 17 then
E=msgbox("do you have a car?",vbyesno)
If e=vbyes then
Msgbox "cool!"
Else
Msgbox "ok, don't cry..."
End if
Else
Msgbox "well then, you'll have to wait a little until you're able to drive..."
End if
Msgbox "well then, it was nice to talk to you, " & b & "!"
Msgbox "goodbye!"
End if
এবার এটার বিস্তারিত খুটিনাটি
এখানে দেখুন প্রথম লাইনটি আপনি যদি পরিবর্তন করতে চান তাহলে do you want to start the program?" এই লেখাটি পরিবর্তন করতে পারবেন আর এখানে আরকেটি কথা এখানে Msgbox দেওয়ার অর্থ হল বাক্স আকারে লেখাটি দেখাবে,inputbox দেয়ার অর্থ হল আপনি কিছু ইনপুট করবেন তার জন্য সে একটি খালি বাক্সসহ আপনাকে মেসেজ সো করবে,আর এখানে A B C D এগুলো দেয়া হয়েছে সিরিয়ালি আপনাকে মেসেজ সো করবে একটার পর একটা,আর প্রথম লাইনে vbyesno+vbquestion এই লেখাটি আছে এটা পরিবর্তন করা যাবে না পরিবর্তন করলে আপনার প্রোগ্রাম রান করবে না এখানে এই কোডটি বলতে চাচ্ছে যে লেখাটি দেখাবে তার সাথে yes এবং no সহ এটি একটি প্রশ্ন আকার ধারণ করবে…
আবার এখানে If এবং else দেয়া আছে এখানে
if
D=inputbox("what's your age?")
If d > 17 then
লেখাটি আছে এখানে বলা হয়েছে আপনার বয়স কত তার সাথে শর্ত দিয়ে দিয়েছে যদি ১৭ বছরের নিছে হয় এক শর্ত ১৭ বছরের উপরে হরে আরেক শর্ত, হাঁ এবার বলি ১৭ বছরের নিচে হলে আপনাকে পর পর এই তিনটি বার্তা দেখাবে "well then, you'll have to wait a little until you're able to drive..."
“well then, it was nice to talk to you” "goodbye!" আর যদি ১৭ বছরে উপরে হয় "do you have a car” এটি দেখাবে তখন yes দিলে দেখাবে আর no দিলে দেখাবে ok, don't cry এরপর পর পর দুটি বার্তা দেখাবে it was nice to talk to you, এবং "goodbye!"আবার একি ভাবে নিচেরটা একটু চেস্টা করলে বুঝে যাবেন……
“well then, it was nice to talk to you” "goodbye!" আর যদি ১৭ বছরে উপরে হয় "do you have a car” এটি দেখাবে তখন yes দিলে দেখাবে আর no দিলে দেখাবে ok, don't cry এরপর পর পর দুটি বার্তা দেখাবে it was nice to talk to you, এবং "goodbye!"আবার একি ভাবে নিচেরটা একটু চেস্টা করলে বুঝে যাবেন……
নিচের কোডটি
আগের মত নোড পেড খোলে পেস্ট করুন
msgbox "You must enter a password to continue!"
password="tunerpage"
do
ask=inputbox("Enter password:")
select case ask
case password
answer=true
x=msgbox("You did it!")
wscript.quit
end select
answer=false
x=msgbox("Try again!")
loop until answer=ture
এবার .vbs নামে ফাইলটি সেভ করুন এবার সেভ করা ফাইলটি খুলুন… এবার মজা নিন মজা……..
আসা করি VBS সম্বন্ধে কিছূটা ধারণা পেয়েছেন আজ এইটুকুতে থাকে….সবাই ভাল থাকবেন ..সুস্থ থাকবেন এই কামনায় শেষ করছি….আল্লাহ হাফেজ……. আর ভাল লাগলে কমেন্ট করতে ভূলবেন না কিন্তু........
nice,,,,,,,,,,,
ReplyDeleteThanks..
Deletejotillllllllllllll
ReplyDeletethanks...
ReplyDelete