Antichi studi e cabala
 da Blackmore il 15/10/2013, 17:13
Tavola di RutilioTAVOLA RUTILIO.jpg Script- Codice: Seleziona tutto
Sub main()
ColoreTesto 2: Scrivi
Scrivi String(39," ")&"LA TAVOLA DI RUTILIO - LISTATO BY BLACKMORE"
ColoreTesto 0 :Scrivi
Dim ruota(1)
Dim numeri(3),amb(3)
Dim posta(10)
posta(1)=1
posta(2)=1
'posta(6)=1
'posta(7)=1
'posta(8)=1
'posta(9)=1
'posta(10)=1
r = InputBox("Ruota di Gioco?","BLACKMORE",6)
ini = InputBox("Inserisci l'estrazione d'inizio","BLACKMORE",2000)
fin = CInt(InputBox("Ultima estrazione in archivio","BLACKMORE",EstrazioneFin))
k = CInt(InputBox ("Colpi di gioco?","BLACKMORE",8))
For es = ini To Fin
AvanzamentoElab ini,fin,es
If IsUltimaDelMese(es) Then
a= Estratto(es,r,1)
b= Estratto(es,r,2)
n1 = Fuori90(a+b)
co=co+1
casi=casi+1
Scrivi String(80,"*")&" Caso n° "&casi,1:
ColoreTesto 1
Scrivi DataEstrazione(es,1)&" [ "&siglaRuota(r)& " - "&StringaEstratti(es,r)&" ] " & Format2(a)&"+"& Format2(b)&" = " & Format2(n1) &" [ NUMERO DELLA TAVOLA ]"
Scrivi: ColoreTesto 0
ruota(1)= r
If n1 =01 Then amb(1)=32:amb(2)=42:amb(3)=52
If n1 =02 Then amb(1)=80:amb(2)=90:amb(3)=10
If n1 =03 Then amb(1)=03:amb(2)=13:amb(3)=23
If n1 =04 Then amb(1)=28:amb(2)=38:amb(3)=48
If n1 =05 Then amb(1)=38:amb(2)=48:amb(3)=58
If n1 =06 Then amb(1)=14:amb(2)=24:amb(3)=34
If n1 =07 Then amb(1)=18:amb(2)=28:amb(3)=38
If n1 =08 Then amb(1)=40:amb(2)=50:amb(3)=60
If n1 =09 Then amb(1)=21:amb(2)=31:amb(3)=41
If n1 =10 Then amb(1)=47:amb(2)=57:amb(3)=67
If n1 =11 Then amb(1)=90:amb(2)=10:amb(3)=20
If n1 =12 Then amb(1)=44:amb(2)=54:amb(3)=64
If n1 =13 Then amb(1)=67:amb(2)=77:amb(3)=87
If n1 =14 Then amb(1)=72:amb(2)=82:amb(3)=02
If n1 =15 Then amb(1)=43:amb(2)=53:amb(3)=63
If n1 =16 Then amb(1)=63:amb(2)=73:amb(3)=83
If n1 =17 Then amb(1)=68:amb(2)=78:amb(3)=88
If n1 =18 Then amb(1)=31:amb(2)=41:amb(3)=51
If n1 =19 Then amb(1)=55:amb(2)=65:amb(3)=75
If n1 =20 Then amb(1)=88:amb(2)=08:amb(3)=18
If n1 =21 Then amb(1)=65:amb(2)=75:amb(3)=85
If n1 =22 Then amb(1)=44:amb(2)=54:amb(3)=64
If n1 =23 Then amb(1)=39:amb(2)=49:amb(3)=59
If n1 =24 Then amb(1)=67:amb(2)=77:amb(3)=87
If n1 =25 Then amb(1)=64:amb(2)=74:amb(3)=84
If n1 =26 Then amb(1)=61:amb(2)=71:amb(3)=81
If n1 =27 Then amb(1)=19:amb(2)=29:amb(3)=39
If n1 =28 Then amb(1)=32:amb(2)=42:amb(3)=52
If n1 =29 Then amb(1)=84:amb(2)=04:amb(3)=14
If n1 =30 Then amb(1)=62:amb(2)=72:amb(3)=82
If n1 =31 Then amb(1)=67:amb(2)=77:amb(3)=87
If n1 =32 Then amb(1)=77:amb(2)=87:amb(3)=07
If n1 =33 Then amb(1)=90:amb(2)=10:amb(3)=20
If n1 =34 Then amb(1)=39:amb(2)=49:amb(3)=59
If n1 =35 Then amb(1)=25:amb(2)=35:amb(3)=45
If n1 =36 Then amb(1)=54:amb(2)=64:amb(3)=74
If n1 =37 Then amb(1)=15:amb(2)=25:amb(3)=35
If n1 =38 Then amb(1)=44:amb(2)=54:amb(3)=64
If n1 =39 Then amb(1)=61:amb(2)=71:amb(3)=81
If n1 =40 Then amb(1)=54:amb(2)=64:amb(3)=74
If n1 =41 Then amb(1)=87:amb(2)=07:amb(3)=17
If n1 =42 Then amb(1)=46:amb(2)=56:amb(3)=66
If n1 =43 Then amb(1)=24:amb(2)=34:amb(3)=44
If n1 =44 Then amb(1)=33:amb(2)=43:amb(3)=53
If n1 =45 Then amb(1)=20:amb(2)=30:amb(3)=40
If n1 =46 Then amb(1)=69:amb(2)=79:amb(3)=89
If n1 =47 Then amb(1)=71:amb(2)=81:amb(3)=01
If n1 =48 Then amb(1)=83:amb(2)=03:amb(3)=13
If n1 =49 Then amb(1)=57:amb(2)=67:amb(3)=77
If n1 =50 Then amb(1)=62:amb(2)=72:amb(3)=82
If n1 =51 Then amb(1)=45:amb(2)=55:amb(3)=65
If n1 =52 Then amb(1)=41:amb(2)=51:amb(3)=61
If n1 =53 Then amb(1)=22:amb(2)=32:amb(3)=42
If n1 =54 Then amb(1)=03:amb(2)=13:amb(3)=23
If n1 =55 Then amb(1)=76:amb(2)=86:amb(3)=06
If n1 =56 Then amb(1)=51:amb(2)=61:amb(3)=71
If n1 =57 Then amb(1)=81:amb(2)=01:amb(3)=11
If n1 =58 Then amb(1)=12:amb(2)=22:amb(3)=32
If n1 =59 Then amb(1)=47:amb(2)=57:amb(3)=67
If n1 =60 Then amb(1)=76:amb(2)=86:amb(3)=06
If n1 =61 Then amb(1)=40:amb(2)=50:amb(3)=60
If n1 =62 Then amb(1)=54:amb(2)=64:amb(3)=74
If n1 =63 Then amb(1)=86:amb(2)=06:amb(3)=16
If n1 =64 Then amb(1)=69:amb(2)=79:amb(3)=89
If n1 =65 Then amb(1)=06:amb(2)=16:amb(3)=26
If n1 =66 Then amb(1)=15:amb(2)=25:amb(3)=35
If n1 =67 Then amb(1)=32:amb(2)=62:amb(3)=72
If n1 =68 Then amb(1)=06:amb(2)=16:amb(3)=26
If n1 =69 Then amb(1)=08:amb(2)=18:amb(3)=28
If n1 =70 Then amb(1)=13:amb(2)=23:amb(3)=33
If n1 =71 Then amb(1)=79:amb(2)=89:amb(3)=09
If n1 =72 Then amb(1)=59:amb(2)=69:amb(3)=79
If n1 =73 Then amb(1)=03:amb(2)=13:amb(3)=23
If n1 =74 Then amb(1)=37:amb(2)=47:amb(3)=57
If n1 =75 Then amb(1)=19:amb(2)=29:amb(3)=39
If n1 =76 Then amb(1)=65:amb(2)=75:amb(3)=85
If n1 =77 Then amb(1)=51:amb(2)=61:amb(3)=71
If n1 =78 Then amb(1)=04:amb(2)=14:amb(3)=24
If n1 =79 Then amb(1)=07:amb(2)=17:amb(3)=27
If n1 =80 Then amb(1)=73:amb(2)=83:amb(3)=03
If n1 =81 Then amb(1)=29:amb(2)=39:amb(3)=49
If n1 =82 Then amb(1)=86:amb(2)=06:amb(3)=16
If n1 =83 Then amb(1)=47:amb(2)=57:amb(3)=67
If n1 =84 Then amb(1)=82:amb(2)=02:amb(3)=12
If n1 =85 Then amb(1)=31:amb(2)=41:amb(3)=51
If n1 =86 Then amb(1)=52:amb(2)=62:amb(3)=72
If n1 =87 Then amb(1)=61:amb(2)=71:amb(3)=81
If n1 =88 Then amb(1)=34:amb(2)=44:amb(3)=54
If n1 =89 Then amb(1)=02:amb(2)=12:amb(3)=22
If n1 =90 Then amb(1)=25:amb(2)=35:amb(3)=45
numeri(1)= amb(1)
numeri(2)= amb(2)
numeri(3)= amb(3)
ImpostaGiocata 1,numeri,ruota,posta,k,1
Gioca es
End If
Next
Scrivi: Scrivi "Casi Riscontrati n° "& CInt (co)
ScriviResoconto
End Sub
Function IsUltimaDelMese (idEstr)
Dim sData , sDataNew
Dim idGiornoSettimana
Dim gMancanti
Dim nMeseCorr
sData = Replace(DataEstrazione(idEstr) , "." , "/")
nMeseCorr = Month(sData)
idGiornoSettimana = WeekDay (sData)
Select Case idGiornoSettimana
Case vbTuesday ' martedi
gMancanti =2
Case vbThursday ' giovedi
gMancanti = 2
Case vbSaturday ' sabato
gMancanti = 3
End Select
sDataNew = DateAdd( "d" , gMancanti ,sData)
If Month (sDataNew) <> nMeseCorr Then
IsUltimaDelMese = True
Else
IsUltimaDelMese = False
End If
End Function
Non hai i permessi necessari per visualizzare i file allegati in questo messaggio.
-
Blackmore
-
- Messaggi: 680
- Iscritto il: 19/03/2013, 16:14
da angela63 il 16/10/2013, 9:24
ci spieghi come si usa la tavola,grazie...
-
angela63
-
- Messaggi: 23
- Iscritto il: 12/08/2013, 15:44
da Blackmore il 16/10/2013, 13:26
Ciao Angela, il procedimento è spiegato nell'immagine
-
Blackmore
-
- Messaggi: 680
- Iscritto il: 19/03/2013, 16:14
da kabb77 il 03/04/2014, 11:22
non datemi un pesce,ma insegnatemi a pescare !!
-
kabb77
-
- Messaggi: 31
- Iscritto il: 11/03/2013, 22:09
da Blackmore il 04/04/2014, 0:48
Tutte le estrazioni... - Codice: Seleziona tutto
Sub main()
ColoreTesto 2: Scrivi
Scrivi String(39," ")&"LA TAVOLA DI RUTILIO - LISTATO BY BLACKMORE"
ColoreTesto 0 :Scrivi
Dim ruota(1)
Dim numeri(3),amb(3)
Dim posta(10)
posta(1)=1
posta(2)=1
'posta(6)=1
'posta(7)=1
'posta(8)=1
'posta(9)=1
'posta(10)=1
r = InputBox("Ruota di Gioco?","BLACKMORE",6)
ini = InputBox("Inserisci l'estrazione d'inizio","BLACKMORE",200)
fin = CInt(InputBox("Ultima estrazione in archivio","BLACKMORE",EstrazioneFin))
k = CInt(InputBox ("Colpi di gioco?","BLACKMORE",8))
For es = fin - ini to fin
AvanzamentoElab ini,fin,es
'If IsUltimaDelMese(es) Then
a= Estratto(es,r,1)
b= Estratto(es,r,2)
n1 = Fuori90(a+b)
co=co+1
casi=casi+1
Scrivi String(80,"*")&" Caso n° "&casi,1:
ColoreTesto 1
Scrivi DataEstrazione(es,1)&" [ "&siglaRuota(r)& " - "&StringaEstratti(es,r)&" ] " & Format2(a)&"+"& Format2(b)&" = " & Format2(n1) &" [ NUMERO DELLA TAVOLA ]"
Scrivi: ColoreTesto 0
ruota(1)= r
If n1 =01 Then amb(1)=32:amb(2)=42:amb(3)=52
If n1 =02 Then amb(1)=80:amb(2)=90:amb(3)=10
If n1 =03 Then amb(1)=03:amb(2)=13:amb(3)=23
If n1 =04 Then amb(1)=28:amb(2)=38:amb(3)=48
If n1 =05 Then amb(1)=38:amb(2)=48:amb(3)=58
If n1 =06 Then amb(1)=14:amb(2)=24:amb(3)=34
If n1 =07 Then amb(1)=18:amb(2)=28:amb(3)=38
If n1 =08 Then amb(1)=40:amb(2)=50:amb(3)=60
If n1 =09 Then amb(1)=21:amb(2)=31:amb(3)=41
If n1 =10 Then amb(1)=47:amb(2)=57:amb(3)=67
If n1 =11 Then amb(1)=90:amb(2)=10:amb(3)=20
If n1 =12 Then amb(1)=44:amb(2)=54:amb(3)=64
If n1 =13 Then amb(1)=67:amb(2)=77:amb(3)=87
If n1 =14 Then amb(1)=72:amb(2)=82:amb(3)=02
If n1 =15 Then amb(1)=43:amb(2)=53:amb(3)=63
If n1 =16 Then amb(1)=63:amb(2)=73:amb(3)=83
If n1 =17 Then amb(1)=68:amb(2)=78:amb(3)=88
If n1 =18 Then amb(1)=31:amb(2)=41:amb(3)=51
If n1 =19 Then amb(1)=55:amb(2)=65:amb(3)=75
If n1 =20 Then amb(1)=88:amb(2)=08:amb(3)=18
If n1 =21 Then amb(1)=65:amb(2)=75:amb(3)=85
If n1 =22 Then amb(1)=44:amb(2)=54:amb(3)=64
If n1 =23 Then amb(1)=39:amb(2)=49:amb(3)=59
If n1 =24 Then amb(1)=67:amb(2)=77:amb(3)=87
If n1 =25 Then amb(1)=64:amb(2)=74:amb(3)=84
If n1 =26 Then amb(1)=61:amb(2)=71:amb(3)=81
If n1 =27 Then amb(1)=19:amb(2)=29:amb(3)=39
If n1 =28 Then amb(1)=32:amb(2)=42:amb(3)=52
If n1 =29 Then amb(1)=84:amb(2)=04:amb(3)=14
If n1 =30 Then amb(1)=62:amb(2)=72:amb(3)=82
If n1 =31 Then amb(1)=67:amb(2)=77:amb(3)=87
If n1 =32 Then amb(1)=77:amb(2)=87:amb(3)=07
If n1 =33 Then amb(1)=90:amb(2)=10:amb(3)=20
If n1 =34 Then amb(1)=39:amb(2)=49:amb(3)=59
If n1 =35 Then amb(1)=25:amb(2)=35:amb(3)=45
If n1 =36 Then amb(1)=54:amb(2)=64:amb(3)=74
If n1 =37 Then amb(1)=15:amb(2)=25:amb(3)=35
If n1 =38 Then amb(1)=44:amb(2)=54:amb(3)=64
If n1 =39 Then amb(1)=61:amb(2)=71:amb(3)=81
If n1 =40 Then amb(1)=54:amb(2)=64:amb(3)=74
If n1 =41 Then amb(1)=87:amb(2)=07:amb(3)=17
If n1 =42 Then amb(1)=46:amb(2)=56:amb(3)=66
If n1 =43 Then amb(1)=24:amb(2)=34:amb(3)=44
If n1 =44 Then amb(1)=33:amb(2)=43:amb(3)=53
If n1 =45 Then amb(1)=20:amb(2)=30:amb(3)=40
If n1 =46 Then amb(1)=69:amb(2)=79:amb(3)=89
If n1 =47 Then amb(1)=71:amb(2)=81:amb(3)=01
If n1 =48 Then amb(1)=83:amb(2)=03:amb(3)=13
If n1 =49 Then amb(1)=57:amb(2)=67:amb(3)=77
If n1 =50 Then amb(1)=62:amb(2)=72:amb(3)=82
If n1 =51 Then amb(1)=45:amb(2)=55:amb(3)=65
If n1 =52 Then amb(1)=41:amb(2)=51:amb(3)=61
If n1 =53 Then amb(1)=22:amb(2)=32:amb(3)=42
If n1 =54 Then amb(1)=03:amb(2)=13:amb(3)=23
If n1 =55 Then amb(1)=76:amb(2)=86:amb(3)=06
If n1 =56 Then amb(1)=51:amb(2)=61:amb(3)=71
If n1 =57 Then amb(1)=81:amb(2)=01:amb(3)=11
If n1 =58 Then amb(1)=12:amb(2)=22:amb(3)=32
If n1 =59 Then amb(1)=47:amb(2)=57:amb(3)=67
If n1 =60 Then amb(1)=76:amb(2)=86:amb(3)=06
If n1 =61 Then amb(1)=40:amb(2)=50:amb(3)=60
If n1 =62 Then amb(1)=54:amb(2)=64:amb(3)=74
If n1 =63 Then amb(1)=86:amb(2)=06:amb(3)=16
If n1 =64 Then amb(1)=69:amb(2)=79:amb(3)=89
If n1 =65 Then amb(1)=06:amb(2)=16:amb(3)=26
If n1 =66 Then amb(1)=15:amb(2)=25:amb(3)=35
If n1 =67 Then amb(1)=32:amb(2)=62:amb(3)=72
If n1 =68 Then amb(1)=06:amb(2)=16:amb(3)=26
If n1 =69 Then amb(1)=08:amb(2)=18:amb(3)=28
If n1 =70 Then amb(1)=13:amb(2)=23:amb(3)=33
If n1 =71 Then amb(1)=79:amb(2)=89:amb(3)=09
If n1 =72 Then amb(1)=59:amb(2)=69:amb(3)=79
If n1 =73 Then amb(1)=03:amb(2)=13:amb(3)=23
If n1 =74 Then amb(1)=37:amb(2)=47:amb(3)=57
If n1 =75 Then amb(1)=19:amb(2)=29:amb(3)=39
If n1 =76 Then amb(1)=65:amb(2)=75:amb(3)=85
If n1 =77 Then amb(1)=51:amb(2)=61:amb(3)=71
If n1 =78 Then amb(1)=04:amb(2)=14:amb(3)=24
If n1 =79 Then amb(1)=07:amb(2)=17:amb(3)=27
If n1 =80 Then amb(1)=73:amb(2)=83:amb(3)=03
If n1 =81 Then amb(1)=29:amb(2)=39:amb(3)=49
If n1 =82 Then amb(1)=86:amb(2)=06:amb(3)=16
If n1 =83 Then amb(1)=47:amb(2)=57:amb(3)=67
If n1 =84 Then amb(1)=82:amb(2)=02:amb(3)=12
If n1 =85 Then amb(1)=31:amb(2)=41:amb(3)=51
If n1 =86 Then amb(1)=52:amb(2)=62:amb(3)=72
If n1 =87 Then amb(1)=61:amb(2)=71:amb(3)=81
If n1 =88 Then amb(1)=34:amb(2)=44:amb(3)=54
If n1 =89 Then amb(1)=02:amb(2)=12:amb(3)=22
If n1 =90 Then amb(1)=25:amb(2)=35:amb(3)=45
numeri(1)= amb(1)
numeri(2)= amb(2)
numeri(3)= amb(3)
ImpostaGiocata 1,numeri,ruota,posta,k,1
Gioca es
'End If
Next
Scrivi: Scrivi "Casi Riscontrati n° "& CInt (co)
ScriviResoconto
End Sub
'Function IsUltimaDelMese (idEstr)
'Dim sData , sDataNew
'Dim idGiornoSettimana
'Dim gMancanti
'Dim nMeseCorr
'sData = Replace(DataEstrazione(idEstr) , "." , "/")
'nMeseCorr = Month(sData)
'idGiornoSettimana = WeekDay (sData)
'Select Case idGiornoSettimana
'Case vbTuesday ' martedi
'gMancanti =2
'Case vbThursday ' giovedi
'gMancanti = 2
'Case vbSaturday ' sabato
'gMancanti = 3
'End Select
'sDataNew = DateAdd( "d" , gMancanti ,sData)
'If Month (sDataNew) <> nMeseCorr Then
'IsUltimaDelMese = True
'Else
'IsUltimaDelMese = False
'End If
'End Function
-
Blackmore
-
- Messaggi: 680
- Iscritto il: 19/03/2013, 16:14
da kabb77 il 04/04/2014, 8:14
Blackmore ha scritto:Tutte le estrazioni... - Codice: Seleziona tutto
Sub main()
ColoreTesto 2: Scrivi
Scrivi String(39," ")&"LA TAVOLA DI RUTILIO - LISTATO BY BLACKMORE"
ColoreTesto 0 :Scrivi
Dim ruota(1)
Dim numeri(3),amb(3)
Dim posta(10)
posta(1)=1
posta(2)=1
'posta(6)=1
'posta(7)=1
'posta(8)=1
'posta(9)=1
'posta(10)=1
r = InputBox("Ruota di Gioco?","BLACKMORE",6)
ini = InputBox("Inserisci l'estrazione d'inizio","BLACKMORE",200)
fin = CInt(InputBox("Ultima estrazione in archivio","BLACKMORE",EstrazioneFin))
k = CInt(InputBox ("Colpi di gioco?","BLACKMORE",8))
For es = fin - ini to fin
AvanzamentoElab ini,fin,es
'If IsUltimaDelMese(es) Then
a= Estratto(es,r,1)
b= Estratto(es,r,2)
n1 = Fuori90(a+b)
co=co+1
casi=casi+1
Scrivi String(80,"*")&" Caso n° "&casi,1:
ColoreTesto 1
Scrivi DataEstrazione(es,1)&" [ "&siglaRuota(r)& " - "&StringaEstratti(es,r)&" ] " & Format2(a)&"+"& Format2(b)&" = " & Format2(n1) &" [ NUMERO DELLA TAVOLA ]"
Scrivi: ColoreTesto 0
ruota(1)= r
If n1 =01 Then amb(1)=32:amb(2)=42:amb(3)=52
If n1 =02 Then amb(1)=80:amb(2)=90:amb(3)=10
If n1 =03 Then amb(1)=03:amb(2)=13:amb(3)=23
If n1 =04 Then amb(1)=28:amb(2)=38:amb(3)=48
If n1 =05 Then amb(1)=38:amb(2)=48:amb(3)=58
If n1 =06 Then amb(1)=14:amb(2)=24:amb(3)=34
If n1 =07 Then amb(1)=18:amb(2)=28:amb(3)=38
If n1 =08 Then amb(1)=40:amb(2)=50:amb(3)=60
If n1 =09 Then amb(1)=21:amb(2)=31:amb(3)=41
If n1 =10 Then amb(1)=47:amb(2)=57:amb(3)=67
If n1 =11 Then amb(1)=90:amb(2)=10:amb(3)=20
If n1 =12 Then amb(1)=44:amb(2)=54:amb(3)=64
If n1 =13 Then amb(1)=67:amb(2)=77:amb(3)=87
If n1 =14 Then amb(1)=72:amb(2)=82:amb(3)=02
If n1 =15 Then amb(1)=43:amb(2)=53:amb(3)=63
If n1 =16 Then amb(1)=63:amb(2)=73:amb(3)=83
If n1 =17 Then amb(1)=68:amb(2)=78:amb(3)=88
If n1 =18 Then amb(1)=31:amb(2)=41:amb(3)=51
If n1 =19 Then amb(1)=55:amb(2)=65:amb(3)=75
If n1 =20 Then amb(1)=88:amb(2)=08:amb(3)=18
If n1 =21 Then amb(1)=65:amb(2)=75:amb(3)=85
If n1 =22 Then amb(1)=44:amb(2)=54:amb(3)=64
If n1 =23 Then amb(1)=39:amb(2)=49:amb(3)=59
If n1 =24 Then amb(1)=67:amb(2)=77:amb(3)=87
If n1 =25 Then amb(1)=64:amb(2)=74:amb(3)=84
If n1 =26 Then amb(1)=61:amb(2)=71:amb(3)=81
If n1 =27 Then amb(1)=19:amb(2)=29:amb(3)=39
If n1 =28 Then amb(1)=32:amb(2)=42:amb(3)=52
If n1 =29 Then amb(1)=84:amb(2)=04:amb(3)=14
If n1 =30 Then amb(1)=62:amb(2)=72:amb(3)=82
If n1 =31 Then amb(1)=67:amb(2)=77:amb(3)=87
If n1 =32 Then amb(1)=77:amb(2)=87:amb(3)=07
If n1 =33 Then amb(1)=90:amb(2)=10:amb(3)=20
If n1 =34 Then amb(1)=39:amb(2)=49:amb(3)=59
If n1 =35 Then amb(1)=25:amb(2)=35:amb(3)=45
If n1 =36 Then amb(1)=54:amb(2)=64:amb(3)=74
If n1 =37 Then amb(1)=15:amb(2)=25:amb(3)=35
If n1 =38 Then amb(1)=44:amb(2)=54:amb(3)=64
If n1 =39 Then amb(1)=61:amb(2)=71:amb(3)=81
If n1 =40 Then amb(1)=54:amb(2)=64:amb(3)=74
If n1 =41 Then amb(1)=87:amb(2)=07:amb(3)=17
If n1 =42 Then amb(1)=46:amb(2)=56:amb(3)=66
If n1 =43 Then amb(1)=24:amb(2)=34:amb(3)=44
If n1 =44 Then amb(1)=33:amb(2)=43:amb(3)=53
If n1 =45 Then amb(1)=20:amb(2)=30:amb(3)=40
If n1 =46 Then amb(1)=69:amb(2)=79:amb(3)=89
If n1 =47 Then amb(1)=71:amb(2)=81:amb(3)=01
If n1 =48 Then amb(1)=83:amb(2)=03:amb(3)=13
If n1 =49 Then amb(1)=57:amb(2)=67:amb(3)=77
If n1 =50 Then amb(1)=62:amb(2)=72:amb(3)=82
If n1 =51 Then amb(1)=45:amb(2)=55:amb(3)=65
If n1 =52 Then amb(1)=41:amb(2)=51:amb(3)=61
If n1 =53 Then amb(1)=22:amb(2)=32:amb(3)=42
If n1 =54 Then amb(1)=03:amb(2)=13:amb(3)=23
If n1 =55 Then amb(1)=76:amb(2)=86:amb(3)=06
If n1 =56 Then amb(1)=51:amb(2)=61:amb(3)=71
If n1 =57 Then amb(1)=81:amb(2)=01:amb(3)=11
If n1 =58 Then amb(1)=12:amb(2)=22:amb(3)=32
If n1 =59 Then amb(1)=47:amb(2)=57:amb(3)=67
If n1 =60 Then amb(1)=76:amb(2)=86:amb(3)=06
If n1 =61 Then amb(1)=40:amb(2)=50:amb(3)=60
If n1 =62 Then amb(1)=54:amb(2)=64:amb(3)=74
If n1 =63 Then amb(1)=86:amb(2)=06:amb(3)=16
If n1 =64 Then amb(1)=69:amb(2)=79:amb(3)=89
If n1 =65 Then amb(1)=06:amb(2)=16:amb(3)=26
If n1 =66 Then amb(1)=15:amb(2)=25:amb(3)=35
If n1 =67 Then amb(1)=32:amb(2)=62:amb(3)=72
If n1 =68 Then amb(1)=06:amb(2)=16:amb(3)=26
If n1 =69 Then amb(1)=08:amb(2)=18:amb(3)=28
If n1 =70 Then amb(1)=13:amb(2)=23:amb(3)=33
If n1 =71 Then amb(1)=79:amb(2)=89:amb(3)=09
If n1 =72 Then amb(1)=59:amb(2)=69:amb(3)=79
If n1 =73 Then amb(1)=03:amb(2)=13:amb(3)=23
If n1 =74 Then amb(1)=37:amb(2)=47:amb(3)=57
If n1 =75 Then amb(1)=19:amb(2)=29:amb(3)=39
If n1 =76 Then amb(1)=65:amb(2)=75:amb(3)=85
If n1 =77 Then amb(1)=51:amb(2)=61:amb(3)=71
If n1 =78 Then amb(1)=04:amb(2)=14:amb(3)=24
If n1 =79 Then amb(1)=07:amb(2)=17:amb(3)=27
If n1 =80 Then amb(1)=73:amb(2)=83:amb(3)=03
If n1 =81 Then amb(1)=29:amb(2)=39:amb(3)=49
If n1 =82 Then amb(1)=86:amb(2)=06:amb(3)=16
If n1 =83 Then amb(1)=47:amb(2)=57:amb(3)=67
If n1 =84 Then amb(1)=82:amb(2)=02:amb(3)=12
If n1 =85 Then amb(1)=31:amb(2)=41:amb(3)=51
If n1 =86 Then amb(1)=52:amb(2)=62:amb(3)=72
If n1 =87 Then amb(1)=61:amb(2)=71:amb(3)=81
If n1 =88 Then amb(1)=34:amb(2)=44:amb(3)=54
If n1 =89 Then amb(1)=02:amb(2)=12:amb(3)=22
If n1 =90 Then amb(1)=25:amb(2)=35:amb(3)=45
numeri(1)= amb(1)
numeri(2)= amb(2)
numeri(3)= amb(3)
ImpostaGiocata 1,numeri,ruota,posta,k,1
Gioca es
'End If
Next
Scrivi: Scrivi "Casi Riscontrati n° "& CInt (co)
ScriviResoconto
End Sub
'Function IsUltimaDelMese (idEstr)
'Dim sData , sDataNew
'Dim idGiornoSettimana
'Dim gMancanti
'Dim nMeseCorr
'sData = Replace(DataEstrazione(idEstr) , "." , "/")
'nMeseCorr = Month(sData)
'idGiornoSettimana = WeekDay (sData)
'Select Case idGiornoSettimana
'Case vbTuesday ' martedi
'gMancanti =2
'Case vbThursday ' giovedi
'gMancanti = 2
'Case vbSaturday ' sabato
'gMancanti = 3
'End Select
'sDataNew = DateAdd( "d" , gMancanti ,sData)
'If Month (sDataNew) <> nMeseCorr Then
'IsUltimaDelMese = True
'Else
'IsUltimaDelMese = False
'End If
'End Function
grazie ottimo !!!  non datemi un pesce,ma insegnatemi a pescare !!
-
kabb77
-
- Messaggi: 31
- Iscritto il: 11/03/2013, 22:09
da nicola63 il 05/06/2014, 22:01
Ultima estrszione del mese di Maggio: 1° di Napoli 87, 2° di Napoli 52 87 + 52= 139 - 90 = 49 il 49 è presente sulle ruote di Milano e Genova. Il 49 per laTavola di Rutilio mette in gioco i numeri = 57 67 77 su MI e GE 1° colpo di gioco 67 su Genova. Grande Rutilio per la tavola e Blackmore per lo script 
-
nicola63
-
- Messaggi: 73
- Iscritto il: 28/07/2013, 22:25
da Blackmore il 12/06/2014, 23:29
Ciao Nicola, forse mi è sfuggito qualcosa ma la tavola gioca 3 numeri su Napoli, al 1° colpo ha dato il 77 su NA Ciao
-
Blackmore
-
- Messaggi: 680
- Iscritto il: 19/03/2013, 16:14
da nicola63 il 13/06/2014, 22:54
Ciao Blackmore, è vero ho fatto confusione. il 1° di Napoli + 2° di Napoli = 49, laTavola di Rutilio dava i numeri = 57 67 77 giustamente da giocare su Napoli. Invece ho testato i numeri della tavola su Genova e Milano, le ruote dove nell'estrazione di calcolo era presente il 49. Grazie 
-
nicola63
-
- Messaggi: 73
- Iscritto il: 28/07/2013, 22:25
Torna a Cabala e antichi studi
Chi c’è in linea
Visitano il forum: Nessuno e 1 ospite
- Tutti gli orari sono UTC + 1 ora
|
