অাসুন ভিজুয়াল বেসিক শিখি-৩

অাজ শিখব একটি ক্যালকুলেটর তৈরি।প্রথেম...... করি। একটি ফম....করি। একটি টেষ্কবক্র নিব। ২৩ টি কমান্ড বাটন নিব। কমান্ড বাটন এর প্রতিটির ক্যাপশেন গিয়ে 0-9এবং অন্যান্ন চিন্হগুলো দিব।এখন কমান্ড বাটনে নিচের কোড লিখব। এখন রান করি, ভালভাবে রান করলে .exeতৈরি করুন। File যান Click করুন make exe. নাম দিন, ব্যাস উপভোগ করুন। মন্তব্য করতে ভুলবেন না।

Code:

Dim co As TextBox
Dim no1 As Double
Dim no2 As Double
Dim operator As String
Private Sub Command1_Click()
no2 = Val(Text1.Text)
If operator = "+" Then
Text1.Text = Val(no1) + Val(no2)
ElseIf operator = "-" Then
Text1.Text = Val(no1) - Val(no2)
ElseIf operator = "*" Then
Text1.Text = Val(no1) * Val(no2)
ElseIf operator = "/" Then
Text1.Text = Val(no1) / Val(no2)
End If
End Sub

Private Sub Command10_Click()
Unload Me
End Sub

Private Sub Command11_Click()
no1 = Val(Text1.Text)
operator = "*"
Text1.Text = ""
End Sub

Private Sub Command12_Click()
no1 = Val(Text1.Text)
operator = "/"
Text1.Text = ""
End Sub

Private Sub Command13_Click()
Text1.Text = Text1.Text & "9"
End Sub

Private Sub Command14_Click()
Text1.Text = Text1.Text & "8"
End Sub

Private Sub Command15_Click()
Text1.Text = Text1.Text & "7"
End Sub

Private Sub Command16_Click()
Text1.Text = Text1.Text & "6"
End Sub

Private Sub Command17_Click()
Text1.Text = Text1.Text & "5"
End Sub

Private Sub Command18_Click()
Text1.Text = Text1.Text & "4"
End Sub

Private Sub Command19_Click()
Text1.Text = Text1.Text & "3"
End Sub

Private Sub Command2_Click()
no1 = Val(Text1.Text)
operator = "+"
Text1.Text = ""
End Sub

Private Sub Command20_Click()
Text1.Text = Text1.Text & "2"
End Sub

Private Sub Command21_Click()
Text1.Text = Text1.Text & "1"
End Sub

Private Sub Command22_Click()
Text1.Text = Text1.Text & "0"
End Sub

Private Sub Command23_Click()
Text1.Text = Val(Text1.Text) * (-1)
End Sub

Private Sub Command3_Click()
Text1.Text = Text1.Text & "."
End Sub

Private Sub Command4_Click()
no1 = Val(Text1.Text)
operator = "-"
Text1.Text = ""
End Sub

Private Sub Command5_Click()
Text1.Text = 1 / Val(Text1.Text)
End Sub

Private Sub Command6_Click()
no2 = Val(Text1.Text)
If operator = "+" Then
Text1.Text = Val(no1) + Val(no2)
ElseIf operator = "-" Then
Text1.Text = Val(no1) - Val(no2)
ElseIf operator = "*" Then
Text1.Text = Val(no1) * Val(no2)
ElseIf operator = "/" Then
Text1.Text = Val(no1) / Val(no2)
End If
Text1.Text = Text1.Text * 100
End Sub

Private Sub Command7_Click()
Text1.Text = Sqr(Val(Text1.Text))
End Sub

Private Sub Command8_Click()
Text1.Text = vbNullString
no1 = no2 = 0
End Sub

Private Sub Command9_Click()
Text1.Text = vbNullString
End Sub

Private Sub Form_Load()

End Sub

Level 0

আমি parvej। বিশ্বের সর্ববৃহৎ বিজ্ঞান ও প্রযুক্তির সৌশল নেটওয়ার্ক - টেকটিউনস এ আমি 15 বছর 11 মাস যাবৎ যুক্ত আছি। টেকটিউনস আমি এ পর্যন্ত 8 টি টিউন ও 31 টি টিউমেন্ট করেছি। টেকটিউনসে আমার 0 ফলোয়ার আছে এবং আমি টেকটিউনসে 0 টিউনারকে ফলো করি।

Complied Diploma in Computer Science & Engineering Complied BSc in Computer Science & Engineering


টিউনস


আরও টিউনস


টিউনারের আরও টিউনস


টিউমেন্টস

Level 0

শিখানোর ইচ্ছা তো মোটেও নেই। আশা করি এর পর স্ক্রীনশট সহকারে উপস্থাপন করবেন। নামটা কিন্তু ভিজুয়াল বেসিক তাই ভিজুয়াল না থাকলে কেমন দেখায় । ধন্যবাদ!

Level 0

ভিজুয়াল বেসিক শিখতে গেলে প্রথমে কি soft লাগবো বরবেন কি কেও ……Techtunes এর সকল ভাইদের কাছে আমার এই প্রশ্ন

Level 0

ভিজুয়াল বেসিক শিখতে গেলে প্রথমে কি soft লাগবো বলবেন কি কেও ……Techtunes এর সকল ভাইদের কাছে আমার এই প্রশ্ন
………………

    Level 0

    ভিজুয়াল বেসিক 6.0 হলে হবে, মজার কাজ করে েদখতে পারেন।

Level 0

একটু Clearly বলেন।

    মম ভাই, আপনাকে বলছি, আপনার কমেন্টের ছবিটি এত পরিস্কার দেখায় কিভাবে? একটু বিস্তারিত বললে উপকার হত, আমার টা যা দেখা যায । আমি graviton দিয়া করেছি, ছবির সাইজ ১০০ * ১০০ Px দিয়েছি

সবার জন্য পরামর্শ হলো আপনারা প্রথমে Microsoft Visual Studio ইন্সটল করে নিন। এটি হলো মাইক্রোসফ্‌ট এর সফ্‌টওয়্যার ডেভেলপমেন্ট টুল্‌স। এর মাধ্যমে ভিজুয়াল সি++, ভিজুয়াল বেসিক সহ আরো বিভিন্ন ল্যাঙ্গুয়েজ-এ বিভিন্ন ধরণের প্রোগ্রাম তৈরি করা হয়। আগে ইনস্টল দিয়ে নিন। তারপর কোন ল্যাঙ্গুয়েজে কিসের প্রোগ্রাম তৈরি করবেন সেটা আপনার ব্যাপার।

সবাই ভাল থাকবেন।

    Level 0

    Microsoft Visual Studio অনেক বড় আর আর কাজ ও অনেক বেিশ।প্রথম অবস্থায় ভিজুয়াল বেসিক 6.0 দেয়া কাজ িশখাই ভাল। তাই না——-

Level 0

ভাই আপনি নিজে ভিজুয়্যাল বেসিক এর বেসিক জানেন হয়তো । কিন্তু শেখানোর কেপাসিটি আপনার কম। তাই সাজেশন- ভিজুল্যাল ব্যবহার করুন। ধন্যবাদ

ভাই বললে সবটুকু বলুন, অধেক টিউন করে লাভ নাই, স্ক্রীনশট ছাড়া অসম্পূণ

Level 0

ভাই দুঃখিত, অামি নতুন ইউজার, স্ক্রীনশট attach করেত পারছিনা। PLS বলবেন নিয়মটা।

Level 0

matha nosto hoye jabe dorkar nai