منتدى الطلاب اليمنيين في الجزائر


اضغط لتنتقل الى الموقع الجديد الخاص بالطلبة اليمنيين بالجزائر www.amal-yemen.com
 
الرئيسيةالبوابةاليوميةمكتبة الصورس .و .جبحـثقائمة الاعضاءالمجموعاتالتسجيلدخول
بحـث
 
 

نتائج البحث
 
Rechercher بحث متقدم
المواضيع الأخيرة
» أفضل مجموعة كتب(Collection Noire) للغات البرمجة من إنتاج شركة Eyrolles (باللغة الفرنسية)
السبت أكتوبر 11, 2014 8:17 am من طرف elhanche

» كتاب صيانة الحاسب الالي (maintenance informatique par la pratique)
الجمعة مايو 16, 2014 5:20 am من طرف medicokhaled

» رسالة اعجاب وشكر
الجمعة يناير 10, 2014 1:30 pm من طرف faisal ali

» رسالة اعجاب وشكر
الجمعة يناير 10, 2014 1:29 pm من طرف faisal ali

» برنامج تعلم صيانة الحاسب الالي المحمول والثابت بطرية تطبيقية ورائعة من شركة cisco
الأربعاء ديسمبر 25, 2013 3:27 am من طرف LESOLITAIRE

» tu te sens comment
الخميس أغسطس 29, 2013 11:33 am من طرف حنان تركي

» طلاب درسات عليا في مجال الحاسوب
السبت مارس 09, 2013 4:09 pm من طرف adnant

» الى طلاب الدرسات العليا حاسوب
السبت مارس 09, 2013 4:05 pm من طرف adnant

» اريد هواتف تعمل للسفارة من يخدمني
الأربعاء فبراير 20, 2013 1:02 am من طرف Sandman2

تسجيل صفحاتك المفضلة في مواقع خارجية
قم بحفض و مشاطرة الرابط منتدى الطلاب اليمنيين في الجزائر على موقع حفض الصفحات
الإبحار
 البوابة
 الفهرس
 قائمة الاعضاء
 البيانات الشخصية
 س .و .ج
 ابحـث

شاطر | 
 

 [size=24]كود ألة حاسبة علمية بلغة الفيجول بيسك [/size]

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



مُساهمةموضوع: [size=24]كود ألة حاسبة علمية بلغة الفيجول بيسك [/size]   الجمعة أبريل 04, 2008 3:16 am

هذه اكواد اله حاسبه علميه وان شاء الله تكون الاكواد واضحة ومفهومه

Dim clearDisplay As Boolean
Dim Operand1 As Double, Operand2 As Double هنا تكتب الاكواد في اعلى الصفحة وبالضبط
Dim [Operator] As Stringا
public class تحت كلمة الــ
هنا تكتب الكود في زر رقم واحد ولاحظ كتابة اسامي الازرار في كود واحد


Private Sub bttn1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttn0.Click, bttn1.Click, bttn2.Click, _
bttn3.Click, bttn4.Click, bttn5.Click, bttn6.Click, bttn7.Click, bttn8.Click, bttn9.Click


If clearDisplay Then
lblDisplay.Text = ""
clearDisplay = False
End If
lblDisplay.Text = Val(lblDisplay.Text + sender.text)
End Sub
__________________________________________________ ________________________
كود زر الفاصلة في الارقام

Private Sub bttnPeriod_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttnPeriod.Click

If lblDisplay.Text.IndexOf(".") > 0 Then
Exit Sub
Else
lblDisplay.Text = lblDisplay.Text & "."
End If
End Sub
__________________________________________________ _______________________
كود زر الامر الجمع (+)

Private Sub bttnPlus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttnPlus.Click

Operand1 = Val(lblDisplay.Text)
[Operator] = "+"
clearDisplay = True
End Sub
__________________________________________________ _______________________
كود عملية اليساوي (=)

Private Sub bttnEquals_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttnEquals.Click

Dim result As Double
Operand2 = Val(lblDisplay.Text)
Try
Select Case [Operator]
Case "+"
result = Operand1 + Operand2
Case "-"
result = Operand1 - Operand2
Case "*"
result = Operand1 * Operand2
Case "/"
If Operand2 <> "0" Then lblDisplay.Text = result
End Select
Catch exc As Exception
MsgBox(exc.Message)
result = "ERROR"
Finally
lblDisplay.Text = result
clearDisplay = True
End Try
End Sub

__________________________________________________ _______________________





كود عملية الطرح (-)

Private Sub bttnMinus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttnMinus.Click

Operand1 = Val(lblDisplay.Text)
[Operator] = "-"
clearDisplay = True ' lblDisplay.Text = ""

End Sub
__________________________________________________ _______________________
كود عملية الضرب (*)

Private Sub bttnMultiply_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttnMultiply.Click

Operand1 = Val(lblDisplay.Text)
[Operator] = "*"
clearDisplay = True

End Sub
__________________________________________________ _______________________
كود عملية القسمه (/)
Private Sub bttnDivide_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttnDivide.Click

Operand1 = Val(lblDisplay.Text)
[Operator] = "/"
clearDisplay = True

End Sub
__________________________________________________ _______________________
وغير الخاصية من form_ اكتب هذا الكود في الـ
Form_load الى form_keypress

Private Sub Form_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles MyBase.KeyPress
If System.Char.IsDigit(e.KeyChar) Or e.KeyChar = "." Then
If clearDisplay Then
lblDisplay.Text = ""
clearDisplay = False
End If
lblDisplay.Text = lblDisplay.Text + e.KeyChar
End If
End Sub
__________________________________________________ _______________________
كود زر المسح في مربع النص lblDisplay.Text

Private Sub bttnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttnClear.Click

lblDisplay.Text = ""
الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو
 
[size=24]كود ألة حاسبة علمية بلغة الفيجول بيسك [/size]
استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1
 مواضيع مماثلة
-
» [size=18]سيف الأولياء[/size]
» size=18][/size]بعض التسجيلات المرئيه التى لها علاقه بالجان
» [size=12]صور النجم بوبي ديول[/size]

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