L' Ambata Frequente - Su Palermo - Vincente Da 14 Mesi (Ultima Del Mese)

[Alexjeff]

Super Complimenti Bravissimo xeroxs

 

[Aline]

Complimenti bravissimo come sempre

 

[Aline]

 

[80Sete]

Buon dicembre a tutti, si riparte con Xeroxs e il suo
........................................ di PA

 

[Aline]

Grazie

 

[Antondavide]

Grazie.....sapreste anche le posizioni? Speriamo che Xeroxs ce le indichi.

 

[Xeroxs]

Ciao,
Per questo 27 sembra prevalere la 2 posizione

 

[Coccobello]

Buon giorno a tutti e un saluto speciale x Xeroxs!

 

[giulia]

 

[giulia]

 

[Alien.]

Ciao, si può avere lo script corretto, mi da sempre errore end



Sub Main()
Dim ruote(10)
Dim ambata(1)
Dim numeri1(10)
Dim posta(1)
Dim poste(5)
posta(1) = 1
poste(2) = 0.60
poste(3) = 0.30
poste(4) = 0.10
k = 13
y = 2
For n = 9000 To EstrazioneFin
'If IndiceMensile(es)= 1 Then 'Prima del mese
'If IsUltimaDelMese(es) Then 'Ultima del mese
If IsUltimaDelMese(n + 1) Then 'Penultima del mese


ruote(1) = 3
ruote(2) = 7
casi = casi + 1
Scrivi String(100,"°") & " caso n° " & casi,1
ambata (1) = Fuori90(Estratto(n,3,5) + Estratto(n,7,2))
ImpostaGiocata 1,ambata,ruote,posta,k,1
ImpostaGiocata 2,numeri1,ruote,poste,k,y
Gioca n

End If
Next



le posizioni sono : lo zero è non uscito

0	1	2	3	4	5	posizione
3	7	9	3	5	2	frequenze

 

[Xeroxs]

Sub Main()
   Dim ruote(10)
   Dim ambata(1)
   Dim numeri1(10)
   Dim posta(1)
   Dim poste(5)
   posta(1) = 1
   poste(2) = 0.60
   poste(3) = 0.30
   poste(4) = 0.10
   k = 13
   y = 2
   For n = 9000 To EstrazioneFin
      'If IndiceMensile(es)= 1 Then 'Prima del mese
      'If IsUltimaDelMese(es) Then 'Ultima del mese
      If IsUltimaDelMese(n + 1) Then 'Penultima del mese
         ruote(1) = 3
         ruote(2) = 7
         casi = casi + 1
         Scrivi String(100,"°") & " caso n° " & casi,1
         ambata(1) = Fuori90(Estratto(n,3,5) + Estratto(n,7,2))
         ImpostaGiocata 1,ambata,ruote,posta,k,1
         ImpostaGiocata 2,numeri1,ruote,poste,k,y
         Gioca n
      End If
   Next
   ScriviResoconto
End Sub

prova così

 

[Alien.]

Grazie, xeroxs ogni tanto si trova un'anima buona.

 

[Alien.]

QUANTI COLPI E FREQUENZE USCITE AMBATE A PALERMO.

1	2	3	4	5	6	7	8	9	10	11	12	13	COLPI
7	3	1	2	4	2	4	3	0	0	0	0	0	FREQUENZE

 

[Annamaria2]

Scusate evidentemente mi sfugge qualcosa
Prima estraz primo delle nazioni 66 meno primo fi Bari 35 =31
31+64=5
Dove sbaglio?
Xche' è 27 l'amata a me risulta 5
Fatemi capire dove sbaglio
Aiutooooo

 

[Annamaria2]

Scusate no amata ma AMBATA

 

[Abitte]

Scusate evidentemente mi sfugge qualcosa
Prima estraz primo delle nazioni 66 meno primo fi Bari 35 =31
31+64=5
Dove sbaglio?
Xche' è 27 l'amata a me risulta 5
Fatemi capire dove sbaglio
Aiutooooo

Ultima del mese.....è scritto anche nel titolo.....

 

[Annamaria2]

Scusa e che ultimamente la testa non va bene chiedo venia
Grazieeee

 

[Alien.]

No Annamaria la testa va bene il problema è che è impossibile leggere tutto e dappertutto è.................

 

[giulia]