RICHIESTA SCRIPT (già pronto)

[Roby]

Chiedo Gentilmente a chi ha uno script gia pronto che mi controlli
la frequenza ciclica. Tipo
Scelta ruota
VADO 400 ESTRAZIONI A RITROSO
E INIZIO A CONTROLLARE LE FREQUENZE DI OGNI SINGOLO NUMERO
IN 3 PERIODI DI 18 ESTRAZIONI CIASCUNO.
E ALL FINE MI DIA UNO SPECCHIETTO DI QUESTO TIPO.

1° ciclo
esempio 54 estrazioni a ritroso
freq zero numeri --------------------------
freq uno  numeri --------------------------
freq due  numeri --------------------------
freq tre  numeri --------------------------
ecc
2° ciclo
Successive 18 estrazioni 36 estrazioni a ritroso
freq zero numeri --------------------------
freq uno  numeri --------------------------
freq due  numeri --------------------------
freq tre  numeri --------------------------
ecc

3° ciclo
ultime 18 estrazioni estrazioni a ritroso
freq zero numeri --------------------------
freq uno  numeri --------------------------
freq due  numeri --------------------------
freq tre  numeri --------------------------
ecc

con possibilità c he mi faccia poi il confronto fra i vari cicli 

esempio il numero 22 deve avere frequenza 2 sul 1° ciclo
                                frequenza 2 sul secondo ciclo
                                frequenza 2 sul terzo ciclo  
METTO IN GIOCO IL NUMERO 22 


CHIARAMENTE CHE GIRI ALLA PERFEZIONE SU SPAZIOMETRIA
[b]script gia pronto[/b]  ho voluto sottolineare questa parola perchè altrimenti cercherò di programmarlo da solo.

 

[Roby]

ciao


io ho questo pezzo pronto:
non fa tutto quello che vuoi, ma è una piccola parte già fatta.

Sub Main()
	'''''presenze in tre cicli di 18
	r = InputBox("inserire Ruota ",,1)
	ln = InputBox("lunghezza del ciclo...",,18)
	fin = InputBox("Dall'estrazione...",,EstrazioneFin)
	ini = fin - ln
	For cic = 1 To 3
		Scrivi
		ColoreTesto 1
		Scrivi "Ruota di...." & NomeRuota(r) & "     " & Format2(cic) & " ciclo presenze...dal....al....." & Ini & "/" & DataEstrazione(Ini) & "   -    " & fin & "/" & DataEstrazione(fin)
		ColoreTesto 0
		lancio = Getfrequenza(Ini,fin,r)
		Ini = Ini - ln - 1
		fin = fin - ln - 1
	Next
End Sub
''''-------------------------------------------------------------------------------------------
Function Getfrequenza(Ini,fin,r)
	Dim nm(90)
	Dim freq(90)
	Dim rt(1)
	rt(1) = r
	For q = 1 To 90
		freq(q) = 0
	Next
	For n = 1 To 90
		nm(1) = n
		freq(n) = SerieFreq(Ini,fin,nm,rt,1)
	Next
	'''al ritardo
	For x = 0 To 18
		ritardo = ""
		For y = 1 To 90
			If x = freq(y) Then ritardo = ritardo & Format2(y) & " "
		Next
		If ritardo <> "" Then Scrivi "Presenze..." & Format2(x) & " ....serie...." & ritardo
	Next
End Function
''''-------------------------------------------------------------------------------------------

-----------------------------
hobby e passatempo, il bello dello studio e della ricerca

Non giocare i miei numeri, sono derivanti da studi teorici e sperimentazioni.

 

[Roby]

quote:Originally posted by esselotto

Chiedo Gentilmente a chi ha uno script gia pronto che mi controlli
la frequenza ciclica. Tipo
Scelta ruota
VADO 400 ESTRAZIONI A RITROSO
E INIZIO A CONTROLLARE LE FREQUENZE DI OGNI SINGOLO NUMERO
IN 3 PERIODI DI 18 ESTRAZIONI CIASCUNO.
E ALL FINE MI DIA UNO SPECCHIETTO DI QUESTO TIPO.

1° ciclo
esempio 54 estrazioni a ritroso
freq zero numeri --------------------------
freq uno  numeri --------------------------
freq due  numeri --------------------------
freq tre  numeri --------------------------
ecc
2° ciclo
Successive 18 estrazioni 36 estrazioni a ritroso
freq zero numeri --------------------------
freq uno  numeri --------------------------
freq due  numeri --------------------------
freq tre  numeri --------------------------
ecc

3° ciclo
ultime 18 estrazioni estrazioni a ritroso
freq zero numeri --------------------------
freq uno  numeri --------------------------
freq due  numeri --------------------------
freq tre  numeri --------------------------
ecc

con possibilità c he mi faccia poi il confronto fra i vari cicli 

esempio il numero 22 deve avere frequenza 2 sul 1° ciclo
                                frequenza 2 sul secondo ciclo
                                frequenza 2 sul terzo ciclo  
METTO IN GIOCO IL NUMERO 22 


CHIARAMENTE CHE GIRI ALLA PERFEZIONE SU SPAZIOMETRIA
[b]script gia pronto[/b]  ho voluto sottolineare questa parola perchè altrimenti cercherò di programmarlo da solo.

bravo....fai cosi'.......fattelo da solo.....(e non urlare quando chiedi qualcosa a qualcuno...).......e che diamine!!!!u po' di buona creanza.........

SUERTE !!!!

 

[esselotto]

per Rubino grazie provo a controllare se fà quello che cerco

 

[esselotto]

per Artemisio
NON CAPISCO COSA INTENDI PER URLARE.
SE MI SPIEGHI COME SI URLA SCRIVENDO TI PREMIO.
QUESTA MI E' NUOVA MAI SENTITO IN VITA MIA.
BOHHHH. FAI UN PO' IL PROFESSORE DAMMI LA SPIEGAZIONE.

 

[esselotto]

DIMENTICAVO DATO CHE CI SEI. INSEGNAMI ANCHE LA CREANZA.

SE MI DICI LE PAROLE CHE HANNO OFFESO SCRIVILE PURE.
POI TI RISPONDO..

 

[esselotto]

[?][?][?][?]

 

[esselotto]

quote:Originally posted by rich

siete ancora a questo livello?

Quando si scrive su internet( chat ,forum,mail ect ect) e si scrive maiuscolo, lo scrivere maiuscolo è appunto URLAREEEEEEEEEEE


start --- pannello di controllo ---- windows update

fatevi un aggiornamento..[8D]

rich





IO SCRIVO IN MAIUSCOLO PER SOTTOLINEARE LE PAROLE (di importanza nell'argomento)
E LE SOTTOLINEO COLORANDOLE PER EVIDENZIARLE( se non ti piace il rosso ci mettiamo un verde o un fucsia)
(e con questa grandezza del font che vuol dire ? Che ho urlato talmente, che me sò
letteralmente cagato adosso)

 

[esselotto]

............................................


E DITEMI STI PUNTINI CHE SIGNIFICANO ? ve li spiego io

quelli sono punti che chiudono un argomento in modo un po diciamo arrabbiato.
OPPURE
CHE MA TREMATO LA MANO SUR TASTO
O MAGARI ME SO PERSO QUARCOSA SOTTO AL TASTO e nun riesco a cavarla fuori
O PER ESSERE MALEDUCATO, DATO CHE HO AVUTO MAL DE PANCIA,E VOLEVO ANDARE AR CESSO
PER ALZARME ME SO APPOGIATO SULLA TASTIERA E GUARDA CASO ERA IL TASTO CON ER PUNTO.

Misteri della vita.

 

[esselotto]

Per finire do la spiegazione fisica

IL SUONO E LA PROPAGAZIONE DI UN'ONDA ACUSTICA ATTRAVERSO L'ARIA (che ne fà da mezzo di propagazione)

SCRITTE SUL MONITOR DEL COMPUTER. SONO PIXEL CHE SI COLORANO DANDO FORMA HA PAROLE O IMMAGINI

MENTRE SCRITTE SU UN FOGLIO. SONO PARTICELLE CHIMICHE (della sostanza usata inchiostro) CHE SI DEPOSITANO SU UN FOGLIO DI CARTA.

esselotto

 

[esselotto]

AHH RUBINO SOO ESSELOTTO
SCUSAMI SE TE STO' a GRIDA' NUN VORREI CHE DIVENTASSIMO TUTTI SORDI SU LOTTOCED. MO ABBASSO LA VOCE.

Lo script va benissimo devo aggiungere solo il controllo
dei numeri nei tre cicli. E le giocate.
Mi è stato di grande aiuto.

un grazie da ESSELOTTO

 

[elephantbig]

Buona Domenica delle Palme

Che la pace del Signore sia con Noi

Ho iniziato la giornata con una sana risata

 

[esselotto]

Buona Domenica delle Palme anche a Voi



provocatori......

ah Filotto che te sei appoggiato anche tu sulla tastiera?

 

[esselotto]

 

[fillotto]

Ciao Cebino, ancora no...L'Italia ha 150 anni ummm 150 anni fa una lettera arrivava prima di oggi!!! te lo assicuro che in questa materia sono ferrato, oggi se arriva, già se arriva() non ci mette come 150 anni fa ma molto di più nonostante tutti i progressi , le promesse e gli aumenti tariffari delle poste ehhee sembra che sia diventata come il lotto una cosa aleatoria... prima o poi i numeri escono e prima o poi una lettera arriva.. pazienza ciao buona serata a tutti

di nuovo buona serata a tutti

 

[ok coral]

......... nel senso che APO è diventato RICH ?

Basta poco per mettere zizzania.



ok coral

 

[mastrogino]

quote:Originally posted by rich

siete ancora a questo livello?

Quando si scrive su internet( chat ,forum,mail ect ect) e si scrive maiuscolo, lo scrivere maiuscolo è appunto URLAREEEEEEEEEEE


start --- pannello di controllo ---- windows update

fatevi un aggiornamento..[8D]

rich

CIAO, RICH QUESTO NN LO SAPEVO E PENSARE CHE IO MAGGIORMENTE SCRIVO IN MAIUSCOLO X VIA CHE DELLA VECCHIAIA
MA ALLORA NE HO FATTE DI ULARE ....STRANO [)]



se credi di fare qualcosa per te e il prossimo.....fallo il coraggio ha in sè genio potere magia

mastrogino

 

[elephantbig]

Ehi ragazzi, qualcuno mi sa dire che fine hanno fatto le buone maniere ? Che fine ha fatto l'educazione ?

Forse in quest'era di tecnologie avanzate sono diventate Optional ?



Ai miei tempi quando si andava a casa di altri ,la prima cosa che si faceva era salutare e la prima cosa che NON si faceva era criticare cio che accadeva in quella casa.

Ma ovviamente i tempi cambiano.

 

[esselotto]

quote:Originally posted by elephantbig

Ehi ragazzi, qualcuno mi sa dire che fine hanno fatto le buone maniere ? Che fine ha fatto l'educazione ?

Forse in quest'era di tecnologie avanzate sono diventate Optional ?



Ai miei tempi quando si andava a casa di altri ,la prima cosa che si faceva era salutare e la prima cosa che NON si faceva era criticare cio che accadeva in quella casa.

Ma ovviamente i tempi cambiano.

Chiedo Gentilmente a chi ha uno script gia pronto che mi controlli
la frequenza ciclica. Tipo

La mia di gentilezza era stata nela richiesta nei confronti di chi
avesse uno script già pronto.

GUARDA CHE CI TOCCA FARE. SCRIVERE IN MINUSCOLO.
COMUNQUE IO PERSONALMENTE IN MAIUSCOLO NON URLO.
SOTTOLINEO LE PAROLE.

GRAZIE A COLORO CHE LA PENSANO COME ME.

esselotto

 

[esselotto]

quote:Originally posted by esselotto

Buona Domenica delle Palme anche a Voi



provocatori......

ah Filotto che te sei appoggiato anche tu sulla tastiera?

PER FILOTTO PERCHE' HAI CANCELLATO IL POST PRECEDENTE A QUELLO?
MI FACEVA RIDERE.
NUN SE FA' LASCIA I POST COME SONO E COME SONO STATI SCRITTI.
ALTRIMENTI TOGLIAMO TUTTA LA DISCUSSIONE.
MODIFICA SE NON VA BENE MA NUN CANCELLARE....