Richiesta listato metodo per ambata e ambo secco unico una ruota

« Older Newer »

Mavit

Posted on 31/1/2014, 13:19

Group:: Fan

Posts:: 11

Status:

Salve e complimenti per questo stupendo forum, vorrei fare richiesta per un listato di un metodo interessante sulla ruota di Bari formato da una ambata e un solo ambo secco questa la procedura: Ambata :terzo estratto di Cagliari+primo estratto di
nazionale+4. Abbinamento ambo:quarto estratto di Napoli
+secondo estratto di nazionale+19.Grazie mille

_max59

Posted on 1/2/2014, 08:37

Dovrebbe essere così:

Scrivi ColoreTesto (1) & Chr(10) & Space (11) & "Mavit per Superlotto sez. Listati e Script" & _
Chr(10) & Space (5) & "titolo: metodo per ambata e ambo secco unico una ruota" & _
Chr(10) & Chr(10) & String (66,"•") ,1
Scrivi ColoreTesto (0) & "Nota: approfondimenti: https://superlotto.blogfree.net/?t=4814885" & _
Chr(10) & Chr(10) & Space (6) & "Raccomandazione di rito: giocare moderatamente." & _
Chr(10) & String (66,"•") & Chr(10)

Sub main()

Dim nr(10)
Dim ruote(10)
Dim posta (5)
Dim n

fin = CInt (InputBox ("ultima estrazione da veriicare...","max",EstrazioneFin))
ini = CInt (InputBox ("estrazioni pregresse...","max",50))
k = CInt (InputBox ("colpi di gioco...","max",10))
posta(1) = 1
posta(2) = 1
ruote(1) = 1

For n = fin - ini +1 To fin

nr(1) = CInt (Fuori90 (Estratto (n,CA_,3) + Estratto (n,NZ_,1) + 4))
nr(2) = CInt (Fuori90 (Estratto (n,NA_,4) + Estratto (n,NZ_,2) + 19))

ImpostaGiocata 1,nr,ruote,posta,k
Gioca n

Next
ScriviResoconto
End Sub

---------------------------------------
Cordialità

Mavit

Posted on 1/2/2014, 10:42

Group:: Fan

Posts:: 11

Status:

Perfetto gentilissimo grazie mille Max, chiedo un altra cosa vorrei modificarlo in modo che faccia il calcolo solo alla prima estrazione del mese.

Edited by Mavit - 1/2/2014, 18:11

_max59

Posted on 1/2/2014, 18:32

Inserita la "ricerca mensile", opzione da scegliere tra le 13 possibili.
Cordialità

----------------------------

Scrivi ColoreTesto (1) & Chr(10) & Space (11) & "Mavit per Superlotto sez. Listati e Script" & _
Chr(10) & Space (5) & "titolo: metodo per ambata e ambo secco unico una ruota" & _
Chr(10) & Chr(10) & String (66,"•") ,1
Scrivi ColoreTesto (0) & "Nota: approfondimenti: https://superlotto.blogfree.net/?t=4814885" & _
Chr(10) & Chr(10) & Space (6) & "Raccomandazione di rito: giocare moderatamente." & _
Chr(10) & String (66,"•") & Chr(10)

Sub main()

Dim nr(10)
Dim ruote(10)
Dim posta (5)
Dim n

fin = CInt (InputBox ("ultima estrazione da veriicare...","max",EstrazioneFin))
ini = CInt (InputBox ("estrazioni pregresse...","max",50))
k = CInt (InputBox ("colpi di gioco...","max",10))
w = CInt (InputBox ("indice mensile (1...13)","max",1))
If w < 1 Or w > 13 Then
MsgBox ("ATTENZIONE!!!" & Chr(10) & Chr(10) &_
"Digitato valore non compreso nel range prestabilito." & Chr(10) & Chr(10) & Space (22) & "Corretto con il valore 1.")
w = 1
End If

posta(1) = 1
posta(2) = 1
ruote(1) = 1

For n = fin - ini +1 To fin

If IndiceMensile (n) = w Then
nr(1) = CInt (Fuori90 (Estratto (n,CA_,3) + Estratto (n,NZ_,1) + 4))
nr(2) = CInt (Fuori90 (Estratto (n,NA_,4) + Estratto (n,NZ_,2) + 19))

ImpostaGiocata 1,nr,ruote,posta,k
Gioca n
End If

Next
ScriviResoconto
End Sub

Mavit

Posted on 1/2/2014, 20:41

Group:: Fan

Posts:: 11

Status:

Ti ringrazio molto bravo e gentilissimo.

_max59

Posted on 9/3/2014, 17:21

Solo ora mi rendo conto di aver commesso un grossolano errore al quale pongo rimedio con il presente listato. Chiedo venia per l'inconveniente; ho aggiungo una piccola... utility che dovrebbe essere di aiuto nelle sue ricerche e nei suoi studi.

Cordilità

p.s.: le allego il file poichè il copia/incolla sembrerebbe non rispettare la formattazione del testo.
------------------------------------------------------------------------------------------

Scrivi ColoreTesto (1)
Scrivi Space (11) & "Mavit per Superlotto sez. Listati e Script"
Scrivi Space (5) & "titolo: metodo per ambata e ambo secco unico una ruota"
Scrivi Chr(10) & String (66,"=") ,1
Scrivi ColoreTesto (0) & "Nota: approfondimenti: https://superlotto.blogfree.net/?t=4814885"
Scrivi Chr(10) & Space (6) & "Raccomandazione di rito: giocare moderatamente."
Scrivi ColoreTesto (1) & String (66,"="),1
Scrivi ColoreTesto (0)

Sub main()

Dim nr(10)
Dim ruote(10)
Dim posta (5)
Dim n

fin = CInt (InputBox ("ultima estrazione da verificare..."," max",EstrazioneFin))
ini = CInt (InputBox ("estrazioni pregresse..."," max",150))
k = CInt (InputBox ("colpi di gioco..."," max",10))
dom1 = InputBox ("vuoi imporre alla ricerca un indice mensile? (s/n)"," DOMANDA NR. 01","n")
If dom1 = "s" Then
dom2 = InputBox ("vuoi una lista sul valore 13 o 14?"," DOMANDA NR. 02","s")
If dom2 = "s" Then
dom3 = CInt (InputBox ("indice mensile da ricercare"," DOMANDA NR. 03",14))
For j = fin - ini To fin
If IndiceMensile (j) = dom3 Then MsgBox (DataEstrazione (j) & " - C o n c . n r . " & j) _
,64," L i s t a d e l " & dom3 & "e s i m o i n d i c e m e n s i l e"
Next
dom4 = CInt (InputBox ("quale indice mensile ricerchi?"," DOMANDA NR. 04",1))
If dom4 < 1 Or dom4 > 14 Then dom4 = 1
Else
dom4 = CInt (InputBox ("allora, quale indice mensile ricerchi?"," DOMANDA NR. 04",1))
If dom4 < 1 Or dom4 > 14 Then dom4 = 1
End If
Else
dom4 = CInt (InputBox ("allora, quale indice mensile ricerchi?"," 0 = TUTTI GLI INDICI MENSILI",1))
If dom4 > 14 Then dom4 = 1
End If

posta(1) = 1
posta(2) = 1
ruote(1) = 1

If dom4 = 0 Then
For n = fin - ini + 1 To fin
nr(1) = CInt (Fuori90 (Estratto (n,CA_,3) + Estratto (n,NZ_,1) + 4))
nr(2) = CInt (Fuori90 (Estratto (n,NA_,4) + Estratto (n,NZ_,2) + 19))
ImpostaGiocata 1,nr,ruote,posta,k
Gioca n
Next
Else
For n = fin - ini + 1 To fin
If IndiceMensile (n) = dom4 Then
nr(1) = CInt (Fuori90 (Estratto (n,CA_,3) + Estratto (n,NZ_,1) + 4))
nr(2) = CInt (Fuori90 (Estratto (n,NA_,4) + Estratto (n,NZ_,2) + 19))
ImpostaGiocata 1,nr,ruote,posta,k
Gioca n
End If
Next
End If

ScriviResoconto
Scrivi " B U O N A F O R T U N A !",1
End Sub

Download attachment
mavit_01.ls ( Number of downloads: 203 )

Mavit

Posted on 12/3/2014, 05:35

Group:: Fan

Posts:: 11

Status:

Grazie

6 replies since 31/1/2014, 13:19 1076 views