Mike58
Advanced Member >PLATINUM PLUS<
Raccolta di Miei Script in Vbnet preferibilmente di genere Statistici.
Sarebbe meglio per la raccolta di non postare richieste in questa sezione.
Per richieste è meglio farle in sezione di richieste apposite
Lo scopo è avere su una sezione script vbnet per una facile Ricerca.
Ciao
script 1° Ambi vergini su Ruota da inizio estraz, 7440
Ambi Vergini su Ruota - Inizio estrazione data 7440 - 36 - 04/05/2005 ***** Script By Mike58 ® *****
© 🏍 ✈
®
Estrazione inizio............. 7440 - 36 - 04/05/2005
Estrazione Fine analisi....... 10023 - 156 - 30/12/2021
Estrazione inizio verifica.... 10024 - 157 - 03/01/2022
Estrazioni Trascorse.......... 10
Ambi Trivati.................. 60
Ambi Sortiti.................. 1
00:00:03
Sarebbe meglio per la raccolta di non postare richieste in questa sezione.
Per richieste è meglio farle in sezione di richieste apposite
Lo scopo è avere su una sezione script vbnet per una facile Ricerca.
Ciao
script 1° Ambi vergini su Ruota da inizio estraz, 7440
Codice:
Class Script
Sub Main
Dim Nu(2),Ru(1) As Integer
Dim Ini As Integer = 7440
Dim fin As Integer = 10023'EstrazioniArchivio - 1
Dim finex As Integer = fin + 1
Dim fine As Integer = EstrazioniArchivio
Dim nColpi As Integer = (fine - finex ) + 1
Dim r , n1,n2, rit , k,kk ,clp,k2 As Integer
Dim aUscite() , esito , T() ,T1(),T2() As String
Scrivi ("Ambi Vergini su Ruota - Inizio estrazione data " & GetInfoEstrazione(Ini) & " ***** Script By Mike58 ® ***** ",1)
Scrivi (" © 🏍 ✈ 🛸 🎌 🌝 ®",1,,,,150)
Scrivi ()
T = {" Ruota "," Ambi "," VerificaEsito Fine","Colpo"}
Call InitTabella(T,ColoreVerde,,,ColoreBianco )
For r = 1 To 11
For n1 = 1 To 89
For n2 = n1 + 1 To 90
Nu(1) = n1 : Nu(2) = n2 : Ru(1) = r
rit = SerieRitardo(Nu,Ru,2,fin,,,Ini)
If rit =(fin - Ini) + 1 Then
k = k + 1
kk = kk + 1
Call Messaggio(NomeRuota(r))
Call AvanzamentoElab(n1,n2,kk)
esito = "<> --.--.--.--.--"
If VerificaEsito(Nu,Ru,2,finex,,nColpi,clp,aUscite) Then
For k1 As Integer = 0 To aUscite.GetUpperBound(0)
If aUscite(k1) <> "" Then esito = aUscite(k1)
If aUscite(k1) <> "" Then k2 = k2 + 1
Next
End If
T1 = {NomeRuota(r),StringaNumeri(Nu),esito,clp }
Call AddRigaTabella(T1)
End If
Next
Next
'T2 = {NomeRuota(r)," Trovati " ,k & " - " & kk}
'Call AddRigaTabella(T2,ColoreVerde,,,ColoreBianco )
k = 0
Next
Scrivi ("Estrazione inizio............. " & GetInfoEstrazione (Ini))
Scrivi ("Estrazione Fine analisi....... " & GetInfoEstrazione (fin))
Scrivi ("Estrazione inizio verifica.... " & GetInfoEstrazione (finex))
Scrivi ("Estrazioni Trascorse.......... " & nColpi )
Scrivi ("Ambi Trivati.................. " & kk)
Scrivi ("Ambi Sortiti.................. " & k2)
Scrivi (Space(35)& FormattaSecondi(SecondiTrascorsi))
CreaTabella
End Sub
End ClassAmbi Vergini su Ruota - Inizio estrazione data 7440 - 36 - 04/05/2005 ***** Script By Mike58 ® *****
© 🏍 ✈
®Estrazione inizio............. 7440 - 36 - 04/05/2005
Estrazione Fine analisi....... 10023 - 156 - 30/12/2021
Estrazione inizio verifica.... 10024 - 157 - 03/01/2022
Estrazioni Trascorse.......... 10
Ambi Trivati.................. 60
Ambi Sortiti.................. 1
00:00:03
Ruota | Ambi | VerificaEsito Fine 5 | Colpo |
|---|---|---|---|
Mi | 54.78 | Mi --.78.54.--.-- | 8 |
Nz | 66.88 | <> --.--.--.--.-- | 10 |
Nz | 55.60 | <> --.--.--.--.-- | 10 |
Nz | 53.87 | <> --.--.--.--.-- | 10 |
ma questo ultimo tuo script ti risulta che giri anche nella versione 1.0.27 di spazio light? Perchè a me darebbe tre errori bloccanti con triangolo e punto esclamativo... Se così non è guardo di aggiornare all'ultima versione di spazio light anche se devo ogni volta fare escludere l'analisi dal mio antivirus norton di ogni pezzo del programma visto che non lo ama molto e me lo blocca di continuo... 
E' per quello che non aggiorno spazio light ogni volta... 
= Np(y,x) ' Bollette in Gioco 
