L
LuigiB
Guest
Sembrerebbe che l installazione vada rifatta....lo sapevo io ve era meglio il vb6.
Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
Option Explicit
Sub Main
Dim objDll
Dim sFileBd
Dim nEstr
Dim aNum
Dim nRit
'la dll contiene la seguente funzione
' tutti i parametri tranne il vettore dei numeri e la sorte da analizzare
' sono opzionali
' se nFine non viene passato allora per nFine si considera l'ultima estrazioen disponibile
' se nInizio non viene passato si considera 1 la prima estrazione dell'archivio
' tutte le altre variabili se passate torneranno il valore statistico per la sorte analizzata
' il vettore aNum puo contenere quanti numeri si vuole
'Statistica(ByVal aNum, ByVal nSorte, _
'' Optional ByRef nRitardo = 0, _
'' Optional ByRef nFrequenza = 0, _
'' Optional ByRef nRitardoMax = 0, _
'' Optional ByRef nPresenze = 0, _
'' Optional ByVal nFine = 0, _
'' Optional ByVal nInizio = 1)
ImpostaArchivio10ELotto(2)
sFileBd = GetDirectoryAppData & "BaseDati10Elotto5M.Dat"
Set objDll = CreateObject("UtilitySpmt.DieciELotto")
nEstr = objDll.Init(sFileBd)
If nEstr > 0 Then
ReDim aNum(5)
aNum(1) = 15
aNum(2) = 17
aNum(3) = 18
aNum(4) = 24
aNum(5) = 84
Call objDll.Statistica(aNum ,5 , nRit)
Scrivi("Ritardo " & nRit)
End If
Set objDll = Nothing
End Sub