RICHIESTA LISTATO "METODO PROGRESSIONE CONSECUTIVA"

[LuigiB]

dipende da quello che gli dici di fare tu.
La funzione ImpostaGiocata ha un parametro che serve per specificare a quale sorte interrompere la giocata
guarda l'help dello script

 

[Joe91]

si si ho notato e confermo in qualche modo il metodo controbilancia l'iniquita del giioco , empiricamente ineffetti e cosi se per ipotesi uno avesse giocato il metodo solo i ndetermianti periodi sarebbe andato in vincita ...
ciao

Ciao Luigi,

ovvio che quanto affermiamo, supportato da dati reali, appare "credibile"

ma, per serietà e per non illudere nessuno è opportuno ribadire che siamo a ragionarci col "senno di poi".

Quello che finge, di non conoscere il futuro ... che invece è passato, noto.

Ciò premesso ... in "analisi grafica" quello che conta sono "le pendenze" o "le inclinazioni" delle linee,

nei periodi più o meno brevi, in cui esse, rappresentano quanto si considera.

Ora, e, ciò premesso ... come ha detto Cesare i numeri sono tanti e gli Ambi si fanno attendere ... un pochino.

Ancora ... "Recuperare" "La Perdita" ... non è conveniente!

Equivale a Spendere per Perdere ... con certezza matematica.

Quindi: Meglio escludere "il recupero" del gioco di Estratto (ovvero escludere la Giocata 1)

oppure notare, come essa realizzi "con moda" al terzo colpo.

In sintesi (per essa) ho ridotto il numero di giocate ed escluso i primi colpi.

(Personalmente penso che quanto non giocato ... non può andare perso. Meglio non giocare questa sorte.

Analogamente ho introdotto l'attesa per il gioco ... anche dell'Ambo.

Sottolineo ancora una volte, che tutte le premesse precedentemente esposte ... non garantiscono NULLA per il futuro.

Sub Main()
	Scrivi "Metodo di cybercesare 'La progressione consecutiva' ",1,,2,4,4
	Dim ruota(10),ruote(11)
	Dim am(2),cinquina1(5),cinquina2(5),ambo1(2),ambo2(2),ambo3(2),ambo4(2),ambo5(2),ambo6(2)
	Dim posta(1),poste(5)
	posta(1) = 1
	poste(2) = 2
	ruote(1) = 11
	att = 3 : Co = 1
	KK = InputBox("Quante estrazioni vuoi verificare? ",,100)
	dis = CInt(InputBox("Inserisci la distanza (Ciclometrica)",,6))
	k = InputBox("Colpi di Gioco",,12)
	fin = EstrazioneFin
	For es = fin - kk To fin
		Messaggio " 'LA PROGRESSIONE CONSECUTIVA' DI CYBERCESARE'  " & DataEstrazione(es)
		Call AvanzamentoElab(fin - kk,fin,es)
		For r = 1 To 10
			If(r = FI_) And(r = MI_) Or(r = NA_) Or(r = PA_) Or(r = VE_) Then
				For p = 1 To 4
					For q = p + 1 To 5
						n1 = Estratto(es,r,p) : n2 = Estratto(es,r,q)
						If(Distanza(n1,n2) = dis) Then
							Scrivi String(106,"=") & " Caso n°" & CInt(co),1
							n4 = Fuori90(n1 + 1) '1 Ambata
							n5 = Fuori90(n2 + 1) '2 Ambata
							am(1) = n4
							am(2) = n5
							ritn4 = EstrattoRitardo(r,n4,Ini,es)
							ritn5 = EstrattoRitardo(r,n5,Ini,es)
							Scrivi DataEstrazione(es) & " - " & SiglaRuota(r) & " - " & StringaEstratti(es,r) & " Ambo " & Format2(n1) & "." & Format2(n2) & " Dist = " & Dis,1,,,1,2
							Scrivi "I relativi Ritardi delle AMBATE allo stato della ricerca giocata " & n4 & "." & n5 & " sono " & ritn4 & " - " & ritn5 & "  ",True,False,,7,3
							'Calcoli x Ambate
							If ritn4 <= 1 Or ritn5 <= 1 Then
								Scrivi  " ESCLUSA ",True,True,1,5,3
							Else
							Scrivi : Scrivi 
								co = co + 1
								ruota(1) = r
								ImpostaGiocata 1,am,ruota,posta,4,1,3
								somma = Fuori90(n1 + n2)
								ambo1(1) = am(1)
								ambo1(2) = somma
								ambo2(1) = am(2)
								ambo2(2) = somma
								ambo3(1) = Fuori90(am(1) + n1)
								ambo3(2) = Fuori90(am(2) + n2)
								ambo4(1) = Diametrale(ambo3(1))
								ambo4(2) = Diametrale(ambo3(2))
								ambo5(1) = Fuori90(ambo3(1)*2)
								ambo5(2) = Fuori90(ambo3(2)*2)
								ambo6(1) = 90 - ambo3(1)
								ambo6(2) = 90 - ambo3(2)
								ImpostaGiocata 2,ambo1,ruote,poste,k,2,att
								ImpostaGiocata 3,ambo2,ruote,poste,k,2,att
								ImpostaGiocata 4,ambo3,ruota,poste,k,2,att
								ImpostaGiocata 5,ambo4,ruota,poste,k,2,att
								ImpostaGiocata 6,ambo5,ruota,poste,k,2,att
								ImpostaGiocata 7,ambo6,ruota,poste,k,2,att
								Gioca es,1
								
							End If ' Controllo Ritardo Ambate 
						End If ' Distanze
					Next ' "2° Posiz (q)
				Next ' 1° Posiz (p)
			End If ' Selezione Ruote
		Next ' Ruote
		If ScriptInterrotto Then Exit For
	Next ' Es
	ColoreTesto 1 : Scrivi String(90,"*") & " Rev. By Joe.",1 : ColoreTesto 0 : Scrivi
	ScriviResoconto
End Sub

 

[LuigiB]

Ciao Joe tempo fa mi avevi detto di un problema che quando creavi gli exe dovevi sempre mettere cint se usavi un parametro dell'istruzione scrivi .
scarica questo file e incollalo nella directory dati del programma , ce n' è già uno con lo stesso nome percio ti chiedera di sostituirlo ovviamente di di si .. se non te lo dovesse chiedere stai sbagliando percorso.

exscpt

 

[Joe91]

Ciao Luigi.

Ho provato a sostituire il file che gentilmente hai allegato e ... NON c'è più questo errore.

Grazie.


Buona Giornata.

 

[LuigiB]

benisimo .. in realta l'errore non era un errore , in vb6 le variabili si possono tipizzare quindi ogn variabile ha un suo specifico tipo di dati , gli iscript invece usano solo un unico tipo il variat.
Quella funzione aveva il parametro grassetto dichiarato come boolean peercio lo dovevi passare o con cint o con cbool ..ora ho messo il parametrovariant cosi è conforme alle variabili dello script .. comunque usare le variant rallenta .. ove possibile si dovrebebro usare i tipi di dato appropriati.
ciao

 

[Joe91]

Ciao Luigi,

Ok. Grazie anche dell' informazione "a corredo",

devo dire che ero (forse male) abituato, o avevo ipotizzato erroneamente il "+1" come "True"

e lo "Zero" come "False" ottenendo ogni tanto delle insipegabili incompatibilità tra gli ambienti differenti.

Da questo nasceva la necessità di adattare, gli script con "Cint".

Poi ho capito il "-1" solo che uno un pò lento (e vecchio) come me, non sempre, ci arriva .. subito.

Con le tue indicazioni e correzioni ... va tutto meglio.

Buona serata.

 

[LuigiB]

a si ineffetti è considerato vero (true) tutto cio diverso da 0 (false) pero per convenzione true è -1 .. ciao

 

[cybercesare]

Ma c'è una funzione che mi indica quanti esiti negativi massimi consecutivi si sono verificati durante il periodo di ricerca selezionato?

 

[LuigiB]

a parte che una funzione simile la puoi programmare alla fine in uno dei grafici quest'informazione è in evidenza.