Chi Mi da Una mano con Script !

[Pattydreams64]

ciao A tutti dopo mesi e mesi sono riuscita a scaricare spaziometria , grazie all'autore e tutto il forum che non si negha mai in caso di aiuto.
Premetto che ho frequentato solo le medie superiori ,e' quindi x me che vicino non ho nessuno mi rimane difficile capire certe cose.
Detto questo :
Cerco degli script, e vorrei provare ad imparare se possibile , se c'e qualche pagina su lottoced , oppure su google ,grazie a tutti.
Vengo al 1° script.
Ultima del Mese ruota di gioco venezia ruota di calcolo Milano palermo.
LA 4° DI MILANO+LA 1° DI PALERMO +72 = 1° Ambata
La 1° Palermo+ la 4° palermo + 84 = 2° Ambata
Tutto qui'
----------------------------------------------------------------------
Poi vorrei sempre se possibile un qualcosa per trovare un ambo , andrebbe bene su una ruota fissa e su tutte.
--------------------------------------------------------------------------------------------------------
Ed infine vi ringrazio infinitamente a tutti Bacio
Grazie patty

 

[Joe91]

Ciao Patty,

come vedi dallo pseudocodice (la descrizione del metodo) allo script, non c'è moltissima differenza.

Sub Main()
'Ultima del Mese
'Ruota di gioco Venezia
'Ruota di calcolo Milano Palermo.
'LA 4° DI MILANO + LA 1° DI PALERMO + 72 = 1° Ambata
'La 1° Palermo + la 4° Palermo + 84 = 2° Ambata
Dim Ambate(2),Ruotadigioco(1),Poste(5)
Ruotadigioco(1) = VE_ : Poste(1) = 1 : Poste(2) = 1
 For Es = EstrazioneFin - 199 To EstrazioneFin
  If IsUltimaDelMese(Es) Then
   K = K + 1 : Scrivi String(105,"=") & "  " & K,1
   Ambate(1) = Fuori90(Estratto(Es,MI_,4) + Estratto(Es,PA_,1) + 72)
   Ambate(2) = Fuori90(Estratto(Es,PA_,1) + Estratto(Es,PA_,4) + 84)
   ImpostaGiocata 1,Ambate,Ruotadigioco,Poste,12,2
   Gioca Es,1
  End If
 Next
 ScriviResoconto
End Sub

Buona Domenica.

 

[Pattydreams64]

Ciao e'grazie ,
Mi da errore

For Es = EstrazioneFin - 199 To EstrazioneFin

 

[Joe91]

Ciao, Patty.

NON dovrebbe succedere perchè è uno script semplicissimo.

L'istruzione che hai incollato qui, ho controllato, non contiene errori.

Se come prima linea dello script hai "Option Explicit" devi cancellarla.

Se non funzionasse ancora probabilmente c'è qualche errore che bisogna scovare e risolvere.

In questo caso dovresti anche indicare quale errore è presente.

Ovvero la descrizione dell'errore contenuta nel messaggio che ti appare.

Eventualmente sarebbe utile sapere se altri hanno problemi nell'eseguire questo script.

Attendo notizie.

 

[Pattydreams64]

Grazie joe91 Avevi ragione ho dovuto cancellare "option Explicit" Tutto Ok
Funziona bene Grazie

 

[Joe91]

Benissimo.

Solo una cosa ...

... non è un errore di Spaziometria, è più mio, che non ho definito la Variabile "Es" e la variabile "K",

Con option Explicit avrei dovuto scrivere anche:

Dim Es : Dim K

per avere lo script con TUTTE le sue variabili ben dimensionate.

 

[Pattydreams64]

Ciao Joe91
Esiste uno script che faccia questo,in qualunque ruota , cioe' la ruota la sceglierei io
Es: esce il 90 vorrei sapere dopo il 90 su X ruota quali sono i numeri maggiormente sortiti Max tre quattro con rispettivo resoconto
Grazie

 

[Pattydreams64]

Ciao Patty,

come vedi dallo pseudocodice (la descrizione del metodo) allo script, non c'è moltissima differenza.

Sub Main()
'Ultima del Mese
'Ruota di gioco Venezia
'Ruota di calcolo Milano Palermo.
'LA 4° DI MILANO + LA 1° DI PALERMO + 72 = 1° Ambata
'La 1° Palermo + la 4° Palermo + 84 = 2° Ambata
Dim Ambate(2),Ruotadigioco(1),Poste(5)
Ruotadigioco(1) = VE_ : Poste(1) = 1 : Poste(2) = 1
 For Es = EstrazioneFin - 199 To EstrazioneFin
  If IsUltimaDelMese(Es) Then
   K = K + 1 : Scrivi String(105,"=") & "  " & K,1
   Ambate(1) = Fuori90(Estratto(Es,MI_,4) + Estratto(Es,PA_,1) + 72)
   Ambate(2) = Fuori90(Estratto(Es,PA_,1) + Estratto(Es,PA_,4) + 84)
   ImpostaGiocata 1,Ambate,Ruotadigioco,Poste,12,2
   Gioca Es,1
  End If
 Next
 ScriviResoconto
End Sub

Buona Domenica.

Ciao vorrei sapere, sono riuscita a portarli fino a tre modificando alcuni numeri , non molto difficili, appena ho provato per portarli a cinquina troppi problemi, come posso risolverlo ?
ed infine sempre questo listato se voglio inserire x ogni numero i migliori due abbinamenti come fare ?
in pratica vorrei creare tre ambate con i 2 migliori abbinamenti per Ambata
Grazie

 

[lotto_tom75]

Buonanotte ,
le allego listato un listato per numero spia con frequenti.

Sub Main()
    'BY ESSELOTTO NUMERI FREQUENTI DOPO SPIA X '
    ColoreTesto 2
    Scrivi "Spia - migliori ambate sortite + Ritardi(modificato da esselotto)" & Chr(7),1
    Scrivi "modificato da esselotto per mike58 lottoced)" & Chr(7),1
    ColoreTesto 0
    Dim n(90,6),ru(1),ru1(1),nu(1),nn1(1)
    ee = CInt(InputBox("Quante estrazioni vuoi esaminare ?",,100))
    If ee = "" Then Exit Sub
    nn = CInt(InputBox("Quale numero spia ?",,90))
    If nn = "" Then Exit Sub
    cl = CInt(InputBox("Quanti colpi ?",,14))
    If cl = "" Then Exit Sub
    r1 = CInt(InputBox(" Quale Ruota 1 Bari,2 Cagliari,ecc.?",,6))
    If r1 = "" Then Exit Sub
    am = CInt(InputBox(" Quante ambate vuoi visualizzare da 1 a 90?",,10))
    If am = "" Then Exit Sub
    r2 = 11
    nn1(1) = nn
    fin = EstrazioneFin
    ini = fin - ee
    For es = ini To fin
  If Posizione(es,r1,nn)  > 0 Then
   ru1(1) = r2
   If SerieFreqTurbo(es,es,nn1,ru1,1) = 1 Then
    ess = es + cl
    If ess > fin Then ess = fin
    co = 0
    For i = 1 To 90
     co = co + 1
     n(co,1) = co
     n(co,2) = i
     nu(1) = i
     ru(1) = r1
     fr = SerieFreqTurbo(es + 1,ess,nu,ru,1)' ricerca frequenza su ruota
     rt = SerieRitardoTurbo(ini,fin,nu,ru,1) 'ricerca ritardo
     rs = SerieStoricoTurbo(fin - ee,fin,nu,ru,1)
     fru = SerieFreqTurbo(EstrazioneFin - 14,EstrazioneFin,nu,ru,1)
     n(co,3) = n(co,3) + fr
     n(co,4) = rt
     n(co,5) = rs
     n(co,6) = fru
     ca = EstrazioneFin - es
     cnn = EstrattoFrequenza(r1,nn,EstrazioneFin - ee,EstrazioneFin,1)
     cna = EstrattoRitardo(r1,nn,EstrazioneFin - ee,EstrazioneFin,1)
    Next
   End If
  End If
    Next
    Scrivi "_________________________________________________ _________________________________"
    Scrivi ""
    ColoreTesto 1
    Scrivi "Migliori ambate dopo Numero Spia " & nn & " ruota di " & NomeRuota(r1) & Chr(10),2
    ColoreTesto 0
    Scrivi"Dal " & DataEstrazione(ini) & "(" & es & ") al " & DataEstrazione(fin) & "(" & fin & ")" & Chr(10)_
  & "estrazioni Totali esaminate : " & ee,2
    Scrivi "nelle successive " & cl & " estrazioni - - - Dopo l'uscita del numero spia: - - - > " & nn,1
    Scrivi "numero di volte uscita del n° spia nel periodo analizzato " & " ---> " & cnn,2
    ColoreTesto 2
    Scrivi DataEstrazione(EstrazioneFin - cna) & " - " & "[" & " " & SiglaRuota(r1) & " - " & StringaEstratti(EstrazioneFin - cna,r1) & "" & "]" & " [" & Format2(nn) & "]" &_
  " - - - - - n° estraz.trascorse - - - > " & cna,1
    ColoreTesto 0
    Scrivi "_________________________________________________ _________________________________"
    Scrivi ""
    Scrivi " N° Presenze - - Ritardo corrente -- ritardo storico nel ciclo - frequenza su ultime 14 estrazioni - Ruota di --> " & NomeRuota(r1) & Chr(10),1
    OrdinaMatrice n,- 1,3
    For w = 1 To am
  Scrivi " " & Format2(n(w,2)) & " " & FormatSpace(n(w,3),6,1) & String(8," ") & FormatSpace(n(w,4),7,1) & FormatSpace(n(w,5),23,1) & FormatSpace(n(w,6),28,1)
    Next
    ColoreTesto 0
    Scrivi "_________________________________________________ ___________________________________" & Chr(10)
    Scrivi "°°°esselotto°°°",1
End Sub

Complimenti a pattydreams e a disaronno o a chi ha fatto lo script e per vedere se ho capito bene come poterlo utilizzare qualcuno/a di voi potrebbe dirmi se il seguente relativo report evidenzierebbe il n.50 su ba come interessante a colpo o meno?

Grazie

Spia - migliori ambate sortite + Ritardi(modificato da esselotto)
modificato da esselotto per mike58 lottoced)
_________________________________________________ _________________________________


Migliori ambate dopo Numero Spia 1 ruota di Bari


Dal 06.09.2012(8684) al 27.04.2013(8683)
estrazioni Totali esaminate : 100
nelle successive 14 estrazioni - - - Dopo l'uscita del numero spia: - - - > 1
numero di volte uscita del n° spia nel periodo analizzato  ---> 4
26.03.2013 - [ BA - 66.01.79.81.62] [01] - - - - - n° estraz.trascorse - - - > 14
_________________________________________________ _________________________________


 N° Presenze - - Ritardo corrente -- ritardo storico nel ciclo - frequenza su ultime 14 estrazioni - Ruota di --> Bari


 77      5             31                     38                           0
 07      5             19                     28                           0
 84      5              7                     33                           1
 34      4              9                     41                           1
 50      4             22                     22                           0
 30      4              5                     23                           4
 59      3              7                     37                           1
 69      3             15                     27                           0
 20      3              2                     22                           1
 22      3             25                     46                           0
_________________________________________________ ___________________________________


°°°esselotto°°°