X Baffo

[morena59]

Ciao Baffo,
Apro questo post per ringraziarti degli aiuti che dai a destra e a manca e sopratutto le idee
messe a disposizione.Prendendo il tuo ultimo listato ho provato a smanettare un po per
cercar di arrivare all'ambata determinata a ruota.Ovviamente bisogna perderci del tempo
ma sono consapevole che la fortuna bisogna cercarla.Detto ciò, vediamo se nei
prossimi 4 colpi esce il 37 su BA-CA in 1° e 2° pos non tralasciando l'ambata semplice

Sub Main()ColoreTesto 1
Scrivi "========= M E T O D O B Y B A F F O B L U =========",1
ColoreTesto 0
Scrivi "========== 2 AMBATE DETERMINATE IN 1° 2° 3° 4° 5° POSIZIONE ========",1
ColoreTesto 1
Scrivi "======================== T U T T E =========================",1
ColoreTesto 0
Scrivi "== INIZIO RICERCA 03/01/2011 = FINE RICERCA: 28/01/2012 ==",1
Scrivi
ColoreTesto 0
Dim ruota(2)
Dim poste6(10)
Dim poste7(10)
Dim poste8(10)
Dim poste9(10)
Dim poste10(10)
Dim n(2)
poste6(6) = 1
poste7(7) = 1
poste8(8) = 1
poste9(9) = 1
poste10(10) = 1
clp = 6
ini = EstrazioneFin - 168
fin = EstrazioneFin
co = 0
For es = ini To fin
Messaggio es
ruota(1) = 1
ruota(2) = 2


For r1 = 1 To 1
For r2 = r1 + 1 To 2
For p = 1 To 4
For p1 = p + 1 To 5
a = Estratto(es,r1,p)
b = Estratto(es,r2,p1)
'-------------------------------------------------------------------
ok = 0
If Fuori90(a + b) = 45 Then
n(1) = 37
'n(2) = b
ok = 1
End If
'-------------------------------------------------------------------
If ok = 1 Then
co = co + 1
Scrivi String(70,"°") & " Caso n°" & co,1
Scrivi DataEstrazione(es) & " " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & " - " & SiglaRuota(r2) & " " & StringaEstratti(es,r2) & " SPIE BY BAFFOBLU: " & a & " - " & b,1
Scrivi String(70,"°"),1
ruota(1) = 1
ruota(2) = 2


Call ImpostaGiocata(1,n,ruota,poste6,clp,6)
Call ImpostaGiocata ( 2,n,ruota,poste7,clp,7)
'Call ImpostaGiocata(3,n,ruota,poste8,clp,8)
'Call ImpostaGiocata ( 4,n,ruota,poste9,clp,9)
'Call ImpostaGiocata ( 5,n,ruota,poste10,clp,10)
Gioca es
End If
Next
Next
Next
Next
Next
ScriviResoconto
End sub

 

[Baffoblu]

x antelao

Attento

Quello script fu postato esclusivamente
per testare un anomalia nel programma spaziometria.

 

[morena59]

Certamente l'attenzione viene prima!Sembra cmq che trattandosi di pochi casi,
anche a occhio il resoconto sembra esatto.Tengo monitorato il tutto

 

[Baffoblu]

ok va bene.


Ho letto che hai problemi con il portatile
e con spaziometria.
Che tipo di problemi ?

 

[morena59]

Si infatti,
mi son fatto il regalo di Natale e...tra una cosa e l'altra lo ho acceso ieri.
Ho solo installato Spaziometria 1.3.30 e un antivirus free.Sta di fatto che quando ho aperto
il programma Spaziometria si è bloccato subito non permettendomi di fare niente.
Ora ogni volta che avvio il portatile si blocca al primo click e sono costretto a togliere
la batteria per spegnerlo.Purtroppo Window7 è una novità per me e....
sicuramente ho fatto qualcosa che non dovevo fare

 

[Baffoblu]

Si infatti,
mi son fatto il regalo di Natale e...tra una cosa e l'altra lo ho acceso ieri.
Ho solo installato Spaziometria 1.3.30 e un antivirus free.Sta di fatto che quando ho aperto
il programma Spaziometria si è bloccato subito non permettendomi di fare niente.
Ora ogni volta che avvio il portatile si blocca al primo click e sono costretto a togliere
la batteria per spegnerlo.Purtroppo Window7 è una novità per me e....
sicuramente ho fatto qualcosa che non dovevo fare

Sicuramente si.

Potresti fare delle cose per prova.

1°) - prima di avviare spaziometria,
prova a disabilitare del tutto l'antivirus.

2°) - se rimani impallato, prova a usare il Task Manager...


Togliere la batteria ti porta solo ad incrementare i danni.

 

[morena59]

Il PC si impalla alla prima cosa io faccio,infatti ho tentato di togliere di mezzo l'antivirus
credo che possa dipendere da quello.Ho voluto provare un antivis nuovo,di solito uso AVIRA e invece ho installato
AVAST.Dimmi della funzione Task manager che faccio una prova e poi ti faccio sapere

 

[Baffoblu]

Il PC si impalla alla prima cosa io faccio,infatti ho tentato di togliere di mezzo l'antivirus
credo che possa dipendere da quello.Ho voluto provare un antivis nuovo,di solito uso AVIRA e invece ho installato
AVAST.Dimmi della funzione Task manager che faccio una prova e poi ti faccio sapere

Qua le cause possono essere moltepicli
Hai disinstallato il vecchio antivirus
in maniera corretta ?

Per il Task manager, se non sai
nemmeno cosè, è meglio che lo lasci stare.
Comunque io ho XP, tu avendo W 7
il task manager mi sembra che si chiama in un altro modo.

Comunque, io al posto tuo non ci penserei due
volte a fare un ripristino di sistema,
tagliando la testa al toro.

Scusa ma chi te lo ha venduto
non ti ha dato il disco di ripristino ?

 

[morena59]

Eheheheh!!!Allarme cessato,sono riuscito dopo alcune ricerche in internet a fare qualcosa.
Sono riuscito a disinstallare l'antivirus e ora funziona tutto correttamente.
Cmq leggendo qua e la sembra che Windows7 abbia alcuni problemi,cosa che...
con Vista non avevo.Grazie x gli aiuti nella vita non si è capaci di far tutto!

 

[Romana]

Eheheheh!!!Allarme cessato,sono riuscito dopo alcune ricerche in internet a fare qualcosa.
Sono riuscito a disinstallare l'antivirus e ora funziona tutto correttamente.
Cmq leggendo qua e la sembra che Windows7 abbia alcuni problemi,cosa che...
con Vista non avevo.Grazie x gli aiuti nella vita non si è capaci di far tutto!

Scusate se intervengo...
Antelao, appena avrai preso la mano con Seven sarai di tutt'altro avviso, te lo garantisco!!!
E' semplicemente ottimo!

p.s.: "task manager" in Seven è "gestione attività" e si attiva velocemente sulla barra in basso col destro mouse

 

[Baffoblu]

ok, tutto risolto

ciao

 

[morena59]

Scusate se intervengo...
Antelao, appena avrai preso la mano con Seven sarai di tutt'altro avviso, te lo garantisco!!!
E' semplicemente ottimo!

p.s.: "task manager" in Seven è "gestione attività" e si attiva velocemente sulla barra in basso col destro mouse

Grazie Romana,ho appreso il tutto leggendo su Google.Non metto in dubbio la tua valutazione
devo solo prenderci la mano,proprio ora mi sta facendo un aggiornamento grande come una casa.
Grazie ancora a tutti