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 مرفق
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير