Lottoamicinews :: Leggi Argomento - METODO PALERMO BARI TUTTE


Nuovo Argomento   Rispondi    Indice del Forum -> METODI
METODO PALERMO BARI TUTTE -
  Precedente :: Successivo
mariano.manciocchi MessaggioInviato: 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

Esperto



Registrato: 11/02/16 02:38
Messaggi: 692
Residenza: ITALIA

_________________
MANCIOCCHI MARIANO
ProfiloInvia Messaggio PrivatoHomePage Rispondi Citando
DjNomade MessaggioInviato: 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

Esperto



Registrato: 11/05/14 00:02
Messaggi: 1967

ProfiloInvia Messaggio Privato Rispondi Citando
mariano.manciocchi MessaggioInviato: Dom 07 Feb, 2021 14:18

Ok
Esperto

Esperto



Registrato: 11/02/16 02:38
Messaggi: 692
Residenza: ITALIA

_________________
MANCIOCCHI MARIANO
ProfiloInvia Messaggio PrivatoHomePage Rispondi Citando
Mostra prima i Messaggi di:   
Nuovo Argomento   Rispondi    Indice del Forum -> METODI Tutti i fusi orari sono GMT + 1 ora
Pagina 1 di 1

 
Vai a:  
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.0761s (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
Template by Jasidog Template by Jasidog