منتديات التقني عالم التجارة
SPTechs منتديات
 اسم المستخدم حفظ بيانات الدخول 
كلمة المرور
  منتديات SPTechs   > Visual Basic
 thread

أريد مسااعدة ضروري اليوم

 

  الإثنين 17 ديسمبر 2018 م الموافق ‏10/‏ربيع الثاني/‏1440 هـ الساعة 21:0

 


الرد على الموضوع عدد القراءات : 861   

معلومات :   البلد : إختــر دولة
  عدد المشاركات : 1
ITstudent22


[ السبت 12 أبريل 2008 ]
 
 
 

أريد مسااعدة ضروري اليوم



السلام عليكم ورحمة الله وبركاته


أنا سويت آلة حاسبة باستخدام الفيجول بيسك بس في مشكلة ضغيرة عندي حاولت أحلها بس ما قدرتز المشكلة +/- ما تشتغل عندي و اريد منكم المسااااعدة ضروووووري اليوم أو باجر الصبحز


و هذا الكود:


"Dim i As Integer

"Dim count1 As Integer

"Dim b As Double "For first value

"Dim c As Double "For Second Value

"Dim f As String




Dim exp1 As Double

Dim exp2 As Double

Dim Result As Double

Dim op As String

Dim a As String "For getting string Value

Dim temp As Double "For storing temporary values


Private Sub cmd_Click(Index As Integer)

a = cmd(Index).Caption

Select Case a

Case "CE"

Txt1.Text = "0"



Case "C"

Txt1.Text = "0"



Case "1"

If Txt1.Text = "0" Then

Txt1.Text = "1"

Else

Txt1.Text = Txt1.Text + cmd(Index).Caption

End If



Case "2"

If Txt1.Text = "0" Then

Txt1.Text = "2"

Else

Txt1.Text = Txt1.Text + cmd(Index).Caption

End If



Case "3"

If Txt1.Text = "0" Then

Txt1.Text = "3"

Else

Txt1.Text = Txt1.Text + cmd(Index).Caption

End If



Case "4"

If Txt1.Text = "0" Then

Txt1.Text = "4"

Else

Txt1.Text = Txt1.Text + cmd(Index).Caption

End If



Case "5"

If Txt1.Text = "0" Then

Txt1.Text = "5"

Else

Txt1.Text = Txt1.Text + cmd(Index).Caption

End If



Case "6"

If Txt1.Text = "0" Then

Txt1.Text = "6"

Else

Txt1.Text = Txt1.Text + cmd(Index).Caption

End If



Case "7"

If Txt1.Text = "0" Then

Txt1.Text = "7"

Else

Txt1.Text = Txt1.Text + cmd(Index).Caption

End If



Case "8"

If Txt1.Text = "0" Then

Txt1.Text = "8"

Else

Txt1.Text = Txt1.Text + cmd(Index).Caption

End If



Case "9"

If Txt1.Text = "0" Then

Txt1.Text = "9"

Else

Txt1.Text = Txt1.Text + cmd(Index).Caption

End If



Case "0"

If Txt1.Text = "0" Then

Txt1.Text = "0"

Else

Txt1.Text = Txt1.Text + cmd(Index).Caption

End If



Case "."

If Txt1.Text = "0" Then

Txt1.Text = "0."

Else

Txt1.Text = Txt1.Text + cmd(Index).Caption

End If



Case "CE"

Txt1.Text = "0"



Case "C"

Txt1.Text = "0"





Case "sqrt"

Txt1.Text = Math.Sqr(Val(Txt1.Text))

exp1 = 0





Case "1/x"

Txt1.Text = (1 / Txt1.Text)





Case "Backspace"

If Val(Txt1.Text) <> 0 Then

Txt1.Text = Left(Txt1.Text, Len(Txt1.Text) - 1)

End If



If Txt1.Text = "" Or Txt1.Text = "0." Then

Txt1.Text = "0"

End If



Case "M+"

temp = Txt1.Text

txtblank.Text = "M"

a = "+"



Case "MC"

txtblank.Text = ""



Case "MS"

temp = Txt1.Text

txtblank.Text = "M"

a = "-"



Case "MR"

Txt1.Text = temp



Case "+/-"

Txt1.Text = -Val(Txt1.Text)

End Select

End Sub



Private Sub cmd2_Click(Index As Integer)

exp1 = Txt1.Text

Txt1.Text = -Val(Txt1.Text)


End Sub


Private Sub cmd4_Click(Index As Integer)

Result = (exp1 / 100) * exp2

Txt1.Text = Result

exp1 = 0

End Sub


Private Sub cmd3_Click(Index As Integer)

If exp1 > 0 Then

exp2 = Val(Txt1.Text)

Select Case (op)

Case "+"

Txt1.Text = exp1 + exp2

exp1 = 0

Case "-"

Txt1.Text = exp1 - exp2

exp1 = 0

Case "*"

Txt1.Text = exp1 * exp2

exp1 = 0

Case "/"

If exp2 = 0 Then

Txt1.Text = ("cannot divide by zero")

Else

Txt1.Text = exp1 / exp2

exp1 = 0

End If



End Select

End If

End Sub


Private Sub cmd5_Click(Index As Integer)

Result = exp1

exp1 = Result + Val(Txt1.Text)

Txt1.Text = " "

op = cmd5(Index).Caption

End Sub




Private Sub Form_Load()


End Sub


و شكرا


و



اضافة رد على الموضوع




  منتديات SPTechs : مشاركات شبيهة .  لموضوع : أريد مسااعدة ضروري اليوم

   .   ترددات قمر النيل سات
   .   قصة جميلة جدا باللغة الانجليزية مع الترجمة لها
   .   بنت عمرها 15 سنه بس صايعه..قصه
   .    اكثر من 30 قناة مفتوحة على القمر (Sirius) + قناة مهمة وصور
   .   أحدث طريقة لتسريع الإنترنت بدون أى برنامج
   .   رسائل زعل و حزن و عتاب و الخيانة اكثر من ألف رسالة
   .   جديد جميع تردد قنوات عرب سات
   .   رسائل الحب والعشق اكثر من الف رسالة
   .   اضف تردد واحد واحصل على جميع ترددات القمر
   .   رقم الشيخ ابو علي الشيباني والموقع الرسمي له علي الانترنت


  | حظك اليوم  |   اخبار اليوم  |  


اسم المستخدم                        كلمة المرور

حفظ معلومات الاشتراك

# أريد مسااعدة ضروري اليوم

register
 مستخدم جديد