cerco script metodo sommativo

[Alberto Anderlini]

!a prima estrazione mese

1° milano+8 = A
2° milano+1=B
3° milano+13=c

secoda terzina
1° milano+8 = A
2° milano+1=B
vertibile della 1a terzina elemento C

a e b elementi ambata e ambo c elemento per 1a terzina
a e b elementi ambata e ambo vertibile elemeno c della 1a terzina
A e B ambate
1a terzina
2a terzina
giocare su mi le ambate e su tt gli ambi e terni

gazie

 

[gabby]

quale estrz mensile???????

 

[gabby]

e' un fallimento ( 1 del mese mi 1 t + 4 ambi) 9 del mese mi 1 t + 6 ambi in quartina

 

[Alberto Anderlini]

e' un fallimento ( 1 del mese mi 1 t + 4 ambi) 9 del mese mi 1 t + 6 ambi in quartina

prima mese

 

[Alien.]

è un metodo di Salvozac?

 

[gabby]

non credo

 

[Alberto Anderlini]

no è un mio metodo

 

[Alien.]

è non male.

 

[Alien.]

e' un fallimento ( 1 del mese mi 1 t + 4 ambi) 9 del mese mi 1 t + 6 ambi in quartina

spiegati meglio ,grazie.

 

[vengio]

Ciao Alberto, visto che non si presenta nessuno ne ho preparato uno io.

Sub Main()
Dim Ambate(5),Terno(3),Terni(3),Quartina(4),Ruotadigioco(2),Ruotedigioco(2),Posta(1),Poste(4)
Ruotadigioco(1) = 5
Ruotedigioco(1) = 11
Posta(1) = 1
Poste(2) = 6
Poste(3) = 3
'Poste(4) = 1
For Es = EstrazioneFin - 100 To EstrazioneFin
If IndiceMensile(es) = 1 Then 'Ultima del Mese
K = K + 1 : Scrivi String(105,"=") & " " & K,1
Ambate(1) = Fuori90(Estratto(Es,5,1) + 8)
Ambate(2) = Fuori90(Estratto(Es,5,2) + 1)
Terno(1) = Fuori90(Estratto(Es,5,1) + 8)
Terno(2) = Fuori90(Estratto(Es,5,2) + 1)
Terno(3) = Fuori90(Estratto(Es,5,3) + 13)
Terni(1) = Fuori90(Estratto(Es,5,1) + 8)
Terni(2) = Fuori90(Estratto(Es,5,2) + 1)
Terni(3) = Vert(Fuori90(Estratto(Es,5,3) + 13))
Quartina(1) = Fuori90(Estratto(Es,5,1) + 8)
Quartina(2) = Fuori90(Estratto(Es,5,2) + 1)
Quartina(3) = Fuori90(Estratto(Es,5,3) + 13)
Quartina(4) = Vert(Fuori90(Estratto(Es,5,3) + 13))
ImpostaGiocata 1,Ambate,Ruotadigioco,Posta,12,4
ImpostaGiocata 2,Terno,Ruotedigioco,Poste,12,4
ImpostaGiocata 3,Terni,Ruotedigioco,Poste,12,4
'ImpostaGiocata 4,Quartina,Ruotedigioco,Poste,12,4
Gioca Es,1
End If
Next
ScriviResoconto
End Sub

Ho predisposto anche la giocata in quartina, basta togliere gli apici.

 

[gabby]

ottimo script grazie (le migliori ruote sono 2,3,6,10

 

[Alberto Anderlini]

GRAZIE VENGIO.

COME FARE PER UTILIZZARE LO SCRIPT CON EXCEL E NON SPAZIOMETRIA?
oppure avere sul video a sn e dx le estrazioni al centro i 90 numeri quando io digito un numro al centro sull'estrazione di destra il numero cercato cambia colore. è difficile farlo?

 

[vengio]

GRAZIE VENGIO.

COME FARE PER UTILIZZARE LO SCRIPT CON EXCEL E NON SPAZIOMETRIA?
oppure avere sul video a sn e dx le estrazioni al centro i 90 numeri quando io digito un numro al centro sull'estrazione di destra il numero cercato cambia colore. è difficile farlo?

Lo script non è compatibile con excel, ma simile a quello che tu chiedi c'è il tabellone di spaziometria. Hai provato?

 

[Alberto Anderlini]

Lo script non è compatibile con excel, ma simile a quello che tu chiedi c'è il tabellone di spaziometria. Hai provato?

no dove lo trovo in spaziometria?

 

[vengio]

Sulla barra: Spaziometria-Elenco estrazioni poi clic su evidenzia numeri (pulsante in cui vedi 1 2 3.


Spero si capisca. Saluti.

 

[Alberto Anderlini]

grazie buon fine settimana

 

[Alberto Anderlini]

BUON GIORNO VENGIO
è possibile interrompere all'uscita del primo ambo

 

[vengio]

Intendi lo script?

 

[vengio]

Sub Main()
Dim Ambate(5),Terno(3),Terni(3),Quartina(4),Ruotadigioco(2),Ruotedigioco(2),Posta(1),Poste(4)
Ruotadigioco(1) = 5
Ruotedigioco(1) = 11
Posta(1) = 1
Poste(2) = 6
Poste(3) = 3
'Poste(4) = 1
For Es = EstrazioneFin - 100 To EstrazioneFin
If IndiceMensile(es) = 1 Then 'Ultima del Mese
K = K + 1 : Scrivi String(105,"=") & " " & K,1
Ambate(1) = Fuori90(Estratto(Es,5,1) + 8)
Ambate(2) = Fuori90(Estratto(Es,5,2) + 1)
Terno(1) = Fuori90(Estratto(Es,5,1) + 8)
Terno(2) = Fuori90(Estratto(Es,5,2) + 1)
Terno(3) = Fuori90(Estratto(Es,5,3) + 13)
Terni(1) = Fuori90(Estratto(Es,5,1) + 8)
Terni(2) = Fuori90(Estratto(Es,5,2) + 1)
Terni(3) = Vert(Fuori90(Estratto(Es,5,3) + 13))
Quartina(1) = Fuori90(Estratto(Es,5,1) + 8)
Quartina(2) = Fuori90(Estratto(Es,5,2) + 1)
Quartina(3) = Fuori90(Estratto(Es,5,3) + 13)
Quartina(4) = Vert(Fuori90(Estratto(Es,5,3) + 13))
ImpostaGiocata 1,Ambate,Ruotadigioco,Posta,12
ImpostaGiocata 2,Terno,Ruotedigioco,Poste,12,2,,1
ImpostaGiocata 3,Terni,Ruotedigioco,Poste,12,2,,1
'ImpostaGiocata 4,Quartina,Ruotedigioco,Poste,12,2
Gioca Es,1
End If
Next
ScriviResoconto
End Sub

Se intendevi lo script ecco. Ciao.

 

[Alberto Anderlini]

Sub Main() Dim Ambate(5),Terno(3),Terni(3),Quartina(4),Ruotadigioco(2),Ruotedigioco(2),Posta(1),Poste(4) Ruotadigioco(1) = 5 Ruotedigioco(1) = 11 Posta(1) = 1 Poste(2) = 6 Poste(3) = 3 'Poste(4) = 1 For Es = EstrazioneFin - 100 To EstrazioneFin If IndiceMensile(es) = 1 Then 'Ultima del Mese K = K + 1 : Scrivi String(105,"=") & " " & K,1 Ambate(1) = Fuori90(Estratto(Es,5,1) + 8) Ambate(2) = Fuori90(Estratto(Es,5,2) + 1) Terno(1) = Fuori90(Estratto(Es,5,1) + 8) Terno(2) = Fuori90(Estratto(Es,5,2) + 1) Terno(3) = Fuori90(Estratto(Es,5,3) + 13) Terni(1) = Fuori90(Estratto(Es,5,1) + 8) Terni(2) = Fuori90(Estratto(Es,5,2) + 1) Terni(3) = Vert(Fuori90(Estratto(Es,5,3) + 13)) Quartina(1) = Fuori90(Estratto(Es,5,1) + 8) Quartina(2) = Fuori90(Estratto(Es,5,2) + 1) Quartina(3) = Fuori90(Estratto(Es,5,3) + 13) Quartina(4) = Vert(Fuori90(Estratto(Es,5,3) + 13)) ImpostaGiocata 1,Ambate,Ruotadigioco,Posta,12 ImpostaGiocata 2,Terno,Ruotedigioco,Poste,12,2,,1 ImpostaGiocata 3,Terni,Ruotedigioco,Poste,12,2,,1 'ImpostaGiocata 4,Quartina,Ruotedigioco,Poste,12,2 Gioca Es,1 End If Next ScriviResoconto End Sub

ok grazie buon carnevale