LA CITTA TIRCHIA

[Alien.]

CIAO

CHI LO FA LO SCRIPT CON ID?
1 estratto di Bari + 35 sulla ruota di Genova è uscito 13 volte su 14
3 estratto di Cagliari + 73 sulla ruota di Genova è uscito 13 volte su 14
2 estratto di Firenze + 52 sulla ruota di Genova è uscito 13 volte su 14
2 estratto di Genova + 16 sulla ruota di Genova è uscito 13 volte su 14
3 estratto di Milano + 5 sulla ruota di Genova è uscito 13 volte su 14
4 estratto di Milano + 39 sulla ruota di Genova è uscito 13 volte su 14
5 estratto di Milano + 74 sulla ruota di Genova è uscito 13 volte su 14
2 estratto di Napoli + 73 sulla ruota di Genova è uscito 13 volte su 14
2 estratto di Torino + 64 sulla ruota di Genova è uscito 13 volte su 14
4 estratto di Torino + 14 sulla ruota di Genova è uscito 13 volte su 14

GRAZIE.

 

[Alien.]

1 estratto di Cagliari + 62 sulla ruota di Bari è uscito 13 volte su 14

2 estratto di Firenze + 47 sulla ruota di Bari è uscito 13 volte su 14

2 estratto di Torino + 8 sulla ruota di Bari è uscito 13 volte su 14

 

[Membro cancellato 19206]

حذف · إزالة · إلغاء · محو · حذفه · مسح · شطب · قم بحذف.

 

[Alien.]

Grazie gcarlo questa volta va tutto ok ,pensavo che il metodo fosse più proficuo vedo di colpire la nave.
hai un gran cuore ancora grazie.

 

[Zetrix]

Option Explicit
Sub Main
   Dim ID,Ini,fin,es,casi,x
   Dim vetNumeri1(10),vetNumeri2(3)
   Dim vetRuote1(1),vetRuote2(1)
   Dim vetPoste1(2),vetPoste2(2)
   Dim Durata
   ID = CInt(InputBox("Indice Mensile","",1))
   Ini = EstrazioneFin - 60
   fin = EstrazioneFin
   casi = 00
   vetRuote1(1) = TT_
   'vetRuote2(1) = BA_
   vetPoste1(2) = 1
   vetPoste2(2) = 1
   Durata = 13
   For es = Ini To fin
   For x = 1 To 90
      Call Messaggio(es) : Call AvanzamentoElab(Ini,fin,es)
      If IndiceMensile(es) = ID Then
         casi = casi + 01
         Call Scrivi(String(125,"-") & " caso n° " & Format2(casi),True)
         '---------------------------------------------------------------------
         '
         vetNumeri1(01) = Fuori90(Estratto(es,BA_,1) + x)
         '
         vetNumeri1(02) = Fuori90(Estratto(es,CA_,1) + x)
     
         Call ImpostaGiocata(01,vetNumeri1,vetRuote1,vetPoste2,Durata)
         '-----------------------------------------------------------------------
         Scrivi("+"& x & ""),0,1,1,5
         Call Gioca(es,True,,1)
      End If
   Next
   Next
   Call ScriviResoconto(False,True)
End Sub

Ciao Alien, volevo chiedere a gcarlo come si fa a scrivere nello script
l'algoritmo che a sempre garantito l'ambo nella durata dei 13 colpi
negli ultimi quattro mesi..

 

[Alien.]

Ciao Zetrix vedi #1.

 

[Zetrix]

Alien mi sembra di aver fatto una richiesta a gcarlo ma non a risposto..

 

[Alien.]

Ciao abbi un pò di pazienza risponderà di sicuro .