Edoardo_95
Advanced Member
Aimè programmatore è solo LuigiBSiete i miei tre super moschettieri... programmatori preferiti... vi ammiro.., e invidio... (positivamente) dal divano... con il popcorn in mano...![]()
![]()
![]()
Good 1.11
![]()




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.
Aimè programmatore è solo LuigiBSiete i miei tre super moschettieri... programmatori preferiti... vi ammiro.., e invidio... (positivamente) dal divano... con il popcorn in mano...![]()
![]()
![]()
Good 1.11
![]()
Friend Function GetEstrazione(idEstr As Integer, RetEstr As StrEstrazione) As Boolean
Dim GetEstr as Boolean
If IsIdEstrValido(idEstr) Then
RetEstr = Estrazioni(idEstr)
GetEstr = True
End If
return GetEstr
End Function
Friend Function GetEstrazione(idEstr As Integer, byref RetEstr As StrEstrazione) As Boolean
If IsIdEstrValido(idEstr) Then
RetEstr = Estrazioni(idEstr)
return True
End If
return false
End Function
Function IsEstrazioneValida(strctEst As StrEstrazione) As Boolean
If IsIdEstrValido(strctEst.identifier) Then
If IsNumeroEstrValido(strctEst.Data.Numero) Then
For k = 1 To 11
If QuantitaNumeriDiversi(GetArrayEstratti(strctEst)) = 55 Then
Return True
End If
Next
End If
End If
End Function
Function QuantitaNumeriDiversi(aN() As Integer) As Integer
Dim qNumeri As Integer
Dim aB(90) As Boolean
For k = 1 To 5
If IsNumeroValidoLotto(aN(k)) Then
If aB(aN(k)) = False Then
aB(aN(k)) = True
qNumeri += 1
End If
End If
Next
Return qNumeri
End Function
Function QuantitaNumeriDiversi(aN() As Integer) As Integer
Dim qNumeri As Integer
Dim aB(90) As Boolean
For k = 1 To 5
If IsNumeroValidoLotto(aN(k)) Then
If aB(aN(k)) = False Then
aB(aN(k)) = True
qNumeri += 1
End If
End If
Next
Return qNumeri
End Function
Function IsEstrazioneValida(strctEst As StrEstrazione) As Boolean
If IsIdEstrValido(strctEst.identifier) Then
If IsNumeroEstrValido(strctEst.Data.Numero) Then
For k = 1 To 11
If QuantitaNumeriDiversi(GetArrayEstratti(strctEst, k)) = 0 Or 5 Then
Return True
End If
Next
End If
End If
End Function
Function QuantitaNumeriDiversi(aN() As Integer) As Integer
Dim qNumeri As Integer
Dim aB(90) As Boolean
For k = 1 To UBound(aN)
For y = 1 To 5
If aB(aN(y)) = False Then
aB(aN(y)) = True
qNumeri += 1
End If
Next
Return qNumeri
Next
End Function
Function GetArrayEstratti(strctest As StrEstrazione, ruota As Integer) As Integer()
Dim aN() As Integer
Dim i As Integer
For r = ruota To 11
For e = 1 To 5
i += 1
ReDim Preserve aN(i)
aN(i) = strctest.Ruote(r).Estratto(e)
Next
Next
Return aN
End Function
Function GetArrayEstratti(strctest As StrEstrazione, ruota As Integer) As Integer()
Dim aN() As Integer
Dim i As Integer
For r = ruota To 11
For e = 1 To 5
i += 1
ReDim Preserve aN(i)
If IsNumeroValidoLotto(strctest.Ruote(r).Estratto(e)) Then
aN(i) = strctest.Ruote(r).Estratto(e)
End If
Next
Next
Return aN
End Function
Function IsEstrazioneValida(strctEst As StrEstrazione) As Boolean
Dim bRet As Boolean
If IsIdEstrValido(strctEst.identifier) Then
If IsNumeroEstrValido(strctEst.Data.Numero) Then
For r = 1 To 11
If QuantitaNumeriDiversi(strctEst.Ruote(r).Estratto) = 0 Or 5 Then
bRet = True
End If
Next
End If
End If
Return bRet
End Function
Function QuantitaNumeriDiversi(aN() As Integer) As Integer
Dim qNumeri As Integer
Dim aB(90) As Boolean
For k = 1 To UBound(aN)
If aB(aN(k)) = False Then
If aB(aN(k)) <> 0 Then
aB(aN(k)) = True
qNumeri += 1
End If
End If
Next
Return qNumeri
End Function
Nei nomi della sorte e delle ruote non riesco a capire il problema dove sia ... Devono partire da zero?
Function IsEstrazioneValida(strctEst As StrEstrazione) As Boolean
Dim bRet As Boolean
If IsIdEstrValido(strctEst.identifier) Then
If IsNumeroEstrValido(strctEst.Data.Numero) Then
For r = 1 To 11
If QuantitaNumeriDiversi(strctEst.Ruote(r).Estratto) = 0 Or 5 Then
bRet = True
End If
Next
End If
End If
Return bRet
End Function
Function IsEstrazioneValida(strctEst As StrEstrazione) As Boolean
Dim bRet As Boolean
If IsIdEstrValido(strctEst.identifier) Then
If IsNumeroEstrValido(strctEst.Data.Numero) Then
For r = 1 To 11
If QuantitaNumeriDiversi(strctEst.Ruote(r).Estratto) = 0 Or 5 Then
bRet = True
Else
Return False
End If
Next
End If
End If
Return bRet
End Function