• Home
 · 
• Miscellaneous
 · 
• Use of DLL Component. The code helps to use of DLL files and how to work with it. (From:Prabir Kuma

Use of DLL Component. The code helps to use of DLL files and how to work with it. (From:Prabir Kuma

Use of DLL Component. The code helps to use of DLL files and how to work with it. (From:Prabir Kumar Das Konnagar,West Bengal) Contact me

API Declarations


'to work in a Standard EXE form by adding the reference of the DLL file from
'project/Reference. "THIS CODE IS USED TO CALCULATE THE TICKECT FARE OF TRAIN."

Const r_charge_1A = 35
Const r_charge_2A = 25
Const r_charge_3A = 25
Const r_charge_FC = 25
Const r_charge_CC = 25
Const r_charge_SL = 20
Const sf_charge = 20

Dim res_charge As Currency
Dim sfast_charge As Currency
Dim total_fare As Currency
Dim in_fare As Currency



Rate Use of DLL Component. The code helps to use of DLL files and how to work with it. (From:Prabir Kuma

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

If Class = "1A" And TYP = "EXP" Then
    in_fare = fare * pass
    res_charge = pass * r_charge_1A
   
    total_fare = in_fare + res_charge
ElseIf Class = "SL" And TYP = "SUPERFAST" Then
    in_fare = fare * pass
    res_charge = pass * r_charge_SL
    sfast_charge = pass * sf_charge
    total_fare = in_fare + res_charge + sfast_charge
ElseIf Class = "2A" And TYP = "EXP" Then
    in_fare = fare * pass
    res_charge = pass * r_charge_2A
    total_fare = in_fare + res_charge
Else
    MsgBox "No such option", vbExclamation
End If
End Sub

Public Property Get fare() As Currency
    fare = total_fare
End Property

Public Property Get reserve() As Currency
    reserve = res_charge
End Property

Public Property Get super_fast() As Currency
    super_fast = sfast_charge
End Property
Public Sub RESET()
 res_charge = 0
 sfast_charge = 0
 total_fare = 0
 End Sub

	'###############################################
	  'FORM MODULE CODE TO WORK WITH THE DLL
	'###############################################

Dim resp As New calculate.cal
Dim ans As Integer

Private Sub Command1_Click()
Command2_Click
resp.test Text3.Text, Text4.Text, Text1.Text, Text2.Text
Label1.Caption = resp.fare
Label2.Caption = resp.reserve
Label3.Caption = resp.super_fast
End Sub

Public Sub CLEAR()
Label1.Caption = ""
Label2.Caption = ""
Label3.Caption = ""
End Sub

Private Sub Command2_Click()
CLEAR
resp.Reset
End Sub

'N.B:Use all the controls mentioned in the Form Module code to work properly.