https://ganbichchitra.blogspot.com/google785737830bcedd5c.htm A simple calculator ~ www.ganbichchitra.blogspot.com

জ্ঞান বিচিত্রা জ্ঞানের আলো,জ্ঞানের সন্ধানে সবাই চলো

AD BANNER
IT World Bangla

Friday, June 1, 2018

Home » » A simple calculator

A simple calculator

June 01, 2018    No comments
একটি VB প্রোগ্রাম লিখুন যা উইন্ডোজ ক্যালকুলেটর প্রোগ্রামের মৌলিক ফাংশন এবং আচরণকে অনুকরণ করে। তার ইন্টারফেসটি অধ্যয়ন করতে, আপনি টাস্কবারের স্টার্ট বাটনে ক্লিক করে রান করতে পারেন, তারপর প্রোগ্রামগুলিতে যান, তারপর Accessories এ যান। আপনি কমপক্ষে যোগফল, বিয়োগ এবং গুণের মৌলিক ফাংশনকে সমর্থন করতে, সেইসাথে সংখ্যা (+/- key) এর চিহ্ন পরিবর্তন করা উচিত। আপনি যদি sqrt,%, এবং 1 / x ফাংশনগুলি সমর্থন করতে চান তবে এটি আপনার উপরে থাকবে। বাম (এমসি, এমআর, এমএস, এম +) বা বৈজ্ঞানিক বৈশিষ্ট্যগুলির "এম" কী দিয়ে বিরক্ত করবেন না।
(Write a VB program that simulates the basic functions and behavior of the Windows calculator program. To study its interface, you can run it by clicking the Start button on the taskbar, then go to Programs, then Accessories. You should at least support the basic functions of addition, subtraction, and multiplication, as well as changing the sign of the number (the +/- key). It's up to you if you want to support the sqrt, %, and 1/x functions. Don't bother with the "M" keys on the left (MC, MR, MS, M+) or the scientific features.)
sir ? huhu our teacher assign us the vb project but its hard for us to make it , can we ask some help sir? our concept is about on line shopping with 5-6 forms , its just a simple without the use of database and ADO only very simple form..
thank you and Godbless sir

Mon, 07/29/2013 - 17:05 — JHAZVIN (not verified)

Simple Fraction calculator

hai! can you give me some idea on making Simple Fraction calculator that calculates answer into simpliest form! plz...

Mon, 07/22/2013 - 02:57 — Balu Balaji (not verified)

Here's the code for simple calulator

Take a few commands and arrange them in calculator style and start executing the below code with proper command names as specified.
Dim Op1, Op2 As Double
Dim Opr As String
Private Sub Command1_Click()
Text1.Text = Text1.Text + Command1.Caption
If cleardisplay Then
Text1.Text = ""
cleardisplay = False
End If
End Sub
Private Sub Command2_Click()
Text1.Text = Text1.Text + Command2.Caption
If cleardisplay Then
Text1.Text = ""
cleardisplay = False
End If
End Sub
Private Sub Command3_Click()
Text1.Text = Text1.Text + Command3.Caption
If cleardisplay Then
Text1.Text = ""
cleardisplay = False
End If
End Sub
Private Sub Command4_Click()
Text1.Text = Text1.Text + Command4.Caption
If cleardisplay Then
Text1.Text = ""
cleardisplay = False
End If
End Sub
Private Sub Command5_Click()
Text1.Text = Text1.Text + Command5.Caption
If cleardisplay Then
Text1.Text = ""
cleardisplay = False
End If
End Sub
Private Sub Command6_Click()
Text1.Text = Text1.Text + Command6.Caption
If cleardisplay Then
Text1.Text = ""
cleardisplay = False
End If
End Sub
Private Sub Command7_Click()
Text1.Text = Text1.Text + Command7.Caption
If cleardisplay Then
Text1.Text = ""
cleardisplay = False
End If
End Sub
Private Sub Command8_Click()
Text1.Text = Text1.Text + Command8.Caption
If cleardisplay Then
Text1.Text = ""
cleardisplay = False
End If
End Sub
Private Sub Command9_Click()
Text1.Text = Text1.Text + Command9.Caption
If cleardisplay Then
Text1.Text = ""
cleardisplay = False
End If
End Sub
Private Sub Command10_Click()
Text1.Text = Text1.Text + Command10.Caption
If cleardisplay Then
Text1.Text = ""
cleardisplay = False
End If
End Sub
Private Sub CommandDot_Click()
If InStr(Text1.Text, ".") Then
Exit Sub
Else
Text1.Text = Text1.Text + "."
End If
End Sub
Private Sub Commandcls_Click()
Text1.Text = ""
End Sub
Private Sub CommandPlus_Click()
Op1 = Val(Text1.Text)
Opr = "+"
Text1.Text = ""
End Sub
Private Sub CommandMinus_Click()
Op1 = Val(Text1.Text)
Opr = "-"
Text1.Text = ""
End Sub
Private Sub CommandMul_Click()
Op1 = Val(Text1.Text)
Opr = "*"
Text1.Text = ""
End Sub
Private Sub CommandDiv_Click()
Op1 = Val(Text1.Text)
Opr = "/"
Text1.Text = ""
End Sub
Private Sub CommandEqu_Click()
Op2 = Val(Text1.Text)
Select Case Opr
Case "+": Text1.Text = Op1 + Op2
Case "*": Text1.Text = Op1 * Op2
Case "-": Text1.Text = Op1 - Op2
Case "/": Text1.Text = Op1 / Op2
End Select
End Sub
Private Sub Commandexit_Click()
End
End Sub
Private Sub Form_Load()
Text1.Text = ""
End Sub

Thu, 06/20/2013 - 18:53 — cherry ann Letigio (not verified)

Visual basic 6.0

hai can you pls help me how to create code in a calculator.. just a simple calculator like theres an button like 1,2,3, etc and back space plz ASAP!!!!!!!!!!!!!!!!!!!!!!!!!!

Mon, 07/22/2013 - 02:59 — Balu Balaji (not verified)

Here's the code for simple calulator

Take a few commands and arrange them in calculator style and start executing the below code with proper command names as specified.
Dim Op1, Op2 As Double
Dim Opr As String
Private Sub Command1_Click()
Text1.Text = Text1.Text + Command1.Caption
If cleardisplay Then
Text1.Text = ""
cleardisplay = False
End If
End Sub
Private Sub Command2_Click()
Text1.Text = Text1.Text + Command2.Caption
If cleardisplay Then
Text1.Text = ""
cleardisplay = False
End If
End Sub
Private Sub Command3_Click()
Text1.Text = Text1.Text + Command3.Caption
If cleardisplay Then
Text1.Text = ""
cleardisplay = False
End If
End Sub
Private Sub Command4_Click()
Text1.Text = Text1.Text + Command4.Caption
If cleardisplay Then
Text1.Text = ""
cleardisplay = False
End If
End Sub
Private Sub Command5_Click()
Text1.Text = Text1.Text + Command5.Caption
If cleardisplay Then
Text1.Text = ""
cleardisplay = False
End If
End Sub
Private Sub Command6_Click()
Text1.Text = Text1.Text + Command6.Caption
If cleardisplay Then
Text1.Text = ""
cleardisplay = False
End If
End Sub
Private Sub Command7_Click()
Text1.Text = Text1.Text + Command7.Caption
If cleardisplay Then
Text1.Text = ""
cleardisplay = False
End If
End Sub
Private Sub Command8_Click()
Text1.Text = Text1.Text + Command8.Caption
If cleardisplay Then
Text1.Text = ""
cleardisplay = False
End If
End Sub
Private Sub Command9_Click()
Text1.Text = Text1.Text + Command9.Caption
If cleardisplay Then
Text1.Text = ""
cleardisplay = False
End If
End Sub
Private Sub Command10_Click()
Text1.Text = Text1.Text + Command10.Caption
If cleardisplay Then
Text1.Text = ""
cleardisplay = False
End If
End Sub
Private Sub CommandDot_Click()
If InStr(Text1.Text, ".") Then
Exit Sub
Else
Text1.Text = Text1.Text + "."
End If
End Sub
Private Sub Commandcls_Click()
Text1.Text = ""
End Sub
Private Sub CommandPlus_Click()
Op1 = Val(Text1.Text)
Opr = "+"
Text1.Text = ""
End Sub
Private Sub CommandMinus_Click()
Op1 = Val(Text1.Text)
Opr = "-"
Text1.Text = ""
End Sub
Private Sub CommandMul_Click()
Op1 = Val(Text1.Text)
Opr = "*"
Text1.Text = ""
End Sub
Private Sub CommandDiv_Click()
Op1 = Val(Text1.Text)
Opr = "/"
Text1.Text = ""
End Sub
Private Sub CommandEqu_Click()
Op2 = Val(Text1.Text)
Select Case Opr
Case "+": Text1.Text = Op1 + Op2
Case "*": Text1.Text = Op1 * Op2
Case "-": Text1.Text = Op1 - Op2
Case "/": Text1.Text = Op1 / Op2
End Select
End Sub
Private Sub Commandexit_Click()
End
End Sub
Private Sub Form_Load()
Text1.Text = ""
End Sub

0 মন্তব্য(গুলি):

Post a Comment