alla cortese attenzione di chi si vuole cimentarsi con questo script

[vincenzo1957]

'METODO OMEGA - V.PURPURA
'Bisogna rintracciare su 2 ruote,un numero uguale ed isotopo.
'Ad esso calcoleremo il Diametrale 45 ed il Diametrale In Decina,al Diametrale 45 calcoleremo il Diametrale In decina.
'Abbiamo Così ricavato 2 ambi In decina.A questo punto si sommano i numeri di uguale Cadenza,ed il risultato (senza fuori 90) si divide x 2 ,
'ricavando Così i 2 abbinamenti per ambo da acoppiare al numero ripertuto.
'Es. del 18/09/1999 N° 75 BARI 88 TORINO 88
'88 + 45 = 43 88 - 5 = 83 43 + 5 =48
'88 + 48 = 136 136 / 2 = 68
' ABBINAMENTI
'43 + 83 = 126 126 /2 = 63
'PREVISIONE: 88-68 88-63 AMBI A TUTTE
'ESITO: 7° COLPO AMBO 88-68 SU TORINO.

Sub Main()
ColoreTesto 1
Scrivi String(70," ") & "METODO OMEGA - V.PURPURA",1
Scrivi String(70," ") & "listato by PURPURA VINCENZO ",1
ColoreTesto 0
Dim abb(20),n(20)
Dim ruota(10),ruote(1),poste(5),ambo1(2),ambo2(2),ambo 3(2),ambo4(2),terno1(3),terno2(3),terno3(3)
poste(1) = 1 'gioco ambata
poste(2) = 1 'gioco ambo 1 €
'poste(3) = 0.5 'gioco terno 0.5 €
'poste(4) = 1 'gioco quaterna
'poste(5) = 1 'gioco cinquina
'k = 3 '<---numero colpi
'ROUTINE NUMERO ISOTOPO SU 2 RUOTE
ruote(1) = 11
ce = InputBox("da quale estrazione vuoi controllare? ","estrazione",9000) '7115 metodo
k = InputBox("per quanti colpi?","colpi di gioco",10)
ini = ce
fin = EstrazioneFin
Scrivi "Resoconto da " & DataEstrazione(ini,1) & " a " & _
DataEstrazione(fin,1) & " (" &(fin - ce) & " estr.)"
For es = ini To EstrazioneFin
Messaggio "elab. estr. [" &(es) & "] di " & _
DataEstrazione(es,1)
For r1 = 1 To 10
For p1 = 1 To 5
a = Estratto(es,r1,p1)
r2 = r1 + 1 ' per ruote consecutive (con ba e ve)
If r1 = 10 Then r2 = 1 End If 'per ruote consecutive (con ba e ve)
For p2 = 1 To 5
b = Estratto(es,r2,p2)
If p1 = p2 Then
If a = b Then
'co = co + 1
ColoreTesto 1
Scrivi "-----------------------"
Scrivi DataEstrazione(es) & " " & Left(NomeRuota(r),2) & " " & Format2(a) & "-" & Format2(b)
Scrivi "-----------------------"
'
' eventuali conteggi e giocate si mettono qui
'
amb1 = Diametrale(a)
amb2 = DiametraleD(a)
amb3 = DiametraleD(amb1)
ColoreTesto 2
'Scrivi CStr(a) & "---" & CStr(b)
ColoreTesto 2
Scrivi
som1 =(a + amb3)/2
som2 =(amb1 + amb2)/2
abb(1) =(a)
abb(2) = som1
abb(3) = som2
abb(3) = amb3
n(1) = som1
n(2) = som2
n(3) = amb3
'Scrivi"Numeri abbinamento " & Format2(n(1)) & "." & Format2(n(2)) & _
'"." & Format2(n(3)) & "." & Format2(n(4))
ruota(1) = r1
ruota(2) = r2
ruote(1) = 11
ambo1(1) = abb(1)
ambo1(2) = abb(2)
ImpostaGiocata 1,ambo1,ruota,poste,k,1
ambo2(1) = abb(1)
ambo2(2) = abb(3)
ImpostaGiocata 2,ambo2,ruota,poste,k,1
ambo3(1) = abb(1)
ambo3(2) = abb(2)
ImpostaGiocata 3,ambo3,ruota,poste,k,1
ambo2(1) = abb(1)
ambo2(2) = abb(3)
'ImpostaGiocata 4,ambo4,ruote,poste,k,1
'terno2(1) = amb1
'terno2(2) = abb1
'terno2(3) = abb2
'ImpostaGiocata 5,terno2,ruota,poste,k,1
'terno3(1) = amb1
'terno3(2) = abb2
'terno3(3) = abb3
'ImpostaGiocata 6,terno3,ruota,poste,k,1
Scrivi
'Tabella Giocate
Scrivi " AMBI " & Format2(a) & " " & Format2(som1) & " -------- " & Format2(a) & " " & Format2(som2)'<---- ambi
'Scrivi " TERNI " & Format2(amb1) & " " & Format2(abb1) & " " & Format2(abb2) & " -------- " & Format2(amb1),0,0'<----terni
Scrivi " " & Format2(abb1) & " " & Format2(abb3)
'Scrivi " QUATERNE " & Format2(capg) & " " & Format2(diff2) & " " & Format2(som4) & " " & Format2(som2),0,0 '<---quaterne
'Scrivi " ----- " & Format2(capg) & " " & Format2(som1) & " " & Format2(som4) & " " & Format2(som2)
'Scrivi " CINQUINE " & Format2(capg) & " " & Format2(diff2) & " " & Format2(som4) & " " & Format2(som2),0,0 '<--- cinquine
'Scrivi " " & Format2(vesom2) & " -- " & Format2(capg) & " " & Format2(som1) & " " & Format2(som4),0,0
'Scrivi " " & Format2(som2) & " " & Format2(vesom2)
'Scrivi
Gioca es
End If
'End If
'Next
'Next
End If
Next
Next
Next
Next
ColoreTesto 1
Scrivi : Scrivi
Scrivi " CASI TROVATI : " & co
ColoreTesto 0
ScriviResoconto
ColoreTesto 1
Scrivi String(70,"=") & "listato by PURPURA VINCENZO ",1
ColoreTesto 0
End Sub

sto cercando di imparare a fare qualche script pure io,ma mi sono perso.
In pratica dovrei ricavare 2 ambi sulle ruote ma SOPRATTUTTO il gioco a tutte,come si fà?
nell'esempio riportato il risultato non lo da.
P.S. non fate caso alle linee in verde,per ora mi servono a capire cosa faccio

 

[Beppignello]

ciao

basta che sistemi questa riga

ti metto le 3 righe

ruota(1) = r1
ruota(2) = r2
ruota(3) = 11


anziché la riga Ruote(1) = 11 deve essere ruota(3) = 11

così quando fa la verifica dei risultati oltre alle 2 ruote controlla eventuali uscite a tutte le ruote
il riepilogo contempla gli ambi a tutte oltre agli estratti a tutte poco significativi per il metodo
su ruota.


ci sarebbero delle altre cose da sistemare

26 ambi a tutte su 157 casi esaminati mi sembrano un po pochi

 

[vincenzo1957]

risolto il problema grazie al suggerimento di beppignello.posto anche lo script che ho fatto

Sub Main()
ColoreTesto 1
Scrivi String(71," ") & "METODO OMEGA - V.PURPURA",1
Scrivi String(70," ") & "listato by PURPURA VINCENZO ",1
ColoreTesto 0

Dim ruote(10)
Dim abb(20)
Dim ambo1(2)
Dim ambo2(2)
Dim ambo3(2)
Dim ambo4(2)
Dim ambo5(2)
Dim poste(2)
poste(2) = 1
inizio = InputBox("INSERISCI L'ESTRAZIONE DI PARTENZA :",,6800)
k = InputBox("INSERISCI I COLPI DI GIOCO",,7)
ini = inizio
fin = EstrazioneFin
For es = ini To fin
AvanzamentoElab ini,fin,es
For r1 = 1 To 9
For r2 = r1 + 1 To 10
If r2 = 11 Then r2 = 12
For p1 = 1 To 4
For p2 = p1 + 1 To 5
a = Estratto(es,r1,p1) : b = Estratto(es,r2,p2)
'c = Estratto(es,r2,p) : d = Estratto(es,r2,p1)
If a = b Then
ColoreTesto 1
Scrivi "-----------------------"
Scrivi DataEstrazione(es) & " " & Left(NomeRuota(r),2) & " " & Format2(a) & "-" & Format2(b)
Scrivi "-----------------------"

ruote(1) = r1 : ruote(2) = r2 : ruote(3) = 11
amb1 = Diametrale(a)
amb2 = DiametraleD(a)
amb3 = DiametraleD(amb1)
ColoreTesto 2
Scrivi CStr(a) & "---" & CStr(c)
ColoreTesto 2
Scrivi
som1 =(a + amb3)/2
som2 =(amb1 + amb2)/2
abb(1) =(a)
abb(2) = som1
abb(3) = som2
abb(4) = amb3
ambo1(1) = abb(1)
ambo1(2) = abb(2)
ImpostaGiocata 1,ambo1,ruote,poste,k,1
ambo2(1) = abb(1)
ambo2(2) = abb(3)
ImpostaGiocata 2,ambo2,ruote,poste,k,1
'ambo3(1) = abb(1)
'ambo3(2) = abb(4)
'ImpostaGiocata 3,ambo3,ruote,poste,k,1
Scrivi
'Tabella Giocate
Scrivi " AMBI " & Format2(a) & " " & Format2(som1) & " -------- " & Format2(a) & " " & Format2(som2)'<---- ambi
'Scrivi " TERNI " & Format2(amb1) & " " & Format2(abb1) & " " & Format2(abb2) & " -------- " & Format2(amb1),0,0'<----terni
Scrivi " " & Format2(abb1) & " " & Format2(abb3)
'Scrivi " QUATERNE " & Format2(capg) & " " & Format2(diff2) & " " & Format2(som4) & " " & Format2(som2),0,0 '<---quaterne
'Scrivi " ----- " & Format2(capg) & " " & Format2(som1) & " " & Format2(som4) & " " & Format2(som2)
'Scrivi " CINQUINE " & Format2(capg) & " " & Format2(diff2) & " " & Format2(som4) & " " & Format2(som2),0,0 '<--- cinquine
'Scrivi " " & Format2(vesom2) & " -- " & Format2(capg) & " " & Format2(som1) & " " & Format2(som4),0,0
'Scrivi " " & Format2(som2) & " " & Format2(vesom2)
'Scrivi
Gioca es
End If
Next
Next
Next
Next
Next
ColoreTesto 1
Scrivi : Scrivi
Scrivi " CASI TROVATI : " & co
ColoreTesto 0
ScriviResoconto
ColoreTesto 1
Scrivi String(70,"=") & "listato by PURPURA VINCENZO ",1
ColoreTesto 0
End Sub

ripeto di non fare caso alle linee in verde,perchè mi servono per capire cosa faccio
grazie dell'attenzione.

 

[joe]

Ciao Vincenzo nel tuo script ci sono errori,

che mi permetto di evidenziare, suggerendo alcune spunti per migliorarlo.

For r1 = 1 To 9
For r2 = r1 + 1 To 10
If r2 = 11 Then r2 = 12
For p1 = 1 To 4
For p2 = p1 + 1 To 5
a = Estratto(es,r1,p1) : b = Estratto(es,r2,p2)
'c = Estratto(es,r2,p) : d = Estratto(es,r2,p1)
If a = b Then
ColoreTesto 1
Scrivi "-----------------------"
Scrivi DataEstrazione(es) & " " & Left(NomeRuota(r),2) & " " & Format2(a)

Per questo propongo alcuni semplicissimi script (tutti in uno).

Come vedi eseguendoli ...

Quanto hai scritto cioè quanto ho preso dal tuo programma,

genera "solo" 45 combinazioni di ruote ... quando invece ne volevi 55.

In sintesi mancherebbero TUTTE le combinazioni che si formano con la Nazionale.

Ma prima ancora della correzione ... volevo chiederti

se lo script è scritto così perchè è per L8 (in una vecchia versione) ?

Option Explicit
Sub Main
	' I°
	Dim R,r1,r2,k
	For R = 1 To 10
		Scrivi R
	Next
	' II°
	Scrivi
	For R = 1 To 10
		Scrivi Left(SiglaRuota(R),2) & "-" & Left(SiglaRuota(R + 1),2)
	Next
	' III° = tuo modificato con contatore
	Scrivi
	For r1 = 1 To 9
		For r2 = r1 + 1 To 10
			If r2 = 11 Then r2 = 12
			k = k + 1
			Scrivi Format2(k) & "  " & Left(SiglaRuota(r1),2) & "-" & Left(SiglaRuota(r2 + 1),2)
		Next
	Next
	' IV° Calcolo Combinatorio
	' combinazioni di 11 Ruote , a coppie di 2  
	Scrivi 
	Scrivi Combinazioni (11,2)
End Sub

 

[salvo50]

Ciao a Tutti!

Troppo forte la funzione <Combinazioni>, mi eviterà in seguito di calcolare con carta e penna, ad esempio quante cinquine si formano in un gruppo di 10 numeri.

Il terzo scriptino, dove hai aggiunto il contatore K, io l'avrei fatto diversamente così:

 Sub Main
For r1 = 1 To 10
        For r2 = r1 + 1 To 11
            If r2 = 11 Then r2 = 12
            k = k + 1
            Scrivi Format2(k) & "  " & Left(SiglaRuota(r1),2) & "-" & Left(SiglaRuota(r2),2)
        Next
    Next
End Sub

La mia domanda è, c'è un motivo particolare del perchè l'hai fatta in quel modo, oppure è stata un svista?

 

[joe]

Ciao Salvo.

In premessa al messaggio #4 ho scritto che c'erano errori

che "volevo" dapprima evidenziare e poi correggere.

Li ho riportati citandoli e con il mio script li ho posti in evidenza.

Commentando così:

"quanto ho preso dal tuo programma,

genera "solo" 45 combinazioni di ruote ... quando invece ne volevi 55."

Evidentemente Vincenzo ha preferito interessarsi ad altro e proporre altro.

E' suo diritto.

 

[salvo50]

Ciao Joe!

Quindi, hai riportato l'errore, io avevo capito che l'avevi corretto, per questo mi sembrava strano che dopo la tua correzione (che non era correzione) generasse di nuovo 45 combinazioni di ruote.

 

[joe]

Ciao Salvo.

Mhmhmh ... mi fai notare che

è sbagliato pure in titolo nel tratto, ove, si evoca l 'attenzione!

Nel messaggio #4 ho scritto un paio di cose tra cui:

"MA PRIMA ANCORA DELLA CORREZIONE ... volevo chiederti (ed era domanda a Vincenzo. N.D.R.)

se lo script è scritto così perchè è per L8 (in una vecchia versione) ?"

L'ho scritto perchè, oltre ad esserci errori, essi sono di difficile interpretazione.

Sono vecchi ed inspiegabili.

Dunque prima di correggere, si trattava di capirne il perchè.

Ovvero se, Vincenzo, "ha scritto così" per errore

o perchè ha la necessità di usare il programma in un determinato ambiente.

Senza queste indicazioni anche le correzioni possono essere sbagliate.

Ovvero potrebbero essere giuste per Spaziometria ma sbagliate per una vecchia versione di L8.

Tutto qui.

La mia era solo sana curiosità finalizzata all' essere utile.



Nota questo:

"Left(SiglaRuota(r1),2)" è sintassi sbagliata ... per L8 nelle sue versioni più vecchie.

(Se confronti, vedi che Vincenzo questa parte dello script, non l'ha scritta così.)

Lui però, "non ha effettuato" il calcolo della Nazionale, per l'errore già evidenziato.

DALLA CORREZIONE di questo errore NASCE UN ALTRO problema.

Esso è difficile da immaginare ... se non si hanno anche pronostici con la Nazionale.

Questo perchè non essendo calcolati. semplicemente non ci sono.

Lo sintetizzo così: CON "2 LETTERE" NON SI PUO' DISTINGUERE

TRA "Na" di Napoli .e. "Na" di Nazionale.

Cioè con le 2 lettere restituite da "Left((NomeRuota(Rx) ,2) (Ovvero, come era scritto).

Poi ancora, sarebbe stato necessario un accenno "alla sospensione" dell' "a Capo".

Anche "questa modalità" era usata così molti anni fa.

Pertanto, tutti questi fatti mi hanno indotto a credere sia uno script, datato.

Script di un tempo in cui, certe cose, si scrivevano in un certo modo ed oggi paiono e sono strane.

Ma di esse ci potrebbe essere la necessità.

Senza saperlo ... non si può decidere su come come comportarsi nelle correzioni.