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



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

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

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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] طريقة عمل برنامج تسجيل دخول احترافى بالفيجوال بيسك 2010 Mina Botros 9 5,518 07-03-19, 01:56 AM
آخر رد: Hussein Essam
  [مثال] طريقة البحث في قاعدة بيانات عن صورة بواسطة صورة أخرى princelovelorn 3 202 02-03-19, 01:41 PM
آخر رد: technomedia
  [درس فيديو] شرح طريقة دمج عدة مشاريع vb.net في مشروع واحد princelovelorn 2 155 16-02-19, 12:22 AM
آخر رد: princelovelorn
  [VB.NET] طريقة معرفة لغة الإدخال الحالية How to find the current input language سعود الشامان 3 633 30-12-18, 03:37 AM
آخر رد: عبدالله الصافي
Information [مشروع] طريقة تصميم برنامج قواعد بيانات يحتوي على علاقات بين الجداول (باستخدام الكود فقط) Mohamad Anan 10 7,412 07-11-18, 02:36 AM
آخر رد: عماد السيد
  [VB.NET] طريقة التحكم بالبرنامج عن بعد DK-x 4 649 28-10-18, 10:12 AM
آخر رد: naimamohammed
  [مشروع] مثال يشرح طريقة تنظيم الـ DataGridView لعمل الجداول المدرسية أو جداول الأعمال عبدالله الدوسري 7 1,735 08-08-18, 09:04 PM
آخر رد: loooover2014
  [مثال] طريقة حفظ الإعدادات في محرر التسجيل Registry Editor سعود الشامان 3 677 27-10-17, 05:45 AM
آخر رد: سعود الشامان
  [مثال] طريقة تغيير لغة الإدخال بشريط المهام سعود الشامان 2 700 05-10-17, 12:56 AM
آخر رد: سعود الشامان
  [مثال] طريقة أخرى للتصاريح Acces سعود الشامان 2 648 05-10-17, 12:55 AM
آخر رد: سعود الشامان

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


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