تقييم الموضوع :
  • 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 ك ب / التحميلات : 84)
.zip   Mydll.zip (الحجم : 45.87 ك ب / التحميلات : 93)
الرد
تم الشكر بواسطة: رحوووم , sami2015
#2
ماشاء الله عليك مبدع (✿◠‿◠)
الرد
تم الشكر بواسطة: سعود
#3
لم افــهم شي ...!!



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

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

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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Information [مشروع] طريقة تصميم برنامج قواعد بيانات يحتوي على علاقات بين الجداول (باستخدام الكود فقط) Mohamad Anan 10 6,854 07-11-18, 02:36 AM
آخر رد: عماد السيد
  [VB.NET] طريقة التحكم بالبرنامج عن بعد DK-x 4 351 28-10-18, 10:12 AM
آخر رد: naimamohammed
  [مشروع] مثال يشرح طريقة تنظيم الـ DataGridView لعمل الجداول المدرسية أو جداول الأعمال عبدالله الدوسري 7 1,417 08-08-18, 09:04 PM
آخر رد: loooover2014
  [VB.NET] طريقة عمل برنامج تسجيل دخول احترافى بالفيجوال بيسك 2010 Mina Botros 8 2,782 26-07-18, 01:50 AM
آخر رد: ابو روضة
  [مثال] طريقة حفظ الإعدادات في محرر التسجيل Registry Editor سعود الشامان 3 495 27-10-17, 05:45 AM
آخر رد: سعود الشامان
  [VB.NET] طريقة معرفة لغة الإدخال الحالية How to find the current input language سعود الشامان 2 387 07-10-17, 02:42 PM
آخر رد: سعود الشامان
  [مثال] طريقة تغيير لغة الإدخال بشريط المهام سعود الشامان 2 527 05-10-17, 12:56 AM
آخر رد: سعود الشامان
  [مثال] طريقة أخرى للتصاريح Acces سعود الشامان 2 482 05-10-17, 12:55 AM
آخر رد: سعود الشامان
  طريقة بحث سهلة (2) khodor1985 4 1,934 28-07-17, 01:07 PM
آخر رد: IBRA939
  [VB.NET] [VB.NET] الجزء الأول : طريقة عمل برنامج بث مباشر لمباريات ( تصميم و تكويد ) larbi matador 2 603 23-06-17, 05:33 AM
آخر رد: larbi matador

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


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