ভিজ্যুয়াল প্রজেক্ট
Standard of service Post e-center
কোড উইন্ডোতে গিয়ে cmdexit_Click() প্রসিডিউরে ক্লিক করে নিম্নরূপ কোড লিখতে হবে।
Private Sub cmdexit_Click()
End
End Sub
cmdShow_Click() প্রসিডিউরে ক্লিক করে নিম্নরূপ কোড লিখতে হবে।
Private Sub cmdnoshow_Click()
home.Text = “”
End Sub
cmdnoshow_Click() প্রসিডিউরে ক্লিক করে নিম্নরূপ কোড লিখতে হবে।
Private Sub cmdshow_Click()
home.Text = “creative computer”
End Sub
এরপর প্রজেক্টটি রান করতে হবে।
একটি Standare. EXE ফর্ম , ও তিনটি Command
cmdadress_Click() প্রসিডিউরে ক্লিক করে নিম্নরূপ কোড লিখতে হবে।
Private Sub cmdadress_Click()
Print ” VILL: SRERAMPUR”
Print ” POST: KAPILMUNI”
Print ” UPOZILA: PAIKGACHA”
Print ” DIST: KHULNA”
Print ” PHONE:01919-927287″
End Sub
cmdexit_Click() প্রসিডিউরে ক্লিক করে নিম্নরূপ কোড লিখতে হবে।
Private Sub cmdexit_Click()
End
End Sub
cmdname_Click() প্রসিডিউরে ক্লিক করে নিম্নরূপ কোড লিখতে হবে।
Private Sub cmdname_Click()
Print ” NAHID PERVES”
End Sub এরপর প্রজেক্টটি রান করতে হবে।
একটি Standare. EXE ফর্ম ও দুইটি Command
cmddate_Click() প্রসিডিউরে ক্লিক করে নিম্নরূপ কোড লিখতে হবে।
Private Sub cmddate_Click()
Print Date
End Sub
cmdexit_Click() প্রসিডিউরে ক্লিক করে নিম্নরূপ কোড লিখতে হবে।
Private Sub cmdexit_Click()
End
End Sub
cmdtime_Click() প্রসিডিউরে ক্লিক করে নিম্নরূপ কোড লিখতে হবে।
Private Sub cmdtime_Click()
Print Time
End Sub এরপর প্রজেক্ট রান করতে হবে।
একটি Standare. EXE ফর্ম , ১টি Label ও ১টি Timer
Form_Load() প্রসিডিউরে ক্লিক করে নিম্নরূপ কোড লিখতে হবে।
Private Sub Form_Load()
Label1.Caption = “CREATIVE COMPUTER INSTITUTE”
Label1.AutoSize = True
Label1.FontName = “ARIAL”
Label1.FontSize = 28
Label1.FontBold = True
Label1.FontItalic = True
Timer1.Interval = 1000
End Sub
Timer1_Timer() প্রসিডিউরে ক্লিক করে নিম্নরূপ কোড লিখতে হবে।
Private Sub Timer1_Timer()
Label1.Left = 2400 * Rnd
Label1.Top = 2500 * Rnd
End Sub এরপর প্রজেক্ট রান করতে হবে।
একটি Standare. EXE ফর্ম , ১টি Timer ও একটি Text Box
কোড উইন্ডোতে গিয়ে Form_ Load() প্রসিডিউরে ক্লিক করে নিম্নরূপ কোড লিখতে হবে।
Private Sub Form_Load()
Text1.Text = “”
Text1.Left = 500
Text1.Top = 500
Text1.Height = 1000
Text1.Width = 3975
Text1.FontName = “impact”
Text1.FontSize = 36
Text1.FontBold = True
Timer1.Interval = 1000
End Sub
কোড উইন্ডোতে গিয়ে Timer1_Timer() প্রসিডিউরে ক্লিক করে নিম্নরূপ কোড লিখতে হবে।
Private Sub Timer1_Timer()
Text1.Text = Time
Beep
End Sub
এরপর প্রজেক্টটি রান করতে হবে।
একটি Standare. EXE ফর্ম , ৩টি Text Box একটি Command ও একটি Label ব্কস নিতে হবে। বক্সটি নিম্নরূপ সাজাতে হবে।
Dim Number2 As IntegerDim Number1 As IntegerPrivate Sub
cmdAdd_Click()কোড উইন্ডোতে গিয়ে Cmd Add_Click() প্রসিডিউরে ক্লিক করে
(বক্সের দুই পাশেই চেঞ্জ করতে হবে।) এবং নিম্নরূপ কোড লিখতে হবে-
Dim Sum As Integer
Number1 = Text1.Text
Number2 = Text2.Text
Sum = Number1+Number2
Txtsum.Text = Sum
End Sub
এরপর প্রজেক্টটি রান করতে হবে।
একটি Standare. EXE ফর্ম , ৫টি Text Box, ৫টি Label ও একটি Command, বক্সটি নিম্নরূপ সাজাতে হবে।
Form1
Command
কোড উইন্ডোতে গিয়ে cmdtotal_Click() প্রসিডিউরে ক্লিক করে নিম্নরূপ কোড লিখতে হবে।
Private Sub cmdtotal_Click()
sal = Val(txtsalary.Text)
hrent = Val(txthouserent.Text)
txttotal.Text = sal + hrent
End Sub
txthouserent_LostFocus() প্রসিডিউরে ক্লিক করে নিম্নরূপ কোড লিখতে হবে।
Private Sub txthouserent_LostFocus()
If Not IsNumeric(txthouserent.Text) Then
MsgBox “invalid houserent”
txthouserent.Text = “”
End If
End Sub
txtjoining_LostFocus() প্রসিডিউরে ক্লিক করে নিম্নরূপ কোড লিখতে হবে।
Private Sub txtjoining_LostFocus()
If Not IsDate(txtjoining.Text) Then
MsgBox “invalid date”
txtjoining.Text = “”
End If
End Sub
txtsalary_LostFocus() প্রসিডিউরে ক্লিক করে নিম্নরূপ কোড লিখতে হবে।
Private Sub txtsalary_LostFocus()
If Not IsNumeric(txtsalary.Text) Then
MsgBox “invalid salary”
txtsalary.Text = “”
End If
End Sub
এরপর প্রজেক্টটি রান করতে হবে।
সূচনাঃ
কম্পিউটার তো আসলে গননা করার যন্ত্র তাই
না? যদিও আমরা এটা দিয়ে গানশুনি, ভিডিও দেখি, গেমস খেলি আরও কত কি না করি।
আসলে শেষ পর্যন্ত কম্পিউটার বোঝে শূন্য (0) আর একের (1) হিসাব। তাই
ব্যবহারকারী যা-ই করুকনা কেন কম্পিউটার কিন্তু সব কাজই করে গননার মাধ্যমে।
কম্পিউটারের ব্যবহার এত ব্যপক হওয়ার পেছনে অন্যতম কারণ হলো- কম্পিউটারে
নানা রকমের সফটওয়্যার ব্যবহার করে নানা রকমের কাজ করা যায়। আর এসব
সফটওয়্যার তৈরি করতে হয় প্রোগ্রাম লিখে। অর্থাৎ কি হলে কি কাজ করবে
প্রোগ্রামের সাহায্যে কম্পিউটারকে তা বোঝাতে হয়। একসময় শুধু এই 0 আর 1
ব্যবহার করেই প্রোগ্রাম তৈরি করতে হতো। যাকে বলা হতো মেশিন ল্যাঙ্গুয়েজ।
কারণ কম্পিউটারতো ঐ 0 আর 1 ছাড়া অন্য কিছুই বোঝে না। তাই কম্পিউটারকে দিয়ে
কোন কাজ করাতে হলে তার ভাষাতেই তাকে নির্দেশ দিতে হবে, এটাইতো স্বাভাবিক।
এরপর এলো এসেম্বিলি ল্যাঙ্গুয়েজ। যেখানে প্রোগ্রামাররা কাজের কিছু
ইন্সট্রাকশন দিয়ে রাখতেন। যেমন ADD (যাগ), MUL (গুণ) ইত্যাদি। কালে কালে
মানুষের প্রয়োজনে কম্পিউটারেরকে বোঝাবার জন্য বিভিন্ন ভাষার সৃষ্টি হয়েছে।
যে সবভাষা এক একটি বিষয়কে কম্পিউটারের বোধগম্য করতে সাহায্য করে। যেমন-
ফরটান (Fortran), বেসিক (Basic), প্যাচকেল (Pascal), সি (C)। তবে এখানেই
শেষ নয়, এরপর আরও এলো অনেকগুলো ল্যাংগুয়েজ। সি প্লাস প্লাস (C++),
ভিজ্যুয়াল বেসিক (Visual Basic), জাভা (Java), সি শার্প (C#), পার্ল
(Perl), পিএইপি (PHP), পাইথন (Python), রুবি (Ruby) ইত্যাদি। এখনো
কম্পিউটার বিজ্ঞানীরা নিত্য নতুন ভাষা তৈরি চলেছেন। তবে মনে রাখতে হবে এক
এক ধরণের কাজের জন্য এক এক ধরণের প্রোগ্রামিং ভাষা ব্যবহার করতে হয়।
আমরা এ পর্যায়ে ভিজ্যুয়াল ল্যাঙ্গুয়েজ নিয়ে
কিছু প্রোগ্রামিং এর কাজ ষিখবো। ভিজ্যুয়াল ল্যাঙ্গুয়েজ একটি উচ্চস্তরের
প্রোগ্রামিং ভাষা। কোন প্রোগ্রাম নিয়ে কাজ করতে হলে প্রোগ্রাম সম্পর্কে
প্রাথমিক ধারণা থাকা একান্ত প্রয়োজন। তাই ভিজ্যুয়াল ল্যাঙ্গুয়েজ এর বেসিক
কিছু ধারণা নিচে আলোচনা করে হলো।
ভিজ্যুয়াল বেসিকের প্রাথমিক ধারণাঃ
visual Basic হচ্ছে উচ্চ স্তরের
প্রোগ্রামিং ভাষা। এটি চিত্র ভিত্তিক উইন্ডোজ, পরিবেশ ভিত্তিক এপ্লিকেশন
প্রোগ্রাম তৈরীর একটি ভাষা। ১৯৬৪ সালে মার্কিন যুক্তরাষ্ট্রের ডার্টমাউথ
কলেজের দু’জন অধ্যাপক জন জি.কেমেনি ও টমাস ই. কার্টজ প্রথম বেসিক ভাষা
প্রবর্তন করেন। মাইক্রোসফট কর্পোরেশন কর্তৃক প্রণীত গ্রাফিক্যাল উইজার
ইন্টারফেস পরিবেশের জন্য তৈরী ভিজুয়াল বেসিক হচ্ছে বেসিক ভাষারই উন্নত
সংষ্করণ। visual Basic এর QBasic এবং GW Basic নামে আরও ২টি উপভাষা আছে।
১৯৯১ সালে visual Basic চালু হয়। visual Basic এ ডাটা টাইপ এবং সাব রুটিনঃ
ভিজ্যুয়াল বেসিক ডাটা টাইপ সমূহঃ
ভিজুয়াল বেসিকে মোট ছয় ধরণের ডাটা টাইপ বা ভেরিয়েবল ব্যবহৃত হয়। যথা –
1. Numeric 2. String 3. Boolean 4. Date 5. Object 6. Variant
Numeric ভেরিয়েবলঃ Numeric ভেরিয়েবলকে পাঁচ ভাগে ভাগ করা যায়। যথাঃ
- Integer : -32768 থেকে 32768 মানের পূর্ণ সংখ্যা ষ্টোর করে।
- Long : -2147483648 থেকে 2147483648 মানের পূর্ণ সংখ্যা ষ্টোর করে।
- Single : ইহা নেগেটিভ -3.402823E38 থেকে -1.401298E-45 এবং পজেটিভ 1.401298E-45 থেকে 3.402823E38 পর্যন্ত সংখ্যা ষ্টোর করতে পারে।
- Double : ইহা নেগেটিভ -1.79769313486232E308 থেকে 4.94065645891247E324 এবং পজেটিভ 4.94065645891247E324 থেকে 1.79769313486232E308 পর্যন্ত সংখ্যা ষ্টোর করতে পারে।
- Currency : চার দশমিক স্থান পর্যন্ত ফিক্সড পয়েন্ট নামবার ষ্টোর করতে পারে। এ ধরণের ভেরিয়েবল -922,337,203,685,477,5808 থেকে 922,337,203,685,477,5808 পর্যন্ত সংখ্যা ষ্টোর করতে পারে।
String ভেরিয়েবলঃ ষ্ট্রিরিং ভেরিয়েবল-এ শুধুমাত্র টেক্সট (বর্ণ, অংক, চিহ্ন ইত্যাদি) রাখা যায়। এই টাইপে ২গিগাবাইট পর্যন্ত ডাটা রাখা যায়।
Boolean ভেরিয়েবলঃ বুলিয়ান ভেরিয়েবল-এ True/False ভ্যাল্যু রাখা যায়। এই টাইপে ২গিগাবাইট পর্যন্ত ডাটা রাখা যায়।
Date ভেরিয়েবলঃ ডেট ভেরিয়েবলে তারিখ এবং সময়ের মান বিশেষ পদ্ধতিতে ষ্টোর করা হয়।
Object ভেরিয়েবলঃ অবজেক্ট
ভেরিয়েবল ভিজুয়াল বেসিকের বিভিন্ন অবজেক্ট এর ভেরিয়েবল। প্রকৃত কোন
অবজেক্ট এক্সেস করার জন্য অবজেক্ট ভেরিয়েবল ব্যবহৃত হয়।
Veriant ভেরিয়েবলঃ
ভেরিয়ান্ট হিসেবে ডিক্লিয়ার করা ভেরিয়েবল অবজেক্ট ভেরিয়েবল ষ্ট্রিং মান
রাখলে ভিজুয়াল বেসিক এটি স্ট্রিং টাইপ হিসেবে এবং ইন্টিজার মান রাখলে একে
এন্টিজার টাইপের ভেরিয়েবল ধরে নেয়।
ইউজার ডিফাইন ডাটা টাইপঃ ইউজার ডিফাইন ডাটা
টাইপের প্রত্যেকটি ভেরিয়েবলে একাধিক ভ্যাল্যু রাখা যায়। এতে ব্যবহারকারী
ইচ্ছামত ডাটা টাইপ ঘোষনা করতে পারে এবং ইহা প্রোগ্রামে ব্যবহার করতে পারে।
ভিজ্যুয়াল বেসিক-এ সাব রুটিনঃ
ODBC (ওডিবিসি)এবংVisual Basic- এর কানেকশানঃ
ODBC (ওডিবিসি)ঃ ওবিডিসি
হলো Open Data Base Connectivity. একটি ডাটাবেস এপ্লিকেশন প্রোগ্রামিং
ইন্টারফেস (এপিআই) যা আমেরিকান ন্যাশনাল স্ট্যান্ডার্ড ইন্সটিটিউট (ANSI)
এবং ইন্টারন্যাশনাল আর্গানাইজেশন ফর স্ট্যান্ডার্ডাইজেশন (ISO)
প্রতিষ্ঠানদ্বয়ের স্ট্যান্ডার্ড অনুযায়ী। ODBC যে কোন ডাটাবেস এক্সেস
সাপোর্ট করে যেখানে ODBC ড্রাইভার বিদ্যমান রয়েছে।
ভিজ্যুয়াল ল্যাঙ্গুয়েজ ব্যবহার করে ডাটাবেস
প্রোগ্রামিং তৈরি করা যায়। আমরা এখন ভিজ্যুয়াল বেসিক ব্যবহার করে ছোট ছোট
কয়েকটি প্রোগ্রাম তৈরি ও রান করা শিখবো। এই ভাষা ব্যবহার করে প্রোগ্রাম
তৈরি করতে হলে প্রথমে কম্পিউটারের ভিজ্যুয়াল ল্যাঙ্গুয়েজ সফটওয়্যার ইনষ্টল
করে নিতে হবে। তারপর সফটওয়্যার রান করে পর্যায়ক্রমে নিচের প্রেজেক্টগুলো
তৈরি করার চেষ্টা করবো।
Name Show প্রজেক্ট তৈরি করা
প্রজেক্ট তৈরির জন্য যা প্রয়োজনঃ
একটি Standare. EXE ফর্ম ,একটি Text Box, ও তিনটি Command. বক্সটি নিম্নরূপ ভাবে সাজাতে হবে-Form1 | ||
Text1 | ||
Command1 | Command2 | Command3 |
অবজেক্টের নাম | প্রোপার্টিজ | আমাদের যা লিখতে হবে |
Text 1 সিলেক্ট করে | Name Wvb cv‡k Properties Box Text | Home ফাঁকা |
Command 1 সিলেক্ট করে | Name ডান পাশে Properties Box Caption ডান পাশে Properties Box | Cmd show Show |
Command 2 সিলেক্ট করে | Name ডান পাশে Properties Box Caption ডান পাশে Properties Box | Cmd No show No show |
Command 3 সিলেক্ট করে | Name ডান পাশে Properties Box Caption ডান পাশে Properties Box | Cmd Exit Exit |
Private Sub cmdexit_Click()
End
End Sub
cmdShow_Click() প্রসিডিউরে ক্লিক করে নিম্নরূপ কোড লিখতে হবে।
Private Sub cmdnoshow_Click()
home.Text = “”
End Sub
cmdnoshow_Click() প্রসিডিউরে ক্লিক করে নিম্নরূপ কোড লিখতে হবে।
Private Sub cmdshow_Click()
home.Text = “creative computer”
End Sub
এরপর প্রজেক্টটি রান করতে হবে।
Name & Address প্রজেক্ট তৈরি করা
প্রজেক্ট তৈরির জন্য যা প্রয়োজনঃএকটি Standare. EXE ফর্ম , ও তিনটি Command
অবজেক্টের নাম | প্রোপার্টিজ | আমাদের যা লিখতে হবে |
Command 1 সিলেক্ট করে | Name ডান পাশে Properties Box Caption ডান পাশে Properties Box | Cmd Name Name |
Command 2 সিলেক্ট করে | Name ডান পাশে Properties Box Caption ডান পাশে Properties Box | Cmd Address Address |
Command 3 সিলেক্ট করে | Name ডান পাশে Properties Box Caption ডান পাশে Properties Box | Cmd Exit Exit |
Private Sub cmdadress_Click()
Print ” VILL: SRERAMPUR”
Print ” POST: KAPILMUNI”
Print ” UPOZILA: PAIKGACHA”
Print ” DIST: KHULNA”
Print ” PHONE:01919-927287″
End Sub
cmdexit_Click() প্রসিডিউরে ক্লিক করে নিম্নরূপ কোড লিখতে হবে।
Private Sub cmdexit_Click()
End
End Sub
cmdname_Click() প্রসিডিউরে ক্লিক করে নিম্নরূপ কোড লিখতে হবে।
Private Sub cmdname_Click()
Print ” NAHID PERVES”
End Sub এরপর প্রজেক্টটি রান করতে হবে।
Date & Time প্রজেক্ট তৈরি করা
প্রজেক্ট তৈরির জন্য যা প্রয়োজনঃএকটি Standare. EXE ফর্ম ও দুইটি Command
অবজেক্টের নাম | প্রোপার্টিজ | আমাদের যা লিখতে হবে |
Form1 সিলেক্ট করে | Name ডান পাশে Properties Box Caption ডান পাশে Properties Box | Frmtime Date&time |
Command1 সিলেক্ট করে | Name ডান পাশে Properties Box Caption ডান পাশে Properties Box | CmdDate Date |
Command2 সিলেক্ট করে | Name ডান পাশে Properties Box Caption ডান পাশে Properties Box | CmdTime Time |
Command3 সিলেক্ট করে | Name ডান পাশে Properties Box Caption ডান পাশে Properties Box | CmdExit Exit |
Private Sub cmddate_Click()
Print Date
End Sub
cmdexit_Click() প্রসিডিউরে ক্লিক করে নিম্নরূপ কোড লিখতে হবে।
Private Sub cmdexit_Click()
End
End Sub
cmdtime_Click() প্রসিডিউরে ক্লিক করে নিম্নরূপ কোড লিখতে হবে।
Private Sub cmdtime_Click()
Print Time
End Sub এরপর প্রজেক্ট রান করতে হবে।
Name Animation প্রজেক্ট তৈরি করা
প্রজেক্ট তৈরির জন্য যা প্রয়োজনঃএকটি Standare. EXE ফর্ম , ১টি Label ও ১টি Timer
Form_Load() প্রসিডিউরে ক্লিক করে নিম্নরূপ কোড লিখতে হবে।
Private Sub Form_Load()
Label1.Caption = “CREATIVE COMPUTER INSTITUTE”
Label1.AutoSize = True
Label1.FontName = “ARIAL”
Label1.FontSize = 28
Label1.FontBold = True
Label1.FontItalic = True
Timer1.Interval = 1000
End Sub
Timer1_Timer() প্রসিডিউরে ক্লিক করে নিম্নরূপ কোড লিখতে হবে।
Private Sub Timer1_Timer()
Label1.Left = 2400 * Rnd
Label1.Top = 2500 * Rnd
End Sub এরপর প্রজেক্ট রান করতে হবে।
ডিজিটাল ঘড়ি তৈরি করা
প্রজেক্ট তৈরির জন্য যা প্রয়োজন।একটি Standare. EXE ফর্ম , ১টি Timer ও একটি Text Box
কোড উইন্ডোতে গিয়ে Form_ Load() প্রসিডিউরে ক্লিক করে নিম্নরূপ কোড লিখতে হবে।
Private Sub Form_Load()
Text1.Text = “”
Text1.Left = 500
Text1.Top = 500
Text1.Height = 1000
Text1.Width = 3975
Text1.FontName = “impact”
Text1.FontSize = 36
Text1.FontBold = True
Timer1.Interval = 1000
End Sub
কোড উইন্ডোতে গিয়ে Timer1_Timer() প্রসিডিউরে ক্লিক করে নিম্নরূপ কোড লিখতে হবে।
Private Sub Timer1_Timer()
Text1.Text = Time
Beep
End Sub
এরপর প্রজেক্টটি রান করতে হবে।
ক্যালকুলেটর তৈরি করা
প্রজেক্ট তৈরির জন্য যা প্রয়োজন।একটি Standare. EXE ফর্ম , ৩টি Text Box একটি Command ও একটি Label ব্কস নিতে হবে। বক্সটি নিম্নরূপ সাজাতে হবে।
Form1 | ||||
text1 | command | Text2 | Label1 | Text3 |
অবজেক্টের নাম | প্রোপার্টিজ | আমাদের যা লিখতে হবে |
Text1 সিলেক্ট করে | Text ডান পাশে Properties Box | ফাঁকা |
Text2 সিলেক্ট করে | Text ডান পাশে Properties Box | ফাঁকা |
Text3 সিলেক্ট করে | Text ডান পাশে Properties Box Name ডান পাশে Properties Box | ফাঁকা txtSum |
Command1 সিলেক্ট করে | Name ডান পাশে Properties Box Caption ডান পাশে Properties Box | CmdAdd + |
Label সিলেক্ট করে | Caption ডান পাশে Properties Box | = |
Dim Sum As Integer
Number1 = Text1.Text
Number2 = Text2.Text
Sum = Number1+Number2
Txtsum.Text = Sum
End Sub
এরপর প্রজেক্টটি রান করতে হবে।
Salary Sheet তৈরি করা
প্রজেক্ট তৈরির জন্য যা প্রয়োজন-একটি Standare. EXE ফর্ম , ৫টি Text Box, ৫টি Label ও একটি Command, বক্সটি নিম্নরূপ সাজাতে হবে।
Form1
Label 1 Text 1 |
Label 2 Text 2 |
Label 3 Text 3 |
Label 4 Text 4 |
Label 5 Text 5 |
অবজেক্টের নাম | প্রোপার্টিজ | আমাদের যা লিখতে হবে |
Label1 সিলেক্ট করে | Caption ডান পাশে Properties Box | Name |
Label 2 সিলেক্ট করে | Caption ডান পাশে Properties Box | Joining(mm/dd/yy) |
Label 3 সিলেক্ট করে | Caption ডান পাশে Properties Box | Salary |
Label 4 সিলেক্ট করে | Caption ডান পাশে Properties Box | House Rent |
Label 5 সিলেক্ট করে | Caption ডান পাশে Properties Box | Total |
Text 1 সিলেক্ট করে | Name Text | name ফাঁকা থাকবে |
Text 2 সিলেক্ট করে | Name Text | TxtJoining ফাঁকা |
Text 3 সিলেক্ট করে | Name Text | TxtSalary ফাঁকা |
Text 4 সিলেক্ট করে | Name Text | Txt HouseRent ফাঁকা |
Text 5 সিলেক্ট করে | Name Text | Txttotal ফাঁকা |
Command | Name Caption | cmdtotal Total |
Private Sub cmdtotal_Click()
sal = Val(txtsalary.Text)
hrent = Val(txthouserent.Text)
txttotal.Text = sal + hrent
End Sub
txthouserent_LostFocus() প্রসিডিউরে ক্লিক করে নিম্নরূপ কোড লিখতে হবে।
Private Sub txthouserent_LostFocus()
If Not IsNumeric(txthouserent.Text) Then
MsgBox “invalid houserent”
txthouserent.Text = “”
End If
End Sub
txtjoining_LostFocus() প্রসিডিউরে ক্লিক করে নিম্নরূপ কোড লিখতে হবে।
Private Sub txtjoining_LostFocus()
If Not IsDate(txtjoining.Text) Then
MsgBox “invalid date”
txtjoining.Text = “”
End If
End Sub
txtsalary_LostFocus() প্রসিডিউরে ক্লিক করে নিম্নরূপ কোড লিখতে হবে।
Private Sub txtsalary_LostFocus()
If Not IsNumeric(txtsalary.Text) Then
MsgBox “invalid salary”
txtsalary.Text = “”
End If
End Sub
এরপর প্রজেক্টটি রান করতে হবে।
This Visual Project
Prepared by
Md Nure Alam Nur
All Programmings are
Directed by: d Nure Alam Nur
No comments
Post a Comment