 |
|
 |
|
| METODO PALERMO BARI TUTTE - |
| Precedente
:: Successivo |
mariano.manciocchi
 Inviato:
Sab 06 Feb, 2021 17:16 |
|
|
|
METODO PALERMO BARI TUTTE
METODINO REGALO LOTTO
AGISCE A OGNI ULTIMA ESTRAZIONE MENSILE
RUOTE DI CALCOLO PALERMO BARI ...
RUOTE DI GIOCO PALERMO BARI TUTTE .
QUARTO ESTRATTO DI PALERMO SI SOMMANO LE CIFRE CHE LO COMPONGONO
IL RISULTATO LO ADDIZIONEREMO A 20 E SARĄ CON IL SUO VERTIBILE ESTRATTI /AMBATE .
PRENDEREMO IL PRIMO DI BARI E ADDIZIONEREMO LE CIFRE CHE LO COMPONGONO E IL RISULTATO LO ADDIZIONEREMO A 1 .... CREEREMO IL VERTIBILE E ENTRABI I DUE NUMERI LI ABBINEREMO ALLE DUE AMBATE CREANDO 4 AMBI , CHE GIOCHEREMO IN AMBO E AMBETTO SULLE RUOTE BARI PALERMO E GLI STESSI AMBI LI GIOCHEREMO A TUTTE .
ESEMPIO E VALIDO AL GIOCO
QUARTO DI PALERMO 22
OPERAZIONI
2+2=4
4+20= 24 VERTIBILE 42
PRIMO DI BARI 44
4+4=8
8+1= 9 VERTIBILE 90
GIOCHIAMO
AMBO AMBETTO BARI PALERMO
24.9...24.90....42.9...42.90
A TUTTE A RECUPERO
24.9...24.90...42.9...42.90
NON SI GIOCA SU NAZIONALE
BUONE VINCITE 🤫
|
|
Esperto
Registrato: 11/02/16 02:38
Messaggi: 692
Residenza: ITALIA
|
_________________
MANCIOCCHI MARIANO |
|
 |
 |
 |
|
| DjNomade
Inviato:
Dom 07 Feb, 2021 11:35 |
|
|
|
| Codice: |
'http://www.lottoamicinews.net/forum/viewtopic.php?t=62893
'07-02-2021
ColoreTesto 2
Scrivi String(20,"=")&" Ultima del mese PALERMO BARI TUTTE di M. Manciocchi",1
Scrivi String(40,"=")&"",1
ColoreTesto 0
Sub main()
Dim ruota(10),ruota1(10)
Dim n1(10),nn(10),amb(4),n11(8),nc(6)
Dim posta(10),poste(5)
casi=0
ruota1(1)=1
ruota1(2)=7
ruota(1)=1
ruota(2)=7
ruota(3)=11
poste(2)=1
posta(1)=1
posta(2)=1
k=13
ini=9440
fin=EstrazioneFin
For es=ini To fin
If IsUltimaDelMese(es) Then
'**********1°
nc(1)=Fuori90 (Decina(Estratto (es,7,4))+Cadenza(Estratto (es,7,4))+20)'ambata
nc(2)=Vert(nc(1))'ambata
nc(3)=Fuori90 (Decina(Estratto (es,1,1))+Cadenza(Estratto (es,1,1))+1)'abb
nc(4)=Vert(nc(3))'abb
Rem se uno o pił numeri si ripetono si fa il + 1 (Formula By Thauk)
rip = 0
If NumeriRipetuti(nc) Then
rip = 1
While NumeriRipetuti(nc)
For x = 1 To 3
For y = x + 1 To 4
If nc(x) = nc(y) Then nc(y) = Fuori90(nc(y) + 1)
Next
Next
Wend
End If
Rem fine formula
n1(1)=nc(1)
n1(2)=nc(2)
ImpostaGiocata 1,n1,ruota1,posta,k
n11(1)=nc(1)
n11(2)=nc(3)
ImpostaGiocata 2,n11,ruota,poste,k
n11(1)=nc(1)
n11(2)=nc(4)
ImpostaGiocata 3,n11,ruota,poste,k
n11(1)=nc(2)
n11(2)=nc(3)
ImpostaGiocata 4,n11,ruota,poste,k
n11(1)=nc(2)
n11(2)=nc(4)
ImpostaGiocata 5,n11,ruota,poste,k
Gioca es
casi=casi+1
End If
Next
Scrivi
Scrivi "Numero Totale casi analizzati: "&Cint(casi)
ScriviResoconto
End Sub
'Funzione realizzata dal bravissimo Joe
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 |
|
|
Esperto
Registrato: 11/05/14 00:02
Messaggi: 2226
|
|
|
|
|
|
|
| mariano.manciocchi
Inviato:
Dom 07 Feb, 2021 14:18 |
|
|
|
|
|
Esperto
Registrato: 11/02/16 02:38
Messaggi: 692
Residenza: ITALIA
|
_________________
MANCIOCCHI MARIANO |
|
|
|
|
|
|
|
|
|
|
|
 |
|
 |
|
Non puoi inserire nuovi Argomenti
Non puoi rispondere a nessun Argomento
Non puoi modificare i tuoi Messaggi
Non puoi cancellare i tuoi Messaggi
Non puoi votare nei Sondaggi
Non puoi allegare files
Non puoi downloadare gli allegati
|
Page generation time: 0.1048s (PHP: 100% - SQL: 0%) - SQL queries: 24 - GZIP enabled - Debug on
Jasidogdotcom template v.1.0.4 © jasidog.com
Powered by phpBB
2.0.16 © 2001, 2004 phpBB Group
Traduzione Italiana V-0.16 phpBB.it |
