منتدي تعليمي، ترفيهي، اجتماعي
 
الرئيسيةالبوابةس .و .جالجديدبحـثالتسجيلدخول

شاطر | 
 

 أول ألة حاسبة من تطويري بجد تحفة

اذهب الى الأسفل 
كاتب الموضوعرسالة
admin
المدير العام

المدير العام
avatar

عدد المساهمات : 1560
الجنس : ذكر
تاريخ التسجيل : 27/06/2008
المزاج :
علم الدولة : مصر
الأوسمة :

مُساهمةموضوع: أول ألة حاسبة من تطويري بجد تحفة   الأربعاء 28 أبريل 2010, 2:42 pm





ألــــــــــة حــاسـبـة مـتـطـورة ( تـحـفـة )

هذه
الألة ليست من تصميمي ولكنني قمت بالتعديل عليها وتطويرها لتظهر
لحضراتكم
بهذا الشكل


قبل



وبعد

[/URL]

ندخل في الموضوع ها هو الكود البرمجي

[php]

Option Explicit
Dim operand1 As Double, operand2 As Double
Dim
operator As String
Dim cleardisplay As Boolean
Dim memory1 As
Double
Dim percent As Double



Private Sub
cmdClear_Click()
If Label2.Caption <> "Calculator" Then
MsgBox
"Click On The Calculator Button First!!"
End If
lblDisplay.Caption
= ""

End Sub

Private Sub cmdClearAll_Click()
If
Label2.Caption <> "Calculator" Then
MsgBox "Click On The
Calculator Button First!!"
End If
operand1 = 0
operand2 = 0
lblDisplay.Caption
= ""
lblRunning.Caption = ""

End Sub

Private Sub
cmdCos_Click()
lblDisplay.Caption = Cos(Val(lblDisplay.Caption))

End
Sub

Private Sub cmdDigits_Click(Index As Integer)

If
cleardisplay Then
lblDisplay.Caption = ""
cleardisplay =
False
End If
If Len(lblDisplay.Caption) < 10 Then

lblDisplay.Caption = lblDisplay.Caption + cmdDigits(Index).Caption

Else
End If


End Sub

Private Sub
cmdDivide_Click()

operand1 = Val(lblDisplay.Caption)
operator =
"/"
lblDisplay.Caption = ""

End Sub

Private Sub
cmdEquals_Click()

On Error GoTo errorhandler

Dim result As
Double

operand2 = Val(lblDisplay.Caption)
If operator = "+"
Then result = operand1 + operand2
If operator = "-" Then result =
operand1 - operand2
If operator = "*" Then result = operand1 *
operand2
If operator = "/" And operand2 <> "0" Then _

result = operand1 / operand2
lblDisplay.Caption = result
operand1
= result
lblRunning.Caption = result
Exit Sub

errorhandler:
MsgBox
"The operation resulted in the following error" & _
vbCrLf
& Err.Description
lblDisplay.Caption = "ERROR"
cleardisplay =
True

End Sub

Private Sub cmdMemory1_Click()
memory1 =
lblDisplay.Caption
lblMemory1 = memory1
End Sub

Private Sub
cmdMemory2_Click()
lblDisplay.Caption = memory1
End Sub

Private
Sub cmdMemory3_Click()
memory1 = 0
lblMemory1.Caption = ""

End
Sub

Private Sub cmdMinus_Click()

operand1 =
Val(lblDisplay.Caption)
operator = "-"
lblDisplay.Caption = ""

End
Sub

Private Sub cmdOver_Click()

If
Val(lblDisplay.Caption) <> 0 Then lblDisplay.Caption = _

1 / Val(lblDisplay.Caption)


End Sub


Private Sub cmdPlus_Click()

operand1 =
Val(lblDisplay.Caption)
operator = "+"
lblDisplay.Caption = ""
lblRunning.Caption
= operand1

End Sub

Private Sub cmdPlusMinus_Click()

lblDisplay.Caption
= -Val(lblDisplay.Caption)

End Sub

Private Sub
cmdSin_Click()
lblDisplay.Caption = Sin(Val(lblDisplay.Caption))
End
Sub

Private Sub cmdSquareRoot_Click()
If lblDisplay.Caption
< 0 Then
MsgBox "Can't calculate the square root of a negative
number"
Else
lblDisplay.Caption = Sqr(Val(lblDisplay.Caption))
End
If
End Sub

Private Sub cmdTimes_Click()

operand1 =
Val(lblDisplay.Caption)
operator = "*"
lblDisplay.Caption = ""

End
Sub

Private Sub Command1_Click()

If
InStr(lblDisplay.Caption, ".") Then
Exit Sub
Else

lblDisplay.Caption = lblDisplay.Caption + "."
End If

End Sub

Private
Sub Command2_Click()
Label1.Visible = False
Label3.Visible =
False
Label4.Visible = False
Label5.Visible = True
Label2.Caption
= "Clock"
Timer1.Enabled = True
End Sub

Private Sub
Command3_Click()
Label2.Caption = "Calculator"
Timer1.Enabled =
False
Label1.Visible = False
Label3.Visible = False
Label4.Visible
= False
Label5.Visible = False
cmdClearAll_Click
End Sub

Private
Sub Command4_Click()
Label2.Caption = "Date"
Timer1.Enabled =
False
Label1.Visible = True
Label3.Visible = True
Label4.Visible
= True
Label5.Visible = False
lblDisplay.Caption = " " &
Year(Now) & " " & Month(Now) & " " &
Day(Now)
End Sub
Private Sub Form_Load()
Label2.Caption =
"Calculator"
Skin1.ApplySkin hWnd
End Sub

Private Sub
Timer1_Timer()
lblDisplay.Caption = Format(Now, "hh:mm:ss AM/PM")
End
Sub

[/php]

^^
^^
^^
^^

ولتحميل المشروع
جاهز




mediafire.com ?kyoyzfbzj1m






الرجوع الى أعلى الصفحة اذهب الى الأسفل
http://telbana.alafdal.net
محمد ابو العلا
عضو جديد
عضو جديد


عدد المساهمات : 84
تاريخ التسجيل : 01/05/2010
المزاج :
علم الدولة : مصر
الأوسمة : صاحب الحضور الدائم

مُساهمةموضوع: رد: أول ألة حاسبة من تطويري بجد تحفة   الجمعة 11 يونيو 2010, 9:25 pm

جميلة يا اخي
شكرا علي التصميم
الرجوع الى أعلى الصفحة اذهب الى الأسفل
aya
عضو فعال
عضو فعال


عدد المساهمات : 531
الجنس : انثى
تاريخ التسجيل : 05/05/2010
المزاج :
علم الدولة : مصر
الأوسمة : صاحب الحضور الدائم

مُساهمةموضوع: رد: أول ألة حاسبة من تطويري بجد تحفة   الخميس 16 سبتمبر 2010, 3:57 pm

مشكوووور على الموضوع الرائع
الرجوع الى أعلى الصفحة اذهب الى الأسفل
نور الدين
نائب المدير

نائب المدير
avatar

عدد المساهمات : 5428
الجنس : ذكر
تاريخ التسجيل : 26/04/2010
المزاج :
علم الدولة : مصر
الأوسمة : ادارة المنتدي

مُساهمةموضوع: رد: أول ألة حاسبة من تطويري بجد تحفة   الإثنين 20 سبتمبر 2010, 12:38 am

مشكور تسلم ايديك













الرجوع الى أعلى الصفحة اذهب الى الأسفل
http://telbana.alafdal.net
تلبانه _تلبانه
V I P
V I P


عدد المساهمات : 7224
الجنس : ذكر
تاريخ التسجيل : 08/06/2010
المزاج :
علم الدولة : مصر
الأوسمة : صاحب الحضور الدائم

مُساهمةموضوع: رد: أول ألة حاسبة من تطويري بجد تحفة   الإثنين 27 سبتمبر 2010, 2:28 pm

موضوع جميل وننتظر المزيد
الرجوع الى أعلى الصفحة اذهب الى الأسفل
الكاسر
عضو جديد
عضو جديد
avatar

عدد المساهمات : 1
الجنس : ذكر
تاريخ التسجيل : 12/02/2011
المزاج :
علم الدولة : مصر
الأوسمة :

مُساهمةموضوع: الشكر كل الشكر   السبت 12 فبراير 2011, 5:15 pm

مشكور على هذا العمل البرمجي
أنا عملت ألة حاسبة ولكن بلغة السي شارب
وأنشاء الله قريباً سترونها
الرجوع الى أعلى الصفحة اذهب الى الأسفل
 
أول ألة حاسبة من تطويري بجد تحفة
الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1

صلاحيات هذا المنتدى:لاتستطيع الرد على المواضيع في هذا المنتدى
منتدي تلبانة :: المنتديات التقنية :: قسم لغات البرمجة-
انتقل الى: