طلب مساعدة في شيفرة الآلة الحاسبة

اختي vbnet بالنسبه لكود الآله الحاسبه فهو مرفق

ولكن للأمانة :

الكود مأخوذ من كتاب الأخ محمد حمدي غانم

والسلام عليكم,, :)

Calc.zip

يعني أنا حاطط مشروع كامل و انتي جاية تسألي و الله العظيم تحت موضوعك ب 3 مواضيع حتلاقيه في موضوع المنافسة و كانوا اقترحوا كود الة حاسبة و علي فكرة هيا بتشتغل من الأزرار و من الكيبورد أيضا، و فيها أفكار جديدة حمليها و اتفرجي علي الكود و لو مش فاهمة حاجة قوليها ولو اني عملتها و انا مبتديء، بس الحمد لله ماأظنش ان فيها bugs

romantic_boy كتب:

يعني أنا حاطط مشروع كامل و انتي جاية تسألي و الله العظيم تحت موضوعك ب 3 مواضيع حتلاقيه في موضوع المنافسة و كانوا اقترحوا كود الة حاسبة و علي فكرة هيا بتشتغل من الأزرار و من الكيبورد أيضا، و فيها أفكار جديدة حمليها و اتفرجي علي الكود و لو مش فاهمة حاجة قوليها ولو اني عملتها و انا مبتديء، بس الحمد لله ماأظنش ان فيها bugs

←

ده رابط الموضوع My Webpage

أما بخصوص بعض الأضافات الغير موجوده فى الألة الحاسبة والتى تريدها مثل الجا والجتا والظا فهى كالتالى

يجب أستخدام دالة الـ Math لعمل الأضافات الأخرى مثل الـ Sin,Cos,tan,Log,Ln,.... وهكذا

وتكون الصيغة العامة كالتالى

dim x as double

Me.TextBox1.Text=Math.Sin(x)
Me.TextBox1.Text=Math.Cos(x)

وهكذا بالنسبة لباقى الأجراءات <_<

ولو أردت التسهيل على نفسك كى لاتضع كلمة Math قبل كل عملية فيجب أن تستدعيها فى بداية الـForm قبل الـClass كالتالى

Imports System.Math

فى هذه الحالة يمكنك إستخدام الدالة كالتالى بدون كلمة Math

Me.TextBox1.Text=Sin(x)
Me.TextBox1.Text=Cos(x)

أتمنى يكون الكود واضح وفى أنتظار أى أستفسار B)

:) :) تسلموا ولكم خالص الشكر على مساعدكم

وهذا ما كنت أتوقع منكم فأنتم في غاية الروعه

أختكم vbnet

أريد معرفة كود back space

وشكراً

vbnet

 Private Sub btbackspace_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btbackspace.Click
        If txtdisplay.Text.Length <= 0 Then
            Exit Sub
        End If
        txtdisplay.Select(Len(txtdisplay.Text) - 1, Len(txtdisplay.Text))
        txtdisplay.SelectedText = ""
    End Sub

شكراً أخ romantic_boy

طيب ممكن كود الأس ^

1\x

سبحان الله يا شباب فائده هذا المنتدى الرائع انه سؤال بسيط بيروح وبيجيب افكار كتيره في بال الواحد وانا مشكور للاخت VBnet وفكرتي الي فكرت فيها انه ليش ما نعمل اله بس فيها نوع من الجذب والمتعه انه لما نضغظ على الرقم المطلوب بيتلون Button بلون عشوائى وهذه الفكره سهله .... يعني بجد وانا بكتب هذا الرد وهذه المداخلة يمكن لقيت الفكره وطريقة الحل كمان 0000

في البروسيجر بتاع الزر نفسه بنضع داله اللون العشوائي لل Backcolor ولكن رحم الله امرىء عرف قدر نفسه انا ما بعرف دالة اللون العشوائي Random فياريت تزودونا بالكود

قولي طلباتك كلها مرة واحدة :) :)

 Private Sub btpow_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btpow.Click
        Try
            Dim number As Double
            Dim power As Double
            Dim result As Double
            number = Val(txtdisplay.Text)
            cleardisplay = True
            power = Val(InputBox("enter power which the number will be raised to", "enter power"))

            If Not power <= Val("0") Or Not number <= Val("0") Or Not power = Val("") Or Not number = Val("") Then
                result = Pow(number, power)
                If result > result.MaxValue Then
                    MsgBox("this number is too big for memory", MsgBoxStyle.Critical, "memory overload")
                    txtdisplay.Clear()
                    Exit Sub
                Else : txtdisplay.Text = result
                End If
                lbloperation.Text = ("x^y")
                lbloperation.ForeColor = Color.White
                txtdisplay.ForeColor = Color.Gold
                cleardisplay = True
            Else
                    lblstatdisplayer.Text = "invalid input"
                    smallflash()
                End If
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

علي قكرة انا جايبلك الكود من كود الالة الحاسبة عشان كده ممكن تلاقي أكواد زيادة خدي بس الاكواد اللي تعمل الرفع للأس و أهمها

result = Pow(number, power)

شكراً أخيromantic_boy

على المساعدة

vbnet

سامحوني جننتكم

أنا عملت الألة الحاسبة وفهمت الكود حقها

بس واجهتني مشكلة في كود النسبة المئوية%

لم أعرفها مع أني حاولت ولكن

أرجو منكم توضيح كود %

وأقول مره أخرى أنا آسفه على الأزعاج

وشكراً لكم على هذا الموقع الجميل الرائع

أختكم VBNET

:( :( :( :( :(

vbnet

يعطيكم العافية يا حلوين أنا كنت محتاج الأكواد اللي أضافها الحلو رومانتك بوي ،،،، ثانكس

السلام عليكم

ممكن تشرحولي من دالة الBackspace الدوال:

select,len,selectedtext

والمدخلات التي تحتاجها

معذرة لم ار السؤال الا الان

الموضوع سهل و بسيط جدا

فانا اخبر ال textbox بأنني كلما ضغطت علي هذا الزر تمسح اخر رقم ...... كيف؟

اولا استعمل ال method التي اسمها select لاختيار اخر حرف حيث يبدأ الاختيار من الحرف قبل الاخير و هذا اعرفه عن طريق طرح 1 من عدد الحروف الحالية في ال textbox و هذا أيضا أعرفه عن طريق دالة len

و طول الاحرف التي اختارها واحد و هكذا يختار الحرف الاخير ........ تمام؟

بعد ذلك اخبر ال textbox انني اريد ان امسح الحرف الاخير عن طريق اسناد قيمة فارغة لخاصية selectedtext و بهذا يتم مسح الحرف الاخير

يا رب تكون الفكرة سهلة

احمد شلبي

شكرا جزيلا يا أخ romantic_boy على الشرح الرائع والفكرة وضحت مع اني كنت فقدت الأمل بالرد وعلى العموم أنا أضفت موضوع استفسار عن عمل بعض الرموز وياريت تشارك مع العلم أن الأمثلة اللي أنا طالباها تكون رياضية لا برمجية حتى أحاول أبنيها بنفسي