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



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

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

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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [مثال] طريقة حفظ الإعدادات في محرر التسجيل Registry Editor سعود الشامان 3 184 27-10-17, 05:45 AM
آخر رد: سعود الشامان
  [VB.NET] طريقة معرفة لغة الإدخال الحالية How to find the current input language سعود الشامان 2 88 07-10-17, 02:42 PM
آخر رد: سعود الشامان
  [مثال] طريقة تغيير لغة الإدخال بشريط المهام سعود الشامان 2 162 05-10-17, 12:56 AM
آخر رد: سعود الشامان
  [مثال] طريقة أخرى للتصاريح Acces سعود الشامان 2 187 05-10-17, 12:55 AM
آخر رد: سعود الشامان
  [VB.NET] طريقة عمل برنامج تسجيل دخول احترافى بالفيجوال بيسك 2010 Mina Botros 4 703 18-09-17, 12:48 PM
آخر رد: Mina Botros
  طريقة بحث سهلة (2) khodor1985 4 1,476 28-07-17, 01:07 PM
آخر رد: IBRA939
  [VB.NET] [VB.NET] الجزء الأول : طريقة عمل برنامج بث مباشر لمباريات ( تصميم و تكويد ) larbi matador 2 224 23-06-17, 05:33 AM
آخر رد: larbi matador
Information [مشروع] طريقة تصميم برنامج قواعد بيانات يحتوي على علاقات بين الجداول (باستخدام الكود فقط) Mohamad Anan 9 6,032 25-02-17, 11:23 PM
آخر رد: sendbad100
  مشروع آلة حاسبة بأقواس aymanessam 9 821 04-04-16, 05:48 PM
آخر رد: الشاكي لله
  طريقة بحث سهلة khodor1985 4 944 12-01-16, 07:49 PM
آخر رد: AmMo

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


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