تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[مشروع] آلة حاسبة عن طريقة مناداة الدالة من ملف dll
#1
Class Library
وضعت فيه كود دالة بشكل عادي جدا
(طبعا الكلام للمبتدئين)

كود :
Public Class myfunc
   Public Function retv(ByVal v1 As Double, ByVal v2 As Double, ByVal o As String)
       Dim res As Double
       Select Case o
           Case "/"
               res = v1 / v2
           Case "*"
               res = v1 * v2

           Case "-"
               res = v1 - v2

           Case "+"
               res = v1 + v2


       End Select
       Return res
   End Function

End Class

وهذا كلاس المثال الذي استخدمت imports mydll
كود :
Imports Mydll
Public Class Form1
   Dim i1, i2 As String
   Dim o As String = ""
   Dim v As New myfunc

   Private Function isfound() As Boolean
       If o = "" Then
           Return False
       Else
           Return True
       End If
   End Function

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Dim ne As String = " = "
       If t1.Text.IndexOf(ne) > 0 Then Exit Sub
       t1.Text = i1 & " " & i2 & " " & ne & v.retv(i1, i2, o)
   End Sub

   Private Sub btn0_Click(sender As Object, e As EventArgs) Handles btn0.Click, btn1.Click, btn2.Click, btn3.Click, btn4.Click, btn5.Click, btn6.Click, btn7.Click, btn8.Click, btn9.Click

       If o = "" Then
           i1 &= sender.text
           t1.Text &= sender.text
       Else
           i2 &= sender.text
           t1.Text &= sender.text

       End If
   End Sub

   Private Sub Button11_Click(sender As Object, e As EventArgs) Handles btndiv.Click, btnmul.Click, btnmin.Click, btnplus.Click
       o = sender.text
       t1.Text &= sender.text
   End Sub

 
 

   Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
       o = ""
       i1 = ""
       i2 = ""
       t1.Clear()

   End Sub

   Private Sub poin_Click(sender As Object, e As EventArgs) Handles poin.Click
       If isfound() = False Then
           i1 &= "."
       Else
           i2 &= "."
       End If
       t1.Text &= "."
   End Sub

   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

   End Sub
End Class

مشروع mydll مرفق


الملفات المرفقة
.zip   MyUsingdll.zip (الحجم : 42.44 ك ب / التحميلات : 24)
.zip   Mydll.zip (الحجم : 45.87 ك ب / التحميلات : 30)
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة: رحوووم , sami2015
#2
ماشاء الله عليك مبدع (✿◠‿◠)
الرد }}}}
تم الشكر بواسطة: سعود
#3
لم افــهم شي ...!!



[صورة مرفقة: g5qidgW.jpg]

ســبحــانك الـلهم بـحمدك , الـلهم لا عــلم لـنا الى مــأ علــمتــنا , الـلهـم علــمنـا ما جــهلـنا وانــفـعنــا بــما عــلمــتنـا انــك انـتَ الـسـميع الــعلــيم الـحكـيم ~~!I!

الرد }}}}
تم الشكر بواسطة: سعود
#4
(26-03-15, 02:41 AM)a_almisery كتب : لم افــهم شي ...!!

اظن لو حملت المثال راح تفهم كل شي.
الموضوع بسيط جدا.
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  طريقة بحث سهلة (2) khodor1985 3 808 16-09-16, 07:46 PM
آخر رد: Amir_alzubidy
  [VB.NET] افضل طريقة لجعل برنامجى يشتغل على جهاز شخص واحد فقط memosh 10 1,734 30-08-16, 08:20 PM
آخر رد: nayefacc
  مشروع آلة حاسبة بأقواس aymanessam 9 427 04-04-16, 05:48 PM
آخر رد: الشاكي لله
  طريقة بحث سهلة khodor1985 4 558 12-01-16, 07:49 PM
آخر رد: AmMo
  [مثال] طريقة تحويل تاريخ مدخل يدوياً كنص الى متغير من نوع تاريخ myalsailamy 2 390 14-12-15, 09:50 PM
آخر رد: عدنان الشمري
  [مثال] طريقة التحقق من وجود نص عربي ضمن نص myalsailamy 1 233 10-12-15, 07:06 PM
آخر رد: boudyonline
  مشروع لالة حاسبة بسيطة ! أبو عمر 0 401 01-09-15, 12:47 AM
آخر رد: أبو عمر
  [مشروع] طريقة جلب فيديوهات Videos قناة على يوتيوب youtube سعود 1 660 05-08-15, 03:08 PM
آخر رد: سعود
  [مشروع] عمل آلة حاسبة عن طريق اضافة محتوى مربع الادخال الى مصفوفة() سعود 0 673 27-03-15, 05:24 AM
آخر رد: سعود
  [مشروع] عمل آلة حاسبة بسيطة استعانة بـ Regex سعود 2 762 17-03-15, 06:47 PM
آخر رد: سعود

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم