SI AVVICINA PASQUA

[mastrogino]

DOPO IL REGALO DI NATALE VI ASPETTA QUELLO DI PASQUA CHE POSTERO' A BREVE QUI
PER CHI LO DESIDERA

 

[mastrogino]

QUESTE PREV. SONO STATE OTTENUTE DA QUESTO METODO IN REGALO
LI TENGO X 5/8C
OVVIAMENTE IL METODO ARRIVERA' PRIMA

BA 54.45.ABB 26.
GE 50.05.ABB 22.
NA 49.44.ABB 21.
VE 75.57.ABB 47.

 

[mastrogino]

QUESTE PREV. SONO STATE OTTENUTE DA QUESTO METODO IN REGALO
LI TENGO X 5/8C
OVVIAMENTE IL METODO ARRIVERA' PRIMA

BA 54.45.ABB 26.
GE 50.05.ABB 22.
NA 49.44.ABB 21.
VE 75.57.ABB 47.

A COLPO AMBO 05.22.IN TERZINA SULLA RUOTA DI SOTTO

 

[mastrogino]

QUESTE PREV. SONO STATE OTTENUTE DA QUESTO METODO IN REGALO
LI TENGO X 5/8C
OVVIAMENTE IL METODO ARRIVERA' PRIMA

BA 54.45.ABB 26.
GE 50.05.ABB 22.
NA 49.44.ABB 21.
VE 75.57.ABB 47.

AMBO SU TT 54.26.
GE ABBINAMENTO 22.

 

[mastrogino]

BUONGIORNO TUTTI VOI , NON VI HO DIMENTICATO POSTO UN REGALO PER TUTTI VOI
ANCHE SE IN VERITA QUESTO METODO LO ESISTE GIA NEL DOWNLOAD CON UNA PICCOLA MODIFICA

LA METOLOGIA E SEMPLICE ALLA SOMMA DEI 5 ESTRATTI SI DIVIDE IN 3 SE ESCE UN NUMERO SENZA LA
VIRGOLA SI FA IL FUORI 90 E SI METTE IN GIOCO COME LE AMBATE PRINCIPALI SOLO SU QUELLA RUOTA
ORA LA PICCOLA MODIFICA :
ALLA SOMMA OTTENUTA GLI SI AGGIUNGE IL NUMERO PER ESSENZA ARMONICA IL 28
SEMPLICE ORA VI POSTO IL LISTATO FATTO DAL BRAVO Blackmore
SPERO VI SIA GRADITA E BUONA PASQUA A VOI E LE VOSTRE FAMIGLIE
BUONA VITA



Sub Main()
ColoreTesto 2:Scrivi:Scrivi "Metodo di Schirò ... Script By Blackmore",1
ColoreTesto 0:Scrivi
Dim ruota(10)
Dim ambata(2)
Dim posta(1)
posta(1) = 1
k = InputBox("COLPI DI GIOCO",,16)
ini = InputBox("ESTRAZIONE INIZIALE",,10700)
fin = InputBox("ESTRAZIONE FINALE",,EstrazioneFin)
For es = ini To fin
Call AvanzamentoElab(Ini,fin,es)
Messaggio "Metodo By Schirò / Forum Lottoced"
For r = 1 To 12
If r = 11 Then r = 12
n = SommaEstratti(es,r)
For x = 1 To 180
n1 = x*3
If n1 = n Then
casi = casi + 1
ColoreTesto 1:Scrivi String(110,"*") & " Caso n°" & Format2(casi),1:ColoreTesto 0
Scrivi DataEstrazione(es) & " " & SiglaRuota(r) & " " & StringaEstratti(es,r) & " somma estratti = " & n,1
ColoreTesto 2:Scrivi n & " : 3 = " & Fuori90(Format2(x)) & " (Fuori90)... In gioco Ambata e Vertibile",1:ColoreTesto 0
ruota(1) = r
ambata(1) = Fuori90(x)
ambata(2) = Vert(ambata(1))
ImpostaGiocata 1,ambata,ruota,posta,k
Gioca es,1 '----------> se usate L8 togliete la virgola e l'1 dopo Gioca es
'ColoreTesto 1
'Scrivi "Spesa............" & GetSpesa(True),1' con true si ha il resoconto parziale con false il resoconto progressivo
'ColoreTesto 2
'Scrivi "Vincita.........." & GetVincita(True),1
'ColoreTesto 0
'Scrivi "Guadagno........." & GetGuadagno(True),1
'If GetGuadagno(True) > 0 Then Scrivi " Giocata in ATTIVO ",1,- 1,3
'If GetGuadagno(True) < 0 Then Scrivi " giocata in Negativo ",1,- 1,2
End If
Next
Next
Next
Scrivi:Scrivi:ScriviResoconto
End Sub