Salve
Siccome sono assai imbranato (causa memoria) negli script, avrei bisogno di una mano.
Lo script che vedete (prima che Baffo Luigi Claudio & C si inc., spiego che non l’ho formattato perchè altrimenti per leggere i commenti dovevo andare fin dietro lo schermo del monitor), serve ad ogni fine mese per prendere il 3° estratto di BA , sommarci un numero a piacere (meglio sommarci lo zero) e giocarlo come ambata su BA-CA. Questo sono riuscito a farlo smanettando lo script di altri (vedi le note all’interno dello stesso).
Quello che non riesco a fare è di estrapolare anche i 10 numeri in cadenza con l’ambata e giocarli a gruppi di 4 o 5 numeri per ambo sempre su BA-CA
Nelle mie statistiche cartacee l’ambo in cadenza ha una frequenza di uscita molto buona e se si riuscisse a verificarlo con lo script sarebbe il max.
Se l’anima pia volesse anche cimentarsi nell’inserire le altre 2 condizioni segnate nelle note interne (partire a giocare dopo 2, 3 o più colpi ed anche aumentare la posta di gioco in corsa), potremmo così tutti verificare la soluzione più conveniente ad ogni fine mese.
Grazie infinite
L’ultima di genn. il 3° estratto di BA è il 18 perciò andrebbe giocato su BA-CA, attenzione che è già uscito anche a CA 2 colpi fà , giocare poi la cadenza 8-18-28-38-ecc. x Ambo sulle 2 ruote, negli ultimi 20 colpi quelli che mancano sono il 38 e 58 ma non vuol dire.
Ciao
Siccome sono assai imbranato (causa memoria) negli script, avrei bisogno di una mano.
Lo script che vedete (prima che Baffo Luigi Claudio & C si inc., spiego che non l’ho formattato perchè altrimenti per leggere i commenti dovevo andare fin dietro lo schermo del monitor), serve ad ogni fine mese per prendere il 3° estratto di BA , sommarci un numero a piacere (meglio sommarci lo zero) e giocarlo come ambata su BA-CA. Questo sono riuscito a farlo smanettando lo script di altri (vedi le note all’interno dello stesso).
Quello che non riesco a fare è di estrapolare anche i 10 numeri in cadenza con l’ambata e giocarli a gruppi di 4 o 5 numeri per ambo sempre su BA-CA
Nelle mie statistiche cartacee l’ambo in cadenza ha una frequenza di uscita molto buona e se si riuscisse a verificarlo con lo script sarebbe il max.
Se l’anima pia volesse anche cimentarsi nell’inserire le altre 2 condizioni segnate nelle note interne (partire a giocare dopo 2, 3 o più colpi ed anche aumentare la posta di gioco in corsa), potremmo così tutti verificare la soluzione più conveniente ad ogni fine mese.
Grazie infinite
Codice:
' 25/10/2011 da Lottoced/area download/da PFCA a KJO .
' Ultima del mese +0 (VA' MEGLIO). al 3° estr. di BA e giocare su BA-CA x ambata. Da Sistemare per l'Ambo in cadenza.
' Devo sistemare per avere anche la cadenza (10num), se posso aumentare automatic. la posta dopo alcuni colpi nulli
' e se posso provare a far partire le giocate dopo alcuni colpi per vedere se conviene.
Sub Main()
Dim ruote(10)
Dim num(10)
Dim posta(3) ' puoi giocare per ambata, ambo e terno
posta(1) = 5 ' < - - - posta per estratto
'posta(2) = 1 ' < - - - posta per ambo da inserire appena trovo come estrarre anche la cadenza dell'ambata
r = InputBox("Quale Ruota vuoi analizzare:"," Scegli la Ruota 1=BA, 2=CA, 11=TT, 12=NZ ",1)
es = InputBox("0 = ultima, 1 = prima, 2 = seconda, etc. del mese","Scegli l'estrazione",0)
ne = InputBox("Quanti estratti vuoi utilizzare: 1, 2, 3, 4, 5"," Scegli la quantità di estratti",1)
If ne = 1 Then ' questo è il mio caso che voglio utilizzare un solo estratto
ne1 = InputBox("In quale posizione è l'estratto:","Scegli la posizione dell'estratto",3)
End If
' pf = InputBox("Quale Numero vuoi sommare all'estratto:"," Con il fuori x",11)
pf = InputBox("Quale Numero vuoi sommare all'estratto:"," Con il fuori 90",0)
k = InputBox("Quante Estrazioni successive vuoi giocare:","Per quanti colpi",10)
ric = InputBox("Su quante Estrazioni vuoi fare la ricerca:","Scegli la quantita di estrazioni da analizzare",180)
nr = InputBox("Su quante Ruote vuoi giocare: 1 - 2 ","Scegli il numero delle Ruote su cui giocare",2)
If nr = 2 Then ' questo è il mio caso (2 ruote sulle quali giocare)
ruote(1) = InputBox("Scegli la prima Ruota di gioco:"," 1° Ruota",1) 'BA
ruote(2) = InputBox("Scegli la seconda Ruota di gioco:"," 2° Ruota",2) 'CA
End If
na = InputBox("Vuoi sommare o sottrarre un Altro numero all' Ambata?"," 1 = Sì ; 2 = No",2)
If na = 1 Then
ss = InputBox("Sommare = 1 Sottrarre = 2 ","Digita la scelta",1)
na1 = InputBox("Quale numero?","Digita il numero",30)
End If
ini = EstrazioneFin - ric
fin = EstrazioneFin
For n = ini To fin
Messaggio(n)
'If IndiceMensile(es + 1) <= 1 Then ' così dovrebbe trovare l'ultima dal mese anche se è appena stata fatta
If(((eval(es) = 0)And(n = ultest))Or((IndiceMensile(n) = eval(es)And(eval(es) > 0))Or((IndiceMensile(n + 1) = 1)And(eval(es) = 0)))) Then
n1 = Estratto(n,r,1)
n2 = Estratto(n,r,2)
n3 = Estratto(n,r,3)
n4 = Estratto(n,r,4)
n5 = Estratto(n,r,5)
If ne = 1 Then ' questo è il mio caso di un solo estratto su BA da prendere
numb = Estratto(n,r,ne1) ' numero estrazioni decise, ruota scelta , posizione dell'estratto deciso sopra
End If
If numb > 90 Then ' non dovrebbe succedere mai
rs = Int(numb/pf) 'altrimenti il divide by zero farebbe un casino
ris = 0
For f = 1 To rs
ris = numb -(pf * f)
If ris < 90 Then Exit For
Next
Else
ris = Fuori90(numb + pf) ' ris è l'Ambata fatta da: numb che è il numero in 3a posizione + pf che vale 0 (e non 11)
End If
If na = 1 Then ' scelta fatta per sommare o sottrarre qualcosa all'ambata, non è il mio caso
'posta(2) = 1 ' < - - - posta per Ambo
'posta(3) = 0 ' < - - - posta per terno
num(1) = ris ' è il numero da cui partire (3° di BA)
'num(2) = DiametraleD(ris) ' asteriscato per eliminare un'altro numero che non mi serve(Diametrale in decina)
If ss = 1 Then ' la scelta 1 serve se vuoi sommare qualcosa all'ambata, non è il mio caso
num(3) = Fuori90(ris + na1) ' num(3) sarebbe un'altro numero per ambo (ris = ambata , e poi na1 = + 30 all'ambata)
End If
If ss = 2 Then ' non dovrebbe passare di qui perchè na=2
If num(1) > na1 Then
num(3) = num(1) - na1
End If
If num(1) < na1 Then
num(3) = na1 - num(1)
End If
End If
End If
If na = 2 Then ' na=2 significa non sommare 30 all'ambata (e provo ad estrarre la cadenza CAZZO che dà spesso l'ambo)
num(1) = ris ' è l'Ambata
'num(2) = Cadenza(ris) ' mi dà solo il primo numero di quella cadenza
'num(3) = Cadenza(num(2)) ' con(ris) e con (num(2)) non dà niente dipiù di quello sopra
'num(4) = DiametraleD(ris) ' diametrale in decina
Scrivi "-----------------------------------------------------------------------------------"
ColoreTesto 1
Scrivi "Ruota di ricerca: " & FormatSpace(NomeRuota(r),10) & " Data Estraz.: " & DataEstrazione(n) & " Estratti: " & n1 & "-" & n2 & "-" & n3 & "-" & n4 & "-" & n5
Scrivi "Estratti del giorno: " & n1 & "-" & n2 & "-" & n3 & "-" & n4 & "-" & n5 & " estratto scelto = " & numb & " Estratto + " & pf & " = " & num(1)
Scrivi "Ambata: " & num(1) & " Per sorti maggiori: " & num(1) & "-" & num(2)
ColoreTesto 0
Scrivi "-----------------------------------------------------------------------------------"
End If
ColoreTesto 2
If nr = 1 Then
Scrivi " 1° Ruota di gioco: " & FormatSpace(NomeRuota(ruote(1)),10)
ColoreTesto 0
Scrivi "--------------------------------------------------------------------------------"
End If
If nr = 2 Then
Scrivi " 1° Ruota di gioco: " & FormatSpace(NomeRuota(ruote(1)),10) & " 2° Ruota di gioco: " & FormatSpace(NomeRuota(ruote(2)),10)
ColoreTesto 0
Scrivi "--------------------------------------------------------------------------------"
End If
ImpostaGiocata 1,num,ruote,posta,k,1 'con ,1 dopo il k si ferma a qualsiasi esito verificato
'ImpostaGiocata 2,num,ruote,posta,k,2 'con ,2 si ferma all'Ambo. Da inserire quando avrò anche la cadenza
'Gioca n,- 1 'cosi ti fà vedere solo le estrazioni vincenti
Gioca n 'cosi ti fà vedere tutti i colpi
End If
Next
ColoreTesto 1
Scrivi ""
Call TestoInBandaPassante("Script di pfca per kjo e modificato ALLA MENO PEGGIO da Costbat(N.B. VA' MEGLIO +0 degli altri sommativi)")
Scrivi ""
ColoreTesto 0
ScriviResoconto
End Sub
Ciao