Per Esselotto o chi vuole

[Roby]

Potreste farmi uno script che faccia:
1°BA + 5°BA= esempio 20 il Vertib.=2
1°VE + 5°VE= esempio 28 il Vertib.=82
Danno una lunghetta di 4 num che generano 6 ambi.
Esempio 20-28/2-82/20-82/2-20/28-82/2-28.
L'estrazione deve essere l'ultima del mese</u>.

Spero di essere stato chiaro.
Grazie.

 

[Thauk]

Ciao, joi_lotto, vedi se va bene.
Non ho scomposto la quartina, ma se ti servono i singoli ambi te lo modifico.

Sub main()
Dim rt(2),pta(2),nr(4)

ex=InputBox("Quante estrazioni controllo?",,100)

ini=EstrazioneFin-ex
fin=EstrazioneFin
For es=ini To fin
If IndiceMensile(es+1)=1 Then
Messaggio es

rt(1)=1
rt(2)=10
pta(2)=1
k=13

nr(1)=Fuori90(Estratto(es,1,1)+Estratto(es,1,5))
nr(2)=Vert(nr(1))
nr(3)=Fuori90(Estratto(es,10,1)+Estratto(es,10,5))
nr(4)=Vert(nr(3))
ImpostaGiocata 1,nr,rt,pta,k

casi=casi+1
Scrivi String(70,"=")&" Caso n° "&casi,1
Scrivi

Gioca es
End If
Next
Scrivi
Scrivi "Casi totali ("&casi&")",1
ScriviResoconto
End Sub

ciauz


Fortuna non omnibus aeque.

 

[joi_lotto]

Ciao Thauk.
Quando incollo lo script lo incolla su una unica riga e mi da errore.

Grazie.

 

[esselotto]

quote:Originally posted by joi_lotto

Ciao Thauk.
Quando incollo lo script lo incolla su una unica riga e mi da errore.

Grazie.

copia. Apri Blocco note di windows e incolla.
dopo copia dal blocco note, e incolla sul tuo
programma di script.

 

[joi_lotto]

Grazie.
Grazie.

 

[joi_lotto]

Ciao ragazzi.
Non so se è una cosa fattibile ma se lo fosse lo script dovrebbe fare una ricerca del genere:
indico un numero su una determinata ruota e devo trovare i migliori
10 abbinamenti in ordine di percentuale dalla più alta alla più bassa, per AMBO e TERNO in un determinato MESE,la ricerca
dovrebbe partire dal 1871.
Se volete se potete Vi ringrazio.

Ciao.

 

[arcor]

Buongiorno a tutti, volevo chiedere se qualcuno può realizzarmi lo script di questo metodo x poter applicare questo progetto e' necessario rilevare su ruota UNICA 2 ambi aventi in comune la stessa somma- ES. CA 01/10/2009 30-90-02-38-54, notiamo quindi: ( 90-02), e (38-54), entrambe di somma 2( col fuori 90 se necessario), il primo calcolo da effettuare sara': FISSO 135- (90-2-38-54)= 41 AMBATA-poi 41+30= 71 41-30=11 quindi sommeremo e sottraremo, L AMBATA, ( 41), al 5° num( 30), NUM NON CONDIZIONATO- detto cio' e' pronta la prev completa ruota di CA/ TUTTE ambata 41, ambi 41-11, 41-71, 11-71, poi 41-11-71, esiti: 5° colpo naz 11-71, 7° colpo ca 41, 8° colpo ca 11-71- N.B. la prev va' seguita x 9 estr e potete scegliere di continuare a giocare fino ai colpi stabiliti, nonostante esiti anticipati............
un saluto e un grazie a chi farà lo script

 

[esselotto]

per joi lotto e arcor
Aspetto che risponda Thauk per non fare
doppio lavoro
esselotto

 

[esselotto]

Per joi lotto Guarda se va bene è un listato che avevo modificato.


Le grandezze fisiche che caratterizzano un moto oscillatorio
sono l'ampiezza e la frequenza.
°°°esselotto°°°

 

[esselotto]

‘’’’’’’’Ricerca i numeri piu frequenti, dopo un certo numero detto spia
‘’’’’’’’’’’’’Prelevare solo Testo colorato Blu


Sub main()
Scrivi "Spia - migliori ambate sortite listato (modificato da esselotto )" & Chr(10)
Scrivi "modificato da esselotto per joi lotto lottoced )" & Chr(10)

Dim n(90,4),ru(1),ru1(1),nu(1),nn1(1)
ee=CInt(InputBox("Quante estrazioni vuoi esaminare ?",,1000))
If ee="" Then Exit Sub
nn=CInt(InputBox("Quale numero spia ?",,15))
If nn="" Then Exit Sub
cl=CInt(InputBox("Quanti colpi ?",,9))
If cl="" Then Exit Sub
r1=CInt(InputBox(" Quale Ruota 1 Bari, 2 Cagliari, ecc.?",,1))
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 SerieFreq(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=SerieFreq(es+1,ess,nu,ru,1)' ricerca frequenza su ruota
n(co,3)=n(co,3)+fr
Next

End If
End If
Next
Scrivi
ColoreTesto 1
Scrivi " Migliori ambate dopo Numero Spia "& nn &" ruota di "&nomeruota(r1)& Chr(10)
ColoreTesto 0
Scrivi" Dal "&dataestrazione(ini)&"("&es&") al "&dataestrazione(fin)&" ("&fin&")"& Chr(10)
Scrivi " N° Presenze Ruota di ---->"& NomeRuota(r1)& Chr(10)
OrdinaMatrice n,-1,3
For w=1 To am
Scrivi" "& Format2(n(w,2))&" "&FormatSpace(n(w,3),4,1)'&" "&FormatSpace(n(w,4),4,1)

Next
ColoreTesto 0
Scrivi String(50,"=")& Chr(10)
Scrivi "°°°esselotto°°°",1
End Sub


controlla il tutto ciao

 

[esselotto]

Ciao arcor ho impostato la terzina solo per terno su ruota e tutte . Non si ferma alla prima vincita ma continua
Per la differenza tra ambata e numero rimasto

Fai queste 2 prove

avvia lo script prova per 9 colpi e per 13 colpi e prenditi statistiche ambo

poi vai su questa riga metti gli apici all’inizio o cancelli come vuoi.
am2=Abs(e-am)''<====differenza

E togli gli apici su quella successiva cioè
am2=(e-am):if am2<1 Then am2=am2+90 ‘Qui

ripeti X 9 e X 13 giocate e confronta le statistiche

non dovresti avere problemi , se si riscrivi.


Le grandezze fisiche che caratterizzano un moto oscillatorio
sono l'ampiezza e la frequenza.
°°°esselotto°°°

 

[esselotto]

‘’’’’’’’Ricerca QUADRATI di SOMMA su UNICA ruota
‘’’’’’’’’’’’’Prelevare solo Testo colorato Blu





''''''''''''Rintracciare un quadrato di somma unica in un'unica ruota

Sub main()
Dim somme(10)
Dim num(4)
Dim ruote(1)
Dim rt(2),pt(5),ptt(5),pte(5),ptq(5)
Dim nu(2),na(10),na1(4),na2(4),na3(4),na4(4),na5(4),na6(4)
Dim SI,co
pt(1)=1 : ptt(2)=1 : pte(3)=1: ptq(4)=1 ' del terno

ColoreTesto 1
Scrivi String(75,"*"),1
Scrivi "Quadrato di Somma, unica ruota, arcor ",1
Scrivi "Programmato da ***esselotto*** per ***arcor*** LottoCed",1
Scrivi String(75,"*"),1
ColoreTesto 0

indietro=CInt(InputBox ("Quante Estrazioni vuoi esaminare ?..","Quadrato di Somma",100))
If indietro= False Then Exit Sub
colpis=CInt(InputBox ("Colpi di gioco?..","Quadrato di Somma ",9))
If colpis= False Then Exit Sub
clp=colpis

ruote(1)=11
ini=EstrazioneFin -indietro
fin=EstrazioneFin

For es=ini To fin
AvanzamentoElab ini,fin,es
For r=1 To 12
If r=11 Then r=12
rt(1)=r

For p=1 To 2
For pp=p+1 To 3
a=Estratto (es,r,p)
b=Estratto (es,r,p+1)
x=p+2
som1=Fuori90 (a+b)
For k=p+1 To 4
For kk=k+1 To 5
c=Estratto (es,r,k)
d=Estratto (es,r,kk)

som2=Fuori90(c+d)
If som1=som2 And a<>c And b<>d And a<>d And b<>c Then
For j= 1 To 5
If j<>k Or j<>kk Or j<>p Or j<>pp Then
e=Estratto (es,r,j)
End If
Next


am=CInt (135-a-b-c-d)
Do Until am > 0
am = am + 90
Loop

am1=Fuori90(am+e)

am2=Abs(e-am)''<====differenza
''''am2=(e-am):if am2<1 Then am2=am2+90


a=Format2(a)
b=Format2(b)
c=Format2(c)
d=Format2(d)
e=Format2(e)
co=co+1

ColoreTesto 0
Scrivi String(75,"="),1
Scrivi String(75,"-") & " Caso N°" & co &" °",1

Scrivi DataEstrazione (es)&" "& SiglaRuota (r)&" "& StringaEstratti (es,r)& Chr(10)
Scrivi "Quadrati di somma "& so1 & " [ ("& a &"."& b &") ("& c &"."& d &") ]"& Chr(10)
Scrivi "Numero rimasto ----> "& e &chr(10)
'''''''''''''''''''''''----------------------------------------
nu(1)=am
ImpostaGiocata 1,nu,rt,pt,clp ' Ambata
na(1)=am
na(2)=am1
ImpostaGiocata 2,na,rt,ptt,clp ' ambo
ImpostaGiocata 3,na,ruote,ptt,clp ' ambo t
na1(1)=am
na1(2)=am2
ImpostaGiocata 4,na1,rt,ptt,clp ' ambo
ImpostaGiocata 5,na1,ruote,ptt,clp ' ambo t
na2(1)=am1
na2(2)=am2
ImpostaGiocata 6,na2,rt,ptt,clp ' ambo
ImpostaGiocata 7,na2,ruote,ptt,clp ' ambo t

na3(1)=am
na3(2)=am1
na3(3)=am2
ImpostaGiocata 8,na3,rt,pte,clp ' <==== metti apice ' per non giocare terno su ruota
ImpostaGiocata 9,na3,ruote,pte,clp '<==== metti apice ' per non giocare terno a tutte


''''''''''''----------------------------
Gioca es
End If
Next
Next
Next
Next
Next
Next
ColoreTesto 1
scrivi"°°°esselotto°°°",1

ScriviResoconto
End Sub

 

[Thauk]

Ciao a tutti. Purtroppo in questo periodo ho davvero poco tempo per seguire il forum e per creare script.
Ringrazio esselotto per averli fatti lui.

Ciao, alla prossima.

Fortuna non omnibus aeque.

 

[arcor]

grazie esselotto tutto a posto
bravo

 

[joi_lotto]

Ciao Esselotto.
Forse mi sono espresso male,il numero che metto io non è spia, ma
è un capogioco.

Grazie.

 

[esselotto]

quote:Originally posted by joi_lotto

Ciao ragazzi.
Non so se è una cosa fattibile ma se lo fosse lo script dovrebbe fare una ricerca del genere:
indico un numero su una determinata ruota e devo trovare i migliori
10 abbinamenti in ordine di percentuale dalla più alta alla più bassa, per AMBO e TERNO in un determinato MESE,la ricerca
dovrebbe partire dal 1871.
Se volete se potete Vi ringrazio.

Ciao.

mi trovavo in zona

indico un numero, o spio un numero, la differenza dov'è?

 

[joi_lotto]

Se dici che non c'è differenza ok.
Ma il Mese di ricerca </u> dove lo metto? e poi non</u> mi permette il salvataggio dopo la ricerca impostata

Grazie

Ciao

 

[joi_lotto]

.

 

[joi_lotto]

.

 

[joi_lotto]

!