با سلام
برنامه ماشین حساب به همراه دکمه clear
فقط رای ما از یاد نره


17 تا command داریم:
command 1 ta 10:
text1.text=text1.text & 1
به ترتیب برای هر کامند عدد خودش رو می نویسیم مثلا دستور بالایی برای کامند 1 ، عدد 1 بود مثلا برای عدد صفر به شکل زیر خواهد بود :
text1.text=text1.text & 0

پس کامند 1 تا 10 برای اعداد 0 تا 9

حال برای ممیز در داخل یک کامند :
text1.text=text1.text & "."
یعنی در به جای عدد عبارت "."

برای clear :
A=0
B=0
O=""
TEXT1.TEXT & 0

برای عملگرها :
مثلا برای ضرب ( برای دیگر عملگرها کافیه علامت ضرب به اون عملگری که می خواین تغییر بدین )
a=text1.text
o="*"
text1.text=""

رای ما که از یادت نرفت ؟

سلام دوست عزیز .

نمی دونم جدی می گین یا شوخی می کنین . ولی اگه منظورتون یه ماشین حساب سادست کافیه دکمه های مورد نظر رو بذارین برای اعداد . دکمه های چهار عمل اصلی رو هم بذارین . ممیز یادتون نره .

چند تا متغیر کوچولو هم تعریف کنین تا در هر لحظه مقدار موجود در فیلد ورودی و عمل انجامی رو کنترل کنه .

یه دستور کوچیک هم برای تغییر مقدار داخل فیلد نمایش (مثلا txtdisplay) بذارین که با کلیک روی هر دکمه عدد اون رو به اون فیلد اضافه کنه .

کار سختی نیست . اگه بازم مشکلی داشتین برام پیغام بذارین تا سورس کاملشو براتون بفرستم .

البته اگه در بند ظاهر و اینا نباشین سورس سان بوی عزیز هم کارتون رو به طور کامل راه می اندازه .

سلام عزیزم من خودم برنامه نویسم می خوای برات كل برنامه رو بفرستم

سلام من این کد رو براتون میذارم فقط زحمت طراحی یک فرم ماشین حساب رو بکشید:
Dim mem1 As Long
Dim mem2 As Long
Dim mem3 As Long
Dim mem4 As Long
Dim num1 As Long
Dim num2 As Long
Dim result As Long
Dim op As String
Private Sub Command1_Click()
Text1.Text = Text1.Text + "1"
End Sub
Private Sub Command10_Click()
Text1.Text = Text1.Text + "9"
End Sub
Private Sub Command11_Click()
Text1.Text = Text1.Text + "0"
End Sub
Private Sub Command12_Click()
num1 = Val(Text1.Text)
op = "-"
Text1.Text = ""
End Sub
Private Sub Command13_Click()
num1 = 0
num2 = 0
Text1.Text = ""
End Sub
Private Sub Command14_Click()
mem1 = Val(Text1.Text)
End Sub
Private Sub Command15_Click()
mem2 = Val(Text1.Text)
End Sub
Private Sub Command16_Click()
mem3 = Val(Text1.Text)
End Sub
Private Sub Command17_Click()
mem4 = Val(Text1.Text)
End Sub
Private Sub Command18_Click()
num1 = Val(Text1.Text)
op = "*"
Text1.Text = ""
End Sub

Private Sub Command19_Click()
num2 = Val(Text1.Text)
Select Case op
Case "+"
result = num1 + num2
Case "-"
result = num1 - num2
Case "*"
result = num1 * num2
Case "/"
result = num1 / num2
End Select
Text1.Text = Str(result)
op = ""
End Sub
Private Sub Command2_Click()
Text1.Text = Text1.Text + "2"
End Sub
Private Sub Command20_Click()
Text1.Text = Str(mem1)
End Sub
Private Sub Command21_Click()
Text1.Text = Str(mem2)
End Sub
Private Sub Command22_Click()
Text1.Text = Str(mem3)
End Sub
Private Sub Command23_Click()
Text1.Text = Str(mem4)
End Sub

Private Sub Command24_Click()
num1 = Val(Text1.Text)
op = "/"
Text1.Text = ""
End Sub
Private Sub Command3_Click()
Text1.Text = Text1.Text + "3"
End Sub
Private Sub Command4_Click()
Text1.Text = Text1.Text + "4"
End Sub
Private Sub Command5_Click()
Text1.Text = Text1.Text + "5"
End Sub
Private Sub Command6_Click()
num1 = Val(Text1.Text)
op = "+"
Text1.Text = ""
End Sub
Private Sub Command7_Click()
Text1.Text = Text1.Text + "6"
End Sub
Private Sub Command8_Click()
Text1.Text = Text1.Text + "7"
End Sub
Private Sub Command9_Click()
Text1.Text = Text1.Text + "8"
End Sub

Private Sub exit_Click()
End
End Sub

Private Sub Form_Load()
Form1.Caption = "Calculator"
Text1.Text = ""
num1 = 0
num2 = 0
op = ""
Text1.Locked = True
End Sub

toye in site mitoni down load konii
Www.Micro-tc.blogfa.com
ray yadet nare

دوستان کامل راحنمایی کردن اگه بتز حل نشده پیام بده ؟

سلام
اگه پروژه ماشین حساب با sourse می خواهید به من میل بدید تا ظرف 24 ساعت براتون بفرستم
roz_3769@yahoo.com
sabet.ir@gmail.com
بای

روی میلت می فرستم

سلام
دوست عزیز ، شما که برای نوشتن ماشین حساب مشکل داری یه پیشنهاد بهتون میدم حتما عمل کنید .
به جای ماهی گرفتن از دیگران ، ماهیگیری رو یاد بگیرید .
کتاب آموزش ویژوال بیسیک جعفر نژاد رو بگیرید ، توش قدم به قدم ، همراه با پروژه ویژوال بیسیک رو درس داده .
پروژه اولش هم ماشین حساب هستش .

البته یک وقت حمل بر جسارت نشه ، این فقط یک توصیه دوستانه بود .

در هر صورت موفق باشید .

عزیزم به iranvig.com برو و هر چی می خای دانلود کن

سلام
بهترین محل برای سفارش پروژه سایت پارس کدرز است
آدرس سایت http://www.ParsCoders.com می باشد.
شما می توانید پروژه خود را در سایت ثبت نمایید تا مجریان سایت برای شما با پایین ترین قیمت و بهتری کیفیت پروژه را بنویسند.

SALAM
09125247652
BY
REZA

اینو دادشم نوشته می خوای ازش بگیرم
12 سالشه