Global Journal of Researches in Engineering, I: Numerical Methods, Volume 23 Issue 1

A pplication B Differential integral functions of SL(). The text of the VBasic program for calculating the differentialfunctions of SL() is given below. The text of the program in VBasic for calculating the differential functions of SL (). Option Explicit Dim n, k As Double Dim in_n, in_k As Double Dim Message1, Title1, Default, MyValue Dim Message2, Title2 Dim MathcadObj Dim MCWSheet Private Sub Form_Load () Form1.Enabled = True Form1.Cls Form1.Visible = False Form1.Appearance = 0 Form1.WindowState = 2 Call nk End Sub Private Sub nk () Message1 = "Enter the degree <n> for the power function y = x^n" Title1= "Default n =2" Default= "2" MyValue = InputBox (Message1, Title1, Default) n = CDbl (MyValue) '--------------------------------------------------- Message2 = ""Enter K. If K < 0, then it is an integral of multiplicity K, and if K > 0, then it is a derivative of order K" k = InputBox (Message2, Title1, Default) Call Gam End Sub Private Sub Gam() 'Setting a custom function Set MathcadObj = OLE1.object Set MCWSheet = MathcadObj.Worksheet in_n = n in_k = k Call MathcadObj.setcomplex("in_n", n, 0) Call MathcadObj.setcomplex("in_k", k, 0) 'Recalculating results in MathCad and getting a custom SLFunctions function Call MathcadObj.Recalculate 'End of the program Dim Msg, Style, Title, Response Msg = "Continue? Yes" Style = vbYesNo + vbCritical + vbDefaultButton2 Title = "The program has finished working. Viewing the result" Response = MsgBox (Msg, Style, Title) If Response = 6 Then Form1.Enabled = False Set MathcadObj = Nothing Set MCWSheet = Nothing End End Sub Global Journal of Researches in Engineering Volume XxXIII Issue I Version I 24 Year 2023 © 2023 Global Journals ( ) I Application of Differentialintegral Functions