Aiuto!!!!

mastrogino · 27 Dicembre 2012

Buon giorno, rinovando gli Auguri a tutti per un sereno e prospero anno nuovo

vi vorrei chiedervi un piccolo favore
ho lo script della tavola settenari qui sotto trovate il responso su Bari con la somma dei 5 estratti 42
e lo sviluppo .............il problema mio consiste come posso modificare lo scripr
e inserendo un'altro numero
cioeee.........
se la ruota di bari da somma 42 e lo sviluppo e 24.06.85.49.come faccio a inserire un'altro numero tipo
57??
sotto lo spiego in dettaglio
vi ringrazio in anticipo del vostro aiuto

If n1 = 42 Then
amb(1) = 24
amb(2) = 6
amb(3) = 85
amb(4) = 49
End If

57??????

Bari SOMMA fuori 90 dei cinque estratti----> 42
lunedì, dic 24 2012 [ BA - 81.27.61.60.83 ]

Estrazione generatrice del pronostico 08630 [154 - 24/12/2012]
G 0001
Numeri in gioco : 24.06 57?su BA per Estratto,Ambo
In corso per altre 12 estrazioni
G 0002
Numeri in gioco : 24.85 57?su BA per Ambo
In corso per altre 12 estrazioni
G 0003
Numeri in gioco : 24.49 57?su BA per Ambo
In corso per altre 12 estrazioni
G 0004
Numeri in gioco : 06.85 su 57?BA per Ambo
In corso per altre 12 estrazioni
G 0005
Numeri in gioco : 06.49 57?su BA per Ambo
In corso per altre 12 estrazioni
G 0006
Numeri in gioco : 85.49 57?su BA per Ambo
In corso per altre 12 estrazioni
G 0007
Numeri in gioco : 24.06.85.49 57?su BA per Ambo,Terno
In corso per altre 12 estrazioni

mastrogino · 27 Dicembre 2012

con un po di fatica sono riuscito ad inserire il numero ( 08)
ma nn so come farlo ad inserirlo in uscita con gli altri

Bari SOMMA fuori 90 dei cinque estratti----> 1
giovedì, dic 13 2012 [ BA - 08.66.47.62.88 ]

08. ( questo e il numero inserito )

Estrazione generatrice del pronostico 08625 [149 - 13/12/2012]
G 0001
Numeri in gioco : 07.13.08????su BA TT per Estratto,Ambo
N. [07.13 ] [BA] [.. .. .. .. ..] C. 1 08626 [150 - 15/12/2012]
V N. [07.13 ] [TT] [TO][.. .. 07 .. ..] C. 1 Estratto 08626 [150 - 15/12/2012]
N. [07.13 ] [BA] [.. .. .. .. ..] C. 2 08627 [151 - 18/12/2012]
N. [07.13 ] [TT] [ ][.. .. .. .. ..] C. 2 08627 [151 - 18/12/2012]
N. [07.13 ] [BA] [.. .. .. .. ..] C. 3 08628 [152 - 20/12/2012]
V N. [07.13 ] [TT] [NA][.. .. .. 07 ..] C. 3 Estratto 08628 [152 - 20/12/2012]
N. [07.13 ] [BA] [.. .. .. .. ..] C. 4 08629 [153 - 22/12/2012]
V N. [07.13 ] [TT] [TO][.. .. .. 07 ..] C. 4 Estratto 08629 [153 - 22/12/2012]
N. [07.13 ] [BA] [.. .. .. .. ..] C. 5 08630 [154 - 24/12/2012]
N. [07.13 ] [TT] [ ][.. .. .. .. ..] C. 5 08630 [154 - 24/12/2012]

ho fatto in questo modo.................

If n1 = 1 Then
ColoreTesto 0
Scrivi "08.",1
Scrivi
amb(1) = 7
amb(2) = 13
amb(3) = 78
amb(4) = 90
End If

gamberorosso · 27 Dicembre 2012

Ciao shiro auguri e buon fine anno.....
forse devi metterlo in gioca
ImpostaGiocata 1,numeri2,ruota,poste,2
numeri2(1) = 1
numeri2(2) =2
numeri2(3) = 3
numeri2(4) = 4
aggiungi qui i numeri che vuoi aggiungere....
numeri2(5)= 5
dovresti mettere lo script se puoi ciao

mastrogino · 27 Dicembre 2012

gamberorosso ha scritto:
Ciao shiro auguri e buon fine anno.....
forse devi metterlo in gioca
ImpostaGiocata 1,numeri2,ruota,poste,2
numeri2(1) = 1
numeri2(2) =2
numeri2(3) = 3
numeri2(4) = 4
aggiungi qui i numeri che vuoi aggiungere....
numeri2(5)= 5
dovresti mettere lo script se puoi ciao

CIOA ricambio gli Auguri con tutta la mia stima e cuore a te e famiglia
essatto il mio intento e quello di inserire un numero che è in realta l'ambata
ogni cella un numero
ma nn ci riesco ti inserisco lo script occhio e quella buona .........l'ambata deve comparire nell'ambo e in cinquina finale

Sub Main()
ColoreTesto 2
Scrivi "================================================= = TAVOLA SETTENARIA===================== ",1
Scrivi "Schirò Gioacchino ",1
ColoreTesto 1
Scrivi "calcolo dei numeri veri",1
Scrivi
ColoreTesto 0
Dim ruota(10)
Dim numeri(5)
Dim numeri1(5)
Dim numeri2(5)
Dim amb(5)
Dim posta(2)
Dim poste(2)
Dim postee(5)
posta(1) = 1
posta(2) = 1
poste(2) = 1
postee(2) = 1
postee(3) = 1
r = CInt(InputBox("Quale Ruota Vuoi Controllare ?","Ruota",1))
tmp = CInt(InputBox("Quante Estrazioni Vuoi Controllare ?","ESTRAZIONI",50))
clp = CInt(InputBox("Per quanti colpi di gioco ?","COLPI",12))
co = 0
ini = EstrazioneFin - tmp
For n = ini To EstrazioneFin
Messaggio

a = Fuori90(SommaEstratti(n,r))
n1 = a
co = co + 1
Scrivi String(100,"°") & " Caso n°" & co,1
ColoreTesto 1
Scrivi NomeRuota(r) & _
" SOMMA fuori 90 dei cinque estratti----> " & a,1
Scrivi DataEstrazione(n,1) & " [ " & SiglaRuota(r) & " - " & StringaEstratti(n,r) & " ] ",1
Scrivi
ColoreTesto 0
ruota(1) = r : ruota(2) = 11
If n1 = 1 Then
amb(1) = 7
amb(2) = 13
amb(3) = 78
amb(4) = 90
End If
If n1 = 2 Then
amb(1) = 14
amb(2) = 26
amb(3) = 65
amb(4) = 89
End If
If n1 = 3 Then
amb(1) = 21
amb(2) = 39
amb(3) = 52
amb(4) = 88
End If
If n1 = 4 Then
amb(1) = 28
amb(2) = 52
amb(3) = 39
amb(4) = 87
End If
If n1 = 5 Then
amb(1) = 35
amb(2) = 65
amb(3) = 26
amb(4) = 86
End If
If n1 = 6 Then
amb(1) = 42
amb(2) = 78
amb(3) = 13
amb(4) = 85
End If
If n1 = 7 Then
amb(1) = 49
amb(2) = 1
amb(3) = 90
amb(4) = 84
End If
If n1 = 8 Then
amb(1) = 56
amb(2) = 14
amb(3) = 77
amb(4) = 83
End If
If n1 = 9 Then
amb(1) = 63
amb(2) = 27
amb(3) = 64
amb(4) = 82
End If
If n1 = 10 Then
amb(1) = 70
amb(2) = 40
amb(3) = 51
amb(4) = 81
End If
If n1 = 11 Then
amb(1) = 77
amb(2) = 53
amb(3) = 38
amb(4) = 80
End If
If n1 = 12 Then
amb(1) = 84
amb(2) = 66
amb(3) = 25
amb(4) = 79
End If
If n1 = 13 Then
amb(1) = 1
amb(2) = 79
amb(3) = 12
amb(4) = 78
End If
If n1 = 14 Then
amb(1) = 8
amb(2) = 2
amb(3) = 89
amb(4) = 77
End If
If n1 = 15 Then
amb(1) = 15
amb(2) = 15
amb(3) = 76
amb(4) = 76
End If
If n1 = 16 Then
amb(1) = 22
amb(2) = 28
amb(3) = 63
amb(4) = 75
End If
If n1 = 17 Then
amb(1) = 29
amb(2) = 41
amb(3) = 50
amb(4) = 74
End If
If n1 = 18 Then
amb(1) = 36
amb(2) = 54
amb(3) = 37
amb(4) = 73
End If
If n1 = 19 Then
amb(1) = 43
amb(2) = 67
amb(3) = 24
amb(4) = 72
End If
If n1 = 20 Then
amb(1) = 50
amb(2) = 11
amb(3) = 11
amb(4) = 71
End If
If n1 = 21 Then
amb(1) = 57
amb(2) = 3
amb(3) = 88
amb(4) = 70
End If
If n1 = 22 Then
amb(1) = 64
amb(2) = 16
amb(3) = 75
amb(4) = 69
End If
If n1 = 23 Then
amb(1) = 71
amb(2) = 29
amb(3) = 62
amb(4) = 68
End If
If n1 = 24 Then
amb(1) = 78
amb(2) = 42
amb(3) = 49
amb(4) = 67
End If
If n1 = 25 Then
amb(1) = 85
amb(2) = 55
amb(3) = 36
amb(4) = 66
End If
If n1 = 26 Then
amb(1) = 2
amb(2) = 68
amb(3) = 23
amb(4) = 65
End If
If n1 = 27 Then
amb(1) = 9
amb(2) = 81
amb(3) = 10
amb(4) = 64
End If
If n1 = 28 Then
amb(1) = 16
amb(2) = 4
amb(3) = 87
amb(4) = 63
End If
If n1 = 29 Then
amb(1) = 23
amb(2) = 17
amb(3) = 74
amb(4) = 62
End If
If n1 = 30 Then
amb(1) = 30
amb(2) = 30
amb(3) = 61
amb(4) = 61
End If
If n1 = 31 Then
amb(1) = 37
amb(2) = 43
amb(3) = 48
amb(4) = 60
End If
If n1 = 32 Then
amb(1) = 44
amb(2) = 56
amb(3) = 35
amb(4) = 59
End If
If n1 = 33 Then
amb(1) = 51
amb(2) = 69
amb(3) = 22
amb(4) = 58
End If
If n1 = 34 Then
amb(1) = 58
amb(2) = 82
amb(3) = 9
amb(4) = 57
End If
If n1 = 35 Then
amb(1) = 65
amb(2) = 5
amb(3) = 86
amb(4) = 56
End If
If n1 = 36 Then
amb(1) = 72
amb(2) = 18
amb(3) = 73
amb(4) = 55
End If
If n1 = 37 Then
amb(1) = 79
amb(2) = 31
amb(3) = 60
amb(4) = 54
End If
If n1 = 38 Then
amb(1) = 86
amb(2) = 44
amb(3) = 47
amb(4) = 53
End If
If n1 = 39 Then
amb(1) = 3
amb(2) = 57
amb(3) = 34
amb(4) = 52
End If
If n1 = 40 Then
amb(1) = 10
amb(2) = 70
amb(3) = 21
amb(4) = 51
End If
If n1 = 41 Then
amb(1) = 17
amb(2) = 83
amb(3) = 8
amb(4) = 50
End If
If n1 = 42 Then
amb(1) = 24
amb(2) = 6
amb(3) = 85
amb(4) = 49
End If
If n1 = 43 Then
amb(1) = 31
amb(2) = 19
amb(3) = 72
amb(4) = 48
End If
If n1 = 44 Then
amb(1) = 38
amb(2) = 32
amb(3) = 59
amb(4) = 47
End If
If n1 = 45 Then
amb(1) = 45
amb(2) = 45
amb(3) = 46
amb(4) = 46
End If
If n1 = 46 Then
amb(1) = 52
amb(2) = 58
amb(3) = 33
amb(4) = 45
End If
If n1 = 47 Then
amb(1) = 59
amb(2) = 71
amb(3) = 20
amb(4) = 44
End If
If n1 = 48 Then
amb(1) = 66
amb(2) = 84
amb(3) = 7
amb(4) = 43
End If
If n1 = 49 Then
amb(1) = 73
amb(2) = 7
amb(3) = 84
amb(4) = 42
End If
If n1 = 50 Then
amb(1) = 80
amb(2) = 20
amb(3) = 71
amb(4) = 41
End If
If n1 = 51 Then
amb(1) = 87
amb(2) = 33
amb(3) = 58
amb(4) = 40
End If
If n1 = 52 Then
amb(1) = 4
amb(2) = 46
amb(3) = 45
amb(4) = 39
End If
If n1 = 53 Then
amb(1) = 11
amb(2) = 59
amb(3) = 32
amb(4) = 38
End If
If n1 = 54 Then
amb(1) = 18
amb(2) = 72
amb(3) = 19
amb(4) = 37
End If
If n1 = 55 Then
amb(1) = 25
amb(2) = 85
amb(3) = 6
amb(4) = 36
End If
If n1 = 56 Then
amb(1) = 32
amb(2) = 8
amb(3) = 83
amb(4) = 35
End If
If n1 = 57 Then
amb(1) = 39
amb(2) = 21
amb(3) = 70
amb(4) = 34
End If
If n1 = 58 Then
amb(1) = 46
amb(2) = 34
amb(3) = 57
amb(4) = 33
End If
If n1 = 59 Then
amb(1) = 53
amb(2) = 47
amb(3) = 44
amb(4) = 32
End If
If n1 = 60 Then
amb(1) = 60
amb(2) = 31
End If
If n1 = 61 Then
amb(1) = 67
amb(2) = 73
amb(3) = 18
amb(4) = 30
End If
If n1 = 62 Then
amb(1) = 74
amb(2) = 86
amb(3) = 5
amb(4) = 29
End If
If n1 = 63 Then
amb(1) = 81
amb(2) = 9
amb(3) = 82
amb(4) = 28
End If
If n1 = 64 Then
amb(1) = 88
amb(2) = 22
amb(3) = 69
amb(4) = 27
End If
If n1 = 65 Then
amb(1) = 5
amb(2) = 35
amb(3) = 56
amb(4) = 26
End If
If n1 = 66 Then
amb(1) = 12
amb(2) = 48
amb(3) = 43
amb(4) = 25
End If
If n1 = 67 Then
amb(1) = 19
amb(2) = 61
amb(3) = 30
amb(4) = 24
End If
If n1 = 68 Then
amb(1) = 26
amb(2) = 74
amb(3) = 17
amb(4) = 23
End If
If n1 = 69 Then
amb(1) = 33
amb(2) = 87
amb(3) = 4
amb(4) = 22
End If
If n1 = 70 Then
amb(1) = 40
amb(2) = 10
amb(3) = 81
amb(4) = 21
End If
If n1 = 71 Then
amb(1) = 47
amb(2) = 23
amb(3) = 68
amb(4) = 20
End If
If n1 = 72 Then
amb(1) = 54
amb(2) = 36
amb(3) = 55
amb(4) = 19
End If
If n1 = 73 Then
amb(1) = 61
amb(2) = 49
amb(3) = 42
amb(4) = 18
End If
If n1 = 74 Then
amb(1) = 68
amb(2) = 62
amb(3) = 29
amb(4) = 17
End If
If n1 = 75 Then
amb(1) = 75
amb(2) = 75
amb(3) = 16
amb(4) = 16
End If
If n1 = 76 Then
amb(1) = 82
amb(2) = 88
amb(3) = 3
amb(4) = 15
End If
If n1 = 77 Then
amb(1) = 89
amb(2) = 11
amb(3) = 80
amb(4) = 14
End If
If n1 = 78 Then
amb(1) = 6
amb(2) = 24
amb(3) = 67
amb(4) = 13
End If
If n1 = 79 Then
amb(1) = 13
amb(2) = 37
amb(3) = 54
amb(4) = 12
End If
If n1 = 80 Then
amb(1) = 20
amb(2) = 50
amb(3) = 41
amb(4) = 11
End If
If n1 = 81 Then
amb(1) = 27
amb(2) = 63
amb(3) = 28
amb(4) = 10
End If
If n1 = 82 Then
amb(1) = 34
amb(2) = 76
amb(3) = 15
amb(4) = 9
End If
If n1 = 83 Then
amb(1) = 41
amb(2) = 89
amb(3) = 2
amb(4) = 8
End If
If n1 = 84 Then
amb(1) = 48
amb(2) = 12
amb(3) = 79
amb(4) = 7
End If
If n1 = 85 Then
amb(1) = 55
amb(2) = 25
amb(3) = 66
amb(4) = 6
End If
If n1 = 86 Then
amb(1) = 62
amb(2) = 38
amb(3) = 53
amb(4) = 5
End If
If n1 = 87 Then
amb(1) = 69
amb(2) = 51
amb(3) = 40
amb(4) = 4
End If
If n1 = 88 Then
amb(1) = 76
amb(2) = 64
amb(3) = 27
amb(4) = 3
End If
If n1 = 89 Then
amb(1) = 83
amb(2) = 77
amb(3) = 14
amb(4) = 2
End If
If n1 = 90 Then
amb(1) = 90
amb(2) = 90
amb(3) = 1
amb(4) = 1
End If
numeri1(1) = amb(1)
numeri1(2) = amb(2)
ImpostaGiocata 1,numeri1,ruota,posta,clp,2
numeri1(1) = amb(1)
numeri1(2) = amb(3)
ImpostaGiocata 2,numeri1,ruota,poste,clp,3
numeri1(1) = amb(1)
numeri1(2) = amb(4)
ImpostaGiocata 3,numeri1,ruota,poste,clp,3
numeri1(1) = amb(2)
numeri1(2) = amb(3)
ImpostaGiocata 4,numeri1,ruota,poste,clp,3
numeri1(1) = amb(2)
numeri1(2) = amb(4)
ImpostaGiocata 5,numeri1,ruota,poste,clp,3
numeri1(1) = amb(3)
numeri1(2) = amb(4)
ImpostaGiocata 6,numeri1,ruota,poste,clp,3
numeri2(1) = amb(1)
numeri2(2) = amb(2)
numeri2(3) = amb(3)
numeri2(4) = amb(4)
ImpostaGiocata 7,numeri2,ruota,postee,clp,4
Gioca n
Next
Scrivi
Scrivi "Casi Riscontrati n° " & CInt(co),1
ScriviResoconto
ColoreTesto 2
Scrivi "================================================= = TAVOLA SETTENARIA===================== ",1
Scrivi "Schirò Gioacchino ",1

End Sub

Roby · 27 Dicembre 2012

Tralasciando le tue sconcertanti affermazioni riguardo l'altro script che ti ho fatto, e che hai fatto "correggere", il numero che devi aggiungere da dove lo tiri fuori?
Oppure è sempre lo stesso?
Poi ve l'ho sempre detto che per arrivare a 91 inutile fare 7+7+7+7 ecc ecc basta fare 13 X 7 di conseguenza 2/3 del tuo script non serve assolutamente a niente, senza contarer qualche errore in qua e in la!
Ciao

Codice:

Sub Main()
ColoreTesto 2
Scrivi "============================================= ==== = TAVOLA SETTENARIA===================== ",1
Scrivi "Schirò Gioacchino ",1
ColoreTesto 1
Scrivi "calcolo dei numeri veri",1
Scrivi
ColoreTesto 0
Dim ruota(10)
Dim numeri(5)
Dim numeri1(5)
Dim numeri2(5)
Dim amb(5)
Dim posta(2)
Dim poste(2)
Dim postee(5)
posta(1) = 1
posta(2) = 1
poste(2) = 1
postee(2) = 1
postee(3) = 1
r = CInt(InputBox("Quale Ruota Vuoi Controllare ?","Ruota",1))
tmp = CInt(InputBox("Quante Estrazioni Vuoi Controllare ?","ESTRAZIONI",50))
clp = CInt(InputBox("Per quanti colpi di gioco ?","COLPI",12))
co = 0
ini = EstrazioneFin - tmp
For n = ini To EstrazioneFin
Messaggio(n)
a = Fuori90(SommaEstratti(n,r))
co = co + 1
Scrivi String(100,"°") & " Caso n°" & co,1
ColoreTesto 1
Scrivi NomeRuota(r) & _
" SOMMA fuori 90 dei cinque estratti----> " & a,1
Scrivi DataEstrazione(n,1) & " [ " & SiglaRuota(r) & " - " & StringaEstratti(n,r) & " ] ",1
Scrivi
ColoreTesto 0
For x=1 To 90
amb(1)=Fuori90(x*7)
amb(2)=Fuori90(x*13)
amb(3)=91-Amb(2)
amb(4)=91-x
If x=a Then
Scrivi"Quadrato settenaria"
Scrivi Format2(amb(2))&"  "&Format2(amb(3))
Scrivi"  "& Format2(a)
Scrivi Format2(amb(1))&"  "&Format2(amb(4))
ruota(1) = r : ruota(2) = 11
numeri1(1) = amb(1)
numeri1(2) = amb(2)
ImpostaGiocata 1,numeri1,ruota,posta,clp,2
numeri1(1) = amb(1)
numeri1(2) = amb(3)
ImpostaGiocata 2,numeri1,ruota,poste,clp,3
numeri1(1) = amb(1)
numeri1(2) = amb(4)
ImpostaGiocata 3,numeri1,ruota,poste,clp,3
numeri1(1) = amb(2)
numeri1(2) = amb(3)
ImpostaGiocata 4,numeri1,ruota,poste,clp,3
numeri1(1) = amb(2)
numeri1(2) = amb(4)
ImpostaGiocata 5,numeri1,ruota,poste,clp,3
numeri1(1) = amb(3)
numeri1(2) = amb(4)
ImpostaGiocata 6,numeri1,ruota,poste,clp,3
numeri2(1) = amb(1)
numeri2(2) = amb(2)
numeri2(3) = amb(3)
numeri2(4) = amb(4)
ImpostaGiocata 7,numeri2,ruota,postee,clp,4
Gioca n
Scrivi
Scrivi "Casi Riscontrati n° " & CInt(co),1
'ScriviResoconto
ColoreTesto 2
Scrivi "============================================= ==== = TAVOLA SETTENARIA===================== ",1
Scrivi "Schirò Gioacchino ",1
End If
Next
Next
ScriviResoconto
End Sub

gamberorosso · 27 Dicembre 2012

Ecco shiro basta che dove c'e scritto aggiungi numero metti quello che vuoi tù............
numeri1(1) = amb(1)
numeri1(2) = amb(2)
numeri1(3) = 57'qui aggiungo il numero che vuoi
ImpostaGiocata 1,numeri1,ruota,posta,clp,2
numeri1(1) = amb(1)
numeri1(2) = amb(3)
ImpostaGiocata 2,numeri1,ruota,poste,clp,3
numeri1(1) = amb(1)
numeri1(2) = amb(4)
ImpostaGiocata 3,numeri1,ruota,poste,clp,3
numeri1(1) = amb(2)
numeri1(2) = amb(3)
ImpostaGiocata 4,numeri1,ruota,poste,clp,3
numeri1(1) = amb(2)
numeri1(2) = amb(4)
ImpostaGiocata 5,numeri1,ruota,poste,clp,3
numeri1(1) = amb(3)
numeri1(2) = amb(4)
ImpostaGiocata 6,numeri1,ruota,poste,clp,3
numeri2(1) = amb(1)
numeri2(2) = amb(2)
numeri2(3) = amb(3)
numeri2(4) = amb(4)
numeri2(3) = 57'qui aggiungi il numero che vuoi
ImpostaGiocata 7,numeri2,ruota,postee,clp,4
se vuoi aggiungere altri numeri devi scrivere:
numeri1(1) = amb(1)
numeri1(2) = amb(3)
numeri1(3) = 57
numeri1(4) = 8
ecc se vuoi fare delle giocate differenti devi fare :
ImpostaGiocata 1,numeri1,ruota,poste,clp,3 'dove numeri1 lo devi cambiare in numeri3 e poi imposti la giocata..........
---------------------------------------------------------------------------------------------------------------
copia questo
numeri1(1) = amb(1)
numeri1(2) = amb(2)
numeri1(3) = 57'qui aggiungo il numero che voglio
numeri1(4) = 8 'qui aggiungo il numero che voglio
ImpostaGiocata 1,numeri1,ruota,posta,clp,2
numeri1(1) = amb(1)
numeri1(2) = amb(3)
ImpostaGiocata 2,numeri1,ruota,poste,clp,3
numeri1(1) = amb(1)
numeri1(2) = amb(4)
ImpostaGiocata 3,numeri1,ruota,poste,clp,3
numeri1(1) = amb(2)
numeri1(2) = amb(3)
ImpostaGiocata 4,numeri1,ruota,poste,clp,3
numeri1(1) = amb(2)
numeri1(2) = amb(4)
ImpostaGiocata 5,numeri1,ruota,poste,clp,3
numeri1(1) = amb(3)
numeri1(2) = amb(4)
ImpostaGiocata 6,numeri1,ruota,poste,clp,3
numeri2(1) = amb(1)
numeri2(2) = amb(2)
numeri2(3) = amb(3)
numeri2(4) = amb(4)
numeri2(3) = 57'qui aggiungi il numero che voglio
numeri2(4) = 8 'qui aggiungo il numero che voglio
ImpostaGiocata 7,numeri2,ruota,postee,clp,4
Per averli nella prima giocata e basta devi cambiare questa parte di codice:
numeri1(1) = amb(1)
numeri1(2) = amb(2)
numeri1(3) = 57'qui aggiungo il numero che voglio
numeri1(4) = 8 'qui aggiungo il numero che voglio
ImpostaGiocata 1,numeri1,ruota,posta,clp,2
numeri3(1) = amb(1)'qui diventa numeri3
numeri3(2) = amb(3)'qui diventa numeri3
ImpostaGiocata 2,numeri3,ruota,poste,clp,3
numeri4(1) = amb(1)'qui diventa numeri4
numeri4(2) = amb(4)
ImpostaGiocata 3,numeri4,ruota,poste,clp,3
numeri1(1) = amb(2)
numeri1(2) = amb(3)
ImpostaGiocata 4,numeri1,ruota,poste,clp,3
numeri1(1) = amb(2)
numeri1(2) = amb(4)
ImpostaGiocata 5,numeri1,ruota,poste,clp,3
numeri1(1) = amb(3)
numeri1(2) = amb(4)
ImpostaGiocata 6,numeri1,ruota,poste,clp,3
numeri2(1) = amb(1)
numeri2(2) = amb(2)
numeri2(3) = amb(3)
numeri2(4) = amb(4)
numeri2(3) = 57'qui aggiungi il numero che voglio
numeri2(4) = 8 'qui aggiungo il numero che voglio
ImpostaGiocata 7,numeri2,ruota,postee,clp,4
poi aggiungere in inizio script queste due righe:
Dim ruota(10)
Dim numeri(5)
Dim numeri1(5)
Dim numeri2(5)
Dim numeri3(5)'questa
Dim numeri4(5)'questa
------------------------------------------------------------------------------------------------------
ok non sono molto pratico e sto imparando spero vada bene shiro ciao

gamberorosso · 27 Dicembre 2012

Estrazione generatrice del pronostico 08625 [149 - 13/12/2012]
G 0001
Numeri in gioco : 07.13.57.08 su BA TT per Estratto,Ambo
V N. [07.13.57.08 ] [BA] [.. .. 57 .. ..] C. 1 Estratto 08626 [150 - 15/12/2012]
V N. [07.13.57.08 ] [TT] [BA][.. .. 57 .. ..] C. 1 Estratto 08626 [150 - 15/12/2012]
V N. [07.13.57.08 ] [TT] [NA][.. 57 .. .. ..] C. 1 Estratto 08626 [150 - 15/12/2012]
V N. [07.13.57.08 ] [TT] [RO][.. .. .. .. 08] C. 1 Estratto 08626 [150 - 15/12/2012]
V N. [07.13.57.08 ] [TT] [TO][.. .. 07 .. ..] C. 1 Estratto 08626 [150 - 15/12/2012]
V N. [07.13.57.08 ] [BA] [.. .. .. .. 57] C. 2 Estratto 08627 [151 - 18/12/2012]
V N. [07.13.57.08 ] [TT] [BA][.. .. .. .. 57] C. 2 Estratto 08627 [151 - 18/12/2012]
V N. [07.13.57.08 ] [TT] [CA][.. .. .. .. 57] C. 2 Estratto 08627 [151 - 18/12/2012]
V N. [07.13.57.08 ] [TT] [MI][.. .. 57 .. ..] C. 2 Estratto 08627 [151 - 18/12/2012]
V N. [07.13.57.08 ] [TT] [VE][.. .. .. 57 ..] C. 2 Estratto 08627 [151 - 18/12/2012]
V N. [07.13.57.08 ] [BA] [.. .. .. 08 ..] C. 3 Estratto 08628 [152 - 20/12/2012]
V N. [07.13.57.08 ] [TT] [BA][.. .. .. 08 ..] C. 3 Estratto 08628 [152 - 20/12/2012]
V N. [07.13.57.08 ] [TT] [CA][.. .. 57 .. ..] C. 3 Estratto 08628 [152 - 20/12/2012]
V N. [07.13.57.08 ] [TT] [NA][.. .. .. 07 ..] C. 3 Estratto 08628 [152 - 20/12/2012]
N. [07.13.57.08 ] [BA] [.. .. .. .. ..] C. 4 08629 [153 - 22/12/2012]
V N. [07.13.57.08 ] [TT] [NA][.. .. .. 08 ..] C. 4 Estratto 08629 [153 - 22/12/2012]
V N. [07.13.57.08 ] [TT] [TO][.. .. 57 07 ..] C. 4 Ambo 08629 [153 - 22/12/2012]
V N. [07.13.57.08 ] [TT] [VE][.. .. 57 .. ..] C. 4 Estratto 08629 [153 - 22/12/2012]

gamberorosso · 27 Dicembre 2012

Sub Main()
ColoreTesto 2
Scrivi "============================================= ==== = TAVOLA SETTENARIA===================== ",1
Scrivi "Schirò Gioacchino ",1
ColoreTesto 1
Scrivi "calcolo dei numeri veri",1
Scrivi
ColoreTesto 0
Dim ruota(10)
Dim numeri(5)
Dim numeri1(5)
Dim numeri2(5)
Dim numeri3(5)
Dim numeri4(5)
Dim amb(5)
Dim posta(2)
Dim poste(2)
Dim postee(5)
posta(1) = 1
posta(2) = 1
poste(2) = 1
postee(2) = 1
postee(3) = 1
r = CInt(InputBox("Quale Ruota Vuoi Controllare ?","Ruota",1))
tmp = CInt(InputBox("Quante Estrazioni Vuoi Controllare ?","ESTRAZIONI",50))
clp = CInt(InputBox("Per quanti colpi di gioco ?","COLPI",12))
co = 0
ini = EstrazioneFin - tmp
For n = ini To EstrazioneFin
Messaggio

a = Fuori90(SommaEstratti(n,r))
n1 = a
co = co + 1
Scrivi String(100,"°") & " Caso n°" & co,1
ColoreTesto 1
Scrivi NomeRuota(r) & _
" SOMMA fuori 90 dei cinque estratti----> " & a,1
Scrivi DataEstrazione(n,1) & " [ " & SiglaRuota(r) & " - " & StringaEstratti(n,r) & " ] ",1
Scrivi
ColoreTesto 0
ruota(1) = r : ruota(2) = 11
If n1 = 1 Then
amb(1) = 7
amb(2) = 13
amb(3) = 78
amb(4) = 90
End If
If n1 = 2 Then
amb(1) = 14
amb(2) = 26
amb(3) = 65
amb(4) = 89
End If
If n1 = 3 Then
amb(1) = 21
amb(2) = 39
amb(3) = 52
amb(4) = 88
End If
If n1 = 4 Then
amb(1) = 28
amb(2) = 52
amb(3) = 39
amb(4) = 87
End If
If n1 = 5 Then
amb(1) = 35
amb(2) = 65
amb(3) = 26
amb(4) = 86
End If
If n1 = 6 Then
amb(1) = 42
amb(2) = 78
amb(3) = 13
amb(4) = 85
End If
If n1 = 7 Then
amb(1) = 49
amb(2) = 1
amb(3) = 90
amb(4) = 84
End If
If n1 = 8 Then
amb(1) = 56
amb(2) = 14
amb(3) = 77
amb(4) = 83
End If
If n1 = 9 Then
amb(1) = 63
amb(2) = 27
amb(3) = 64
amb(4) = 82
End If
If n1 = 10 Then
amb(1) = 70
amb(2) = 40
amb(3) = 51
amb(4) = 81
End If
If n1 = 11 Then
amb(1) = 77
amb(2) = 53
amb(3) = 38
amb(4) = 80
End If
If n1 = 12 Then
amb(1) = 84
amb(2) = 66
amb(3) = 25
amb(4) = 79
End If
If n1 = 13 Then
amb(1) = 1
amb(2) = 79
amb(3) = 12
amb(4) = 78
End If
If n1 = 14 Then
amb(1) = 8
amb(2) = 2
amb(3) = 89
amb(4) = 77
End If
If n1 = 15 Then
amb(1) = 15
amb(2) = 15
amb(3) = 76
amb(4) = 76
End If
If n1 = 16 Then
amb(1) = 22
amb(2) = 28
amb(3) = 63
amb(4) = 75
End If
If n1 = 17 Then
amb(1) = 29
amb(2) = 41
amb(3) = 50
amb(4) = 74
End If
If n1 = 18 Then
amb(1) = 36
amb(2) = 54
amb(3) = 37
amb(4) = 73
End If
If n1 = 19 Then
amb(1) = 43
amb(2) = 67
amb(3) = 24
amb(4) = 72
End If
If n1 = 20 Then
amb(1) = 50
amb(2) = 11
amb(3) = 11
amb(4) = 71
End If
If n1 = 21 Then
amb(1) = 57
amb(2) = 3
amb(3) = 88
amb(4) = 70
End If
If n1 = 22 Then
amb(1) = 64
amb(2) = 16
amb(3) = 75
amb(4) = 69
End If
If n1 = 23 Then
amb(1) = 71
amb(2) = 29
amb(3) = 62
amb(4) = 68
End If
If n1 = 24 Then
amb(1) = 78
amb(2) = 42
amb(3) = 49
amb(4) = 67
End If
If n1 = 25 Then
amb(1) = 85
amb(2) = 55
amb(3) = 36
amb(4) = 66
End If
If n1 = 26 Then
amb(1) = 2
amb(2) = 68
amb(3) = 23
amb(4) = 65
End If
If n1 = 27 Then
amb(1) = 9
amb(2) = 81
amb(3) = 10
amb(4) = 64
End If
If n1 = 28 Then
amb(1) = 16
amb(2) = 4
amb(3) = 87
amb(4) = 63
End If
If n1 = 29 Then
amb(1) = 23
amb(2) = 17
amb(3) = 74
amb(4) = 62
End If
If n1 = 30 Then
amb(1) = 30
amb(2) = 30
amb(3) = 61
amb(4) = 61
End If
If n1 = 31 Then
amb(1) = 37
amb(2) = 43
amb(3) = 48
amb(4) = 60
End If
If n1 = 32 Then
amb(1) = 44
amb(2) = 56
amb(3) = 35
amb(4) = 59
End If
If n1 = 33 Then
amb(1) = 51
amb(2) = 69
amb(3) = 22
amb(4) = 58
End If
If n1 = 34 Then
amb(1) = 58
amb(2) = 82
amb(3) = 9
amb(4) = 57
End If
If n1 = 35 Then
amb(1) = 65
amb(2) = 5
amb(3) = 86
amb(4) = 56
End If
If n1 = 36 Then
amb(1) = 72
amb(2) = 18
amb(3) = 73
amb(4) = 55
End If
If n1 = 37 Then
amb(1) = 79
amb(2) = 31
amb(3) = 60
amb(4) = 54
End If
If n1 = 38 Then
amb(1) = 86
amb(2) = 44
amb(3) = 47
amb(4) = 53
End If
If n1 = 39 Then
amb(1) = 3
amb(2) = 57
amb(3) = 34
amb(4) = 52
End If
If n1 = 40 Then
amb(1) = 10
amb(2) = 70
amb(3) = 21
amb(4) = 51
End If
If n1 = 41 Then
amb(1) = 17
amb(2) = 83
amb(3) = 8
amb(4) = 50
End If
If n1 = 42 Then
amb(1) = 24
amb(2) = 6
amb(3) = 85
amb(4) = 49
End If
If n1 = 43 Then
amb(1) = 31
amb(2) = 19
amb(3) = 72
amb(4) = 48
End If
If n1 = 44 Then
amb(1) = 38
amb(2) = 32
amb(3) = 59
amb(4) = 47
End If
If n1 = 45 Then
amb(1) = 45
amb(2) = 45
amb(3) = 46
amb(4) = 46
End If
If n1 = 46 Then
amb(1) = 52
amb(2) = 58
amb(3) = 33
amb(4) = 45
End If
If n1 = 47 Then
amb(1) = 59
amb(2) = 71
amb(3) = 20
amb(4) = 44
End If
If n1 = 48 Then
amb(1) = 66
amb(2) = 84
amb(3) = 7
amb(4) = 43
End If
If n1 = 49 Then
amb(1) = 73
amb(2) = 7
amb(3) = 84
amb(4) = 42
End If
If n1 = 50 Then
amb(1) = 80
amb(2) = 20
amb(3) = 71
amb(4) = 41
End If
If n1 = 51 Then
amb(1) = 87
amb(2) = 33
amb(3) = 58
amb(4) = 40
End If
If n1 = 52 Then
amb(1) = 4
amb(2) = 46
amb(3) = 45
amb(4) = 39
End If
If n1 = 53 Then
amb(1) = 11
amb(2) = 59
amb(3) = 32
amb(4) = 38
End If
If n1 = 54 Then
amb(1) = 18
amb(2) = 72
amb(3) = 19
amb(4) = 37
End If
If n1 = 55 Then
amb(1) = 25
amb(2) = 85
amb(3) = 6
amb(4) = 36
End If
If n1 = 56 Then
amb(1) = 32
amb(2) = 8
amb(3) = 83
amb(4) = 35
End If
If n1 = 57 Then
amb(1) = 39
amb(2) = 21
amb(3) = 70
amb(4) = 34
End If
If n1 = 58 Then
amb(1) = 46
amb(2) = 34
amb(3) = 57
amb(4) = 33
End If
If n1 = 59 Then
amb(1) = 53
amb(2) = 47
amb(3) = 44
amb(4) = 32
End If
If n1 = 60 Then
amb(1) = 60
amb(2) = 31
End If
If n1 = 61 Then
amb(1) = 67
amb(2) = 73
amb(3) = 18
amb(4) = 30
End If
If n1 = 62 Then
amb(1) = 74
amb(2) = 86
amb(3) = 5
amb(4) = 29
End If
If n1 = 63 Then
amb(1) = 81
amb(2) = 9
amb(3) = 82
amb(4) = 28
End If
If n1 = 64 Then
amb(1) = 88
amb(2) = 22
amb(3) = 69
amb(4) = 27
End If
If n1 = 65 Then
amb(1) = 5
amb(2) = 35
amb(3) = 56
amb(4) = 26
End If
If n1 = 66 Then
amb(1) = 12
amb(2) = 48
amb(3) = 43
amb(4) = 25
End If
If n1 = 67 Then
amb(1) = 19
amb(2) = 61
amb(3) = 30
amb(4) = 24
End If
If n1 = 68 Then
amb(1) = 26
amb(2) = 74
amb(3) = 17
amb(4) = 23
End If
If n1 = 69 Then
amb(1) = 33
amb(2) = 87
amb(3) = 4
amb(4) = 22
End If
If n1 = 70 Then
amb(1) = 40
amb(2) = 10
amb(3) = 81
amb(4) = 21
End If
If n1 = 71 Then
amb(1) = 47
amb(2) = 23
amb(3) = 68
amb(4) = 20
End If
If n1 = 72 Then
amb(1) = 54
amb(2) = 36
amb(3) = 55
amb(4) = 19
End If
If n1 = 73 Then
amb(1) = 61
amb(2) = 49
amb(3) = 42
amb(4) = 18
End If
If n1 = 74 Then
amb(1) = 68
amb(2) = 62
amb(3) = 29
amb(4) = 17
End If
If n1 = 75 Then
amb(1) = 75
amb(2) = 75
amb(3) = 16
amb(4) = 16
End If
If n1 = 76 Then
amb(1) = 82
amb(2) = 88
amb(3) = 3
amb(4) = 15
End If
If n1 = 77 Then
amb(1) = 89
amb(2) = 11
amb(3) = 80
amb(4) = 14
End If
If n1 = 78 Then
amb(1) = 6
amb(2) = 24
amb(3) = 67
amb(4) = 13
End If
If n1 = 79 Then
amb(1) = 13
amb(2) = 37
amb(3) = 54
amb(4) = 12
End If
If n1 = 80 Then
amb(1) = 20
amb(2) = 50
amb(3) = 41
amb(4) = 11
End If
If n1 = 81 Then
amb(1) = 27
amb(2) = 63
amb(3) = 28
amb(4) = 10
End If
If n1 = 82 Then
amb(1) = 34
amb(2) = 76
amb(3) = 15
amb(4) = 9
End If
If n1 = 83 Then
amb(1) = 41
amb(2) = 89
amb(3) = 2
amb(4) = 8
End If
If n1 = 84 Then
amb(1) = 48
amb(2) = 12
amb(3) = 79
amb(4) = 7
End If
If n1 = 85 Then
amb(1) = 55
amb(2) = 25
amb(3) = 66
amb(4) = 6
End If
If n1 = 86 Then
amb(1) = 62
amb(2) = 38
amb(3) = 53
amb(4) = 5
End If
If n1 = 87 Then
amb(1) = 69
amb(2) = 51
amb(3) = 40
amb(4) = 4
End If
If n1 = 88 Then
amb(1) = 76
amb(2) = 64
amb(3) = 27
amb(4) = 3
End If
If n1 = 89 Then
amb(1) = 83
amb(2) = 77
amb(3) = 14
amb(4) = 2
End If
If n1 = 90 Then
amb(1) = 90
amb(2) = 90
amb(3) = 1
amb(4) = 1
End If
numeri1(1) = amb(1)
numeri1(2) = amb(2)
numeri1(3) = 57'qui aggiungo il numero che voglio
numeri1(4) = 8 'qui aggiungo il numero che voglio
ImpostaGiocata 1,numeri1,ruota,posta,clp,2
numeri3(1) = amb(1)
numeri3(2) = amb(3)
ImpostaGiocata 2,numeri3,ruota,poste,clp,3
numeri4(1) = amb(1)
numeri4(2) = amb(4)
ImpostaGiocata 3,numeri4,ruota,poste,clp,3
numeri1(1) = amb(2)
numeri1(2) = amb(3)
ImpostaGiocata 4,numeri1,ruota,poste,clp,3
numeri1(1) = amb(2)
numeri1(2) = amb(4)
ImpostaGiocata 5,numeri1,ruota,poste,clp,3
numeri1(1) = amb(3)
numeri1(2) = amb(4)
ImpostaGiocata 6,numeri1,ruota,poste,clp,3
numeri2(1) = amb(1)
numeri2(2) = amb(2)
numeri2(3) = amb(3)
numeri2(4) = amb(4)
numeri2(3) = 57'qui aggiungi il numero che voglio
numeri2(4) = 8 'qui aggiungo il numero che voglio
ImpostaGiocata 7,numeri2,ruota,postee,clp,4
Gioca n
Next
Scrivi
Scrivi "Casi Riscontrati n° " & CInt(co),1
ScriviResoconto
ColoreTesto 2
Scrivi "============================================= ==== = TAVOLA SETTENARIA===================== ",1
Scrivi "Schirò Gioacchino ",1

End Sub

mastrogino · 27 Dicembre 2012

grazie , gamberosso lo provo tra POCO apena finisco i biscotti

sempre gentile e sempre in debito con te

mastrogino · 27 Dicembre 2012

daniel ha scritto:

Tralasciando le tue sconcertanti affermazioni riguardo l'altro script che ti ho fatto, e che hai fatto "correggere", il numero che devi aggiungere da dove lo tiri fuori?
Oppure è sempre lo stesso?
Poi ve l'ho sempre detto che per arrivare a 91 inutile fare 7+7+7+7 ecc ecc basta fare 13 X 7 di conseguenza 2/3 del tuo script non serve assolutamente a niente, senza contarer qualche errore in qua e in la!
Ciao

Codice:

Sub Main()
ColoreTesto 2
Scrivi "============================================= ==== = TAVOLA SETTENARIA===================== ",1
Scrivi "Schirò Gioacchino ",1
ColoreTesto 1
Scrivi "calcolo dei numeri veri",1
Scrivi
ColoreTesto 0
Dim ruota(10)
Dim numeri(5)
Dim numeri1(5)
Dim numeri2(5)
Dim amb(5)
Dim posta(2)
Dim poste(2)
Dim postee(5)
posta(1) = 1
posta(2) = 1
poste(2) = 1
postee(2) = 1
postee(3) = 1
r = CInt(InputBox("Quale Ruota Vuoi Controllare ?","Ruota",1))
tmp = CInt(InputBox("Quante Estrazioni Vuoi Controllare ?","ESTRAZIONI",50))
clp = CInt(InputBox("Per quanti colpi di gioco ?","COLPI",12))
co = 0
ini = EstrazioneFin - tmp
For n = ini To EstrazioneFin
Messaggio(n)
a = Fuori90(SommaEstratti(n,r))
co = co + 1
Scrivi String(100,"°") & " Caso n°" & co,1
ColoreTesto 1
Scrivi NomeRuota(r) & _
" SOMMA fuori 90 dei cinque estratti----> " & a,1
Scrivi DataEstrazione(n,1) & " [ " & SiglaRuota(r) & " - " & StringaEstratti(n,r) & " ] ",1
Scrivi
ColoreTesto 0
For x=1 To 90
amb(1)=Fuori90(x*7)
amb(2)=Fuori90(x*13)
amb(3)=91-Amb(2)
amb(4)=91-x
If x=a Then
Scrivi"Quadrato settenaria"
Scrivi Format2(amb(2))&"  "&Format2(amb(3))
Scrivi"  "& Format2(a)
Scrivi Format2(amb(1))&"  "&Format2(amb(4))
ruota(1) = r : ruota(2) = 11
numeri1(1) = amb(1)
numeri1(2) = amb(2)
ImpostaGiocata 1,numeri1,ruota,posta,clp,2
numeri1(1) = amb(1)
numeri1(2) = amb(3)
ImpostaGiocata 2,numeri1,ruota,poste,clp,3
numeri1(1) = amb(1)
numeri1(2) = amb(4)
ImpostaGiocata 3,numeri1,ruota,poste,clp,3
numeri1(1) = amb(2)
numeri1(2) = amb(3)
ImpostaGiocata 4,numeri1,ruota,poste,clp,3
numeri1(1) = amb(2)
numeri1(2) = amb(4)
ImpostaGiocata 5,numeri1,ruota,poste,clp,3
numeri1(1) = amb(3)
numeri1(2) = amb(4)
ImpostaGiocata 6,numeri1,ruota,poste,clp,3
numeri2(1) = amb(1)
numeri2(2) = amb(2)
numeri2(3) = amb(3)
numeri2(4) = amb(4)
ImpostaGiocata 7,numeri2,ruota,postee,clp,4
Gioca n
Scrivi
Scrivi "Casi Riscontrati n° " & CInt(co),1
'ScriviResoconto
ColoreTesto 2
Scrivi "============================================= ==== = TAVOLA SETTENARIA===================== ",1
Scrivi "Schirò Gioacchino ",1
End If
Next
Next
ScriviResoconto
End Sub

Ciao daniel e BUON ANNO anche a te e famiglia ......................

COLPO DI SCENA!!!!!!!!!!! E CHI TI DICE CHE USO IL 7???? E CHI TI DICE CHE VOGLIO ARRIVARE AL 91?????
SI CHIAMA SETTTENARIA MA INVECE E ........................................
TOP SEGRET

http://forum.lottoced.com/f8/il-mio-ultimo-metodo-dalla-settenaria-che-ve-ne-pare-100940/

TizianoCiclomet · 27 Dicembre 2012

Ciao IMMENSO Schiro pero non te li magna tutti
Buon 2013 a te e Famiglia

Roby · 27 Dicembre 2012

schirò gioacchino ha scritto:
Ciao daniel e BUON ANNO anche a te e famiglia ......................

COLPO DI SCENA!!!!!!!!!!! E CHI TI DICE CHE USO IL 7???? E CHI TI DICE CHE VOGLIO ARRIVARE AL 91?????
SI CHIAMA SETTTENARIA MA INVECE E ........................................
TOP SEGRET

http://forum.lottoced.com/f8/il-mio-ultimo-metodo-dalla-settenaria-che-ve-ne-pare-100940/

Gioacchino era semplicemente un modo di dire ...... non serve fare paginate di codici end if ecc ecc. ..... i risultati dei due script sono identici, semplicemente .... ho semplificato un po il tutto.
Ci sono degli errori nella compilazione dei quadrati della tua settenaria nel tuo script, è normale perchè vanno trascritti tutti, viceversa non si trascrive niente e il risultato è privo di errori.
Ciao ciao

mastrogino · 27 Dicembre 2012

TizianoCiclomet ha scritto:
Ciao IMMENSO Schiro pero non te li magna tutti
Buon 2013 a te e Famiglia

RICAMBIO con vero cuore e stima a te e famiglia
sono stra pieno ........questa e la seconda ondata dei 7 chili di faSTA frolla

a differenza che questi sono ripieni di fico cioccolata miele noci noccioline cedro etccccc
si chiamano i BUCCELATI SICILIANI e chi li conosce sono una vera leccornia
ciaoooo

mastrogino · 27 Dicembre 2012

°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°° Caso n°49
Bari SOMMA fuori 90 dei cinque estratti----> 64
giovedì, dic 20 2012 [ BA - 43.68.36.08.89 ]

Estrazione generatrice del pronostico 08628 [152 - 20/12/2012]
G 0001
Numeri in gioco : 88.22.08 su BA TT per Estratto,Ambo
V N. [88.22.08 ] [BA] [.. .. 88 .. ..] C. 1 Estratto 08629 [153 - 22/12/2012]
V N. [88.22.08 ] [TT] [BA][.. .. 88 .. ..] C. 1 Estratto 08629 [153 - 22/12/2012]
V N. [88.22.08 ] [TT] [NA][.. .. 22 08 ..] C. 1 Ambo 08629 [153 - 22/12/2012]
Interrotta per esito verificato

fino a qua ci siamo ...............
ma per inserire un numero a comando solo x la cella
cioeeee

1...78
..1
7...90

per questa cella di somma 01 inserire il numero 08

doverebe uscre cosi........

numeri in gioco :07.01.08.

gamberorosso · 27 Dicembre 2012

shiro per ogni cella vuoi mettere i tuoi numeri? senza che questi ti si aggiungano alla giocata successiva?
numeri in gioco :07.01.08. + 88-22

Estrazione generatrice del pronostico 08628 [152 - 20/12/2012]G 0001Numeri in gioco : 88.22 su BA TT per Estratto,AmboV N. [88.22 ] [BA] [.. 01 88 07 08] C. 1 Estratto 08629 [153 - 22/12/2012]V N. [88.22 ] [TT] [BA][.. .. 88 .. ..] C. 1 Estratto 08629 [153 - 22/12/2012]V N. [88.22 ] [TT] [NA][.. .. 22 .. ..] C. 1 Estratto 08629 [153 - 22/12/2012] N. [88.22 ] [BA] [.. .. .. .. ..] C. 2 08630 [154 - 24/12/2012]V N. [88.22 ] [TT] [PA][88 .. .. .. ..] C. 2 Estratto 08630 [154 - 24/12/2012]V N. [88.22 ] [TT] [TO][.. .. .. 22 ..] C. 2 Estratto 08630 [154 - 24/12/2012]In corso per altre 10 estrazioniG 0002Numeri in gioco : 88.69 su BA TT per Ambo N. [88.69 ] [BA] [.. .. 88 .. ..] C. 1 Estratto 08629 [153 - 22/12/2012] N. [88.69 ] [TT] [BA][.. .. 88 .. ..] C. 1 Estratto 08629 [153 - 22/12/2012] N. [88.69 ] [BA] [.. .. .. .. ..] C. 2 08630 [154 - 24/12/2012] N. [88.69 ] [TT] [PA][88 .. .. .. ..] C. 2 Estratto 08630 [154 - 24/12/2012]In corso per altre 10 estrazioniG 0003Numeri in gioco : 88.27 su BA TT per Ambo N. [88.27 ] [BA] [.. .. 88 .. ..] C. 1 Estratto 08629 [153 - 22/12/2012] N. [88.27 ] [TT] [BA][.. .. 88 .. ..] C. 1 Estratto 08629 [153 - 22/12/2012] N. [88.27 ] [BA] [.. 27 .. .. ..] C. 2 Estratto 08630 [154 - 24/12/2012] N. [88.27 ] [TT] [BA][.. 27 .. .. ..] C. 2 Estratto 08630 [154 - 24/12/2012]

mastrogino · 27 Dicembre 2012

gamberorosso ha scritto:
shiro per ogni cella vuoi mettere i tuoi numeri? senza che questi ti si aggiungano alla giocata successiva?
numeri in gioco :07.01.08. + 88-22

Estrazione generatrice del pronostico 08628 [152 - 20/12/2012]G 0001Numeri in gioco : 88.22 su BA TT per Estratto,AmboV N. [88.22 ] [BA] [.. 01 88 07 08] C. 1 Estratto 08629 [153 - 22/12/2012]V N. [88.22 ] [TT] [BA][.. .. 88 .. ..] C. 1 Estratto 08629 [153 - 22/12/2012]V N. [88.22 ] [TT] [NA][.. .. 22 .. ..] C. 1 Estratto 08629 [153 - 22/12/2012] N. [88.22 ] [BA] [.. .. .. .. ..] C. 2 08630 [154 - 24/12/2012]V N. [88.22 ] [TT] [PA][88 .. .. .. ..] C. 2 Estratto 08630 [154 - 24/12/2012]V N. [88.22 ] [TT] [TO][.. .. .. 22 ..] C. 2 Estratto 08630 [154 - 24/12/2012]In corso per altre 10 estrazioniG 0002Numeri in gioco : 88.69 su BA TT per Ambo N. [88.69 ] [BA] [.. .. 88 .. ..] C. 1 Estratto 08629 [153 - 22/12/2012] N. [88.69 ] [TT] [BA][.. .. 88 .. ..] C. 1 Estratto 08629 [153 - 22/12/2012] N. [88.69 ] [BA] [.. .. .. .. ..] C. 2 08630 [154 - 24/12/2012] N. [88.69 ] [TT] [PA][88 .. .. .. ..] C. 2 Estratto 08630 [154 - 24/12/2012]In corso per altre 10 estrazioniG 0003Numeri in gioco : 88.27 su BA TT per Ambo N. [88.27 ] [BA] [.. .. 88 .. ..] C. 1 Estratto 08629 [153 - 22/12/2012] N. [88.27 ] [TT] [BA][.. .. 88 .. ..] C. 1 Estratto 08629 [153 - 22/12/2012] N. [88.27 ] [BA] [.. 27 .. .. ..] C. 2 Estratto 08630 [154 - 24/12/2012] N. [88.27 ] [TT] [BA][.. 27 .. .. ..] C. 2 Estratto 08630 [154 - 24/12/2012]

si esatto il mio intento e quello di inserire un numero x nuovo x goni cella
ovviamnte cambiando la somma dei 5 estratti si cambi il numero

If n1 = 86 Then
amb(1) = 62
amb(2) = 38
amb(3) = 53
amb(4) = 5
End If

86 e la somma
62.39.53.5. e la cella
ma in base alla somma 86. esce il numero che inserisco
e lo calcola insiema agli altri 4

mastrogino · 27 Dicembre 2012

schirò gioacchino ha scritto:
°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°° Caso n°49
Bari SOMMA fuori 90 dei cinque estratti----> 64
giovedì, dic 20 2012 [ BA - 43.68.36.08.89 ]

Estrazione generatrice del pronostico 08628 [152 - 20/12/2012]
G 0001
Numeri in gioco : 88.22.08 su BA TT per Estratto,Ambo
V N. [88.22.08 ] [BA] [.. .. 88 .. ..] C. 1 Estratto 08629 [153 - 22/12/2012]
V N. [88.22.08 ] [TT] [BA][.. .. 88 .. ..] C. 1 Estratto 08629 [153 - 22/12/2012]
V N. [88.22.08 ] [TT] [NA][.. .. 22 08 ..] C. 1 Ambo 08629 [153 - 22/12/2012]
Interrotta per esito verificato

fino a qua ci siamo ...............
ma per inserire un numero a comando solo x la cella
cioeeee

1...78
..1
7...90

per questa cella di somma 01 inserire il numero 08

doverebe uscre cosi........

numeri in gioco :07.01.08.

cosi solo che a differenza lo deve fare per la cella di appartenenza
in questo casa l'1 poiche se è il 02 deve uscire un'altro numero

esempio cagliari somma dei 5 fuori 90 51 il numero ch egli voglio inserire e 38

If n1 = 51 Then
amb(1) = 87
amb(2) = 33
amb(3) = 58
amb(4) = 40
End If

finale deve essere

Numeri in gioco : 87.33.38. su CA TT per Estratto,Ambo

gamberorosso · 27 Dicembre 2012

G 0007Numeri in gioco : 20.50.41.11.38 su BA TT per Ambo,Terno N. [20.50.41.11.38 ] [BA] [41 .. .. .. ..] C. 1 Estratto 08581 [105 - 01/09/2012] N. [20.50.41.11.38 ] [TT] [BA][41 .. .. .. ..] C. 1 Estratto 08581 [105 - 01/09/2012] N. [20.50.41.11.38 ] [BA] [.. .. .. .. ..] C. 2 08582 [106 - 04/09/2012] N. [20.50.41.11.38 ] [TT] [FI][.. .. 38 .. ..] C. 2 Estratto 08582 [106 - 04/09/2012] N. [20.50.41.11.38 ] [BA] [.. .. .. .. ..] C. 3 08583 [107 - 06/09/2012]V N. [20.50.41.11.38 ] [TT] [FI][.. 41 .. 50 ..] C. 3 Ambo 08583 [107 - 06/09/2012]cosi può andare aggiunto il 38 ma sono numeri fissi perchè se ogni estrazione cambiano non lo so fare

mastrogino · 27 Dicembre 2012

If n1 = 1 Then
Scrivi " Ambata 82",01 vedi fino a qui ci siamo ho inserito il numero che volevo 82........ma come faccio a inserirlo nei 4???
Scrivi
amb(1) = 7
amb(2) = 13
amb(3) = 79
amb(4) = 90
End If

esito

Bari SOMMA fuori 90 dei cinque estratti----> 1
giovedì, dic 13 2012 [ BA - 08.66.47.62.88 ]

Ambata 82............................vedi e qua

gamberorosso · 27 Dicembre 2012

cambi questi in pagina iniziale:

Dim numeri1(10)
Dim numeri2(10)
Dim amb(10)
------------------------------------------------------------
per mettere un numero in piu devi aggiungere quanto segue ad ogni somma trovata i numeri che vuoi che vengano visti nel pronostico:
If n1 = 1 Then
amb(1) = 7
amb(2) = 13
amb(3) = 78
amb(4) = 90
amb(5) = 0
amb(6) = 0
questo e il pronostico 1 devi aggiugere a tutti i 90 pronostici le due righe in fondo queste.... al posto di 0 metti il tuo numeri:
amb(5) = 0
amb(6) = 0
--------------------------------------------------------------
qui cambi ed aggiungi le giocate su i 2 numeri:
End If
numeri1(1) = amb(1)
numeri1(2) = amb(2)
numeri1(3) = amb(5)'questa e la giocata che e in più dove c'e lo 0 non cambiare il (5) ne il (6) senno rigiochi gli altri numeri
numeri1(4) = amb(6)'questa e la giocata che e in più dove c'e lo 0
---------------------------------------------------------------------------------------------------------------------------
questa e la giocata su i 4 numeri + i tuoi:
ImpostaGiocata 6,numeri1,ruota,poste,clp,3
numeri2(1) = amb(1)
numeri2(2) = amb(2)
numeri2(3) = amb(3)
numeri2(4) = amb(4)
numeri2(5) = amb(5)
numeri2(6) = amb(6)
-----------------------------------------------------------------------------------------------
spero di essere stato chiaro perche come detto non sono molto pratico. ciao

Aiuto!!!!

Advanced Premium Member

Advanced Premium Member

Senior Member

Advanced Premium Member

Roby

Guest

Senior Member

Senior Member

Senior Member

Advanced Premium Member

Advanced Premium Member

Advanced Member >PLATINUM PLUS<

Roby

Guest

Advanced Premium Member

Advanced Premium Member

Senior Member

Advanced Premium Member

Advanced Premium Member

Senior Member

Advanced Premium Member

Senior Member