VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "ClsTestProcedures"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
' *********************************************************************
'* CLASS Classe di test per il middleware
'* <BR/>Autore: <B>Giorgio Bernardi</B>
'* E-Mail: <A HREF="mailto:giorgio.bernardi@studio.unibo.it">Giorgio.Bernardi@studio.unibo.it</A>
'* Data  : Settembre 2004
'* <DIV CLASS="ClassDescription">
'*  Interfaccia da implementare.
'* </DIV>
' *********************************************************************
Option Explicit
Public Event OnComputeRequest(Msg As String)
    
'*  Funzione pubblica di test: procedura senza argomenti.
Public Sub hello()
    RaiseEvent OnComputeRequest("hello()")
End Sub

'*  Funzione pubblica di test: permette di testare la gestione degli errori (0/0).
Public Function Divide(Arg1 As Long, Arg2 As Long) As Long
    RaiseEvent OnComputeRequest("Divide(" & Arg1 & "," & Arg2 & ")")
    Divide = Arg1 / Arg2
End Function

'* Funzione pubblica di test
Public Sub ComputeSum(Arg1 As Long, Arg2 As Long)
    RaiseEvent OnComputeRequest("ComputeSum:" & Arg1 & "+" & Arg2 & "=" & (Arg1 + Arg2))
End Sub

'* Funzione pubblica di test
Public Function ComputeDiff(Arg1 As Long, Arg2 As Long) As Long
    RaiseEvent OnComputeRequest("ComputeDiff(" & Arg1 & "," & Arg2 & ")")
    ComputeDiff = Arg1 - Arg2
End Function

'* Funzione pubblica di test
Public Function GetSum(Arg1 As Long, Arg2 As Long) As Long
    RaiseEvent OnComputeRequest("GetSum(" & Arg1 & "," & Arg2 & ")")
    GetSum = Arg1 + Arg2
End Function

'* Funzione pubblica di test
Public Function Concatena(Str1 As String, Str2 As String, Str3 As String) As String
    RaiseEvent OnComputeRequest("Concatena(" & Str1 & "," & Str2 & "," & Str3 & ")")
    Concatena = Str1 + Str2 + Str3
End Function

'* Funzione con troppi argomenti per essere chiamata con lo skeleton dinamico
Public Function BigConcatena(a As String, b As String, c As String, d As String, _
                                        e As String, f As String, g As String, h As String, _
                                        i As String, l As String, m As String, n As String)
    RaiseEvent OnComputeRequest("BigConcatena(" & a & "," & b & "," & c & "," & d & "," & e & "," & f & "," & g & "," & h & "," & i & "," & l & "," & m & "," & n & ")")
    BigConcatena = a & b & c & d & e & f & g & h & i & l & m & n
End Function