facile facile

[Alien.]

Ciao se è possibile mi serve trovare uun numero spia in terza posizione in qualsiasi ruota(inserendolo manualmente).dall'anno 2000 in poi

 

[i legend]

Ciao alien
Allora non ho il PC quindi non posso verificare
Salvo errori e mancanze di ogni altro tipo
Option explicit
Sub main
Dim pos : pos= 3 ' CAMBI pos che vuoi
Dim num : Num = Int ( inputbox ("inserisci un numero","",1))
Dim Ruota :ruota= ScegliRuota
Dim idestr
Dim Ini : ini = estrazionefin -2000
Dim fin : fin= estrazionefin
Scrivi " Hai cercato il numero : "& num &" sulla ruota di "& nomeruota (ruota)
For idestr= Ini to fin
If posizione (idestr, ruota,num)=pos THEN
Scrivi idestr&" - "&stringaestratti ( idestr, ruota)
End if
Next

End sub

Ciao ho scritto a memoria non so se ho sbagliato i parametri di qualche funzione controllate per chi può può correggere.

 

[Alien.]

Ciao i legend non male se lo hai fatto a mente tutto ok sei una leggenda hahaahah e mi ha fatto venire in mente una vecchia mia cosa che avevo in mente adesso vedo di ampliarlara se amplio la ricerca mi darà più colonne con il numero cercato,quindi dovrei verificare quanti numeri frequenti si sono accoppiati con il nmero cercato e quanti a zero uscite.............cosa dici si potrebbe fare?

Per quello script già fatto sopra da te a memoria,dovrebbe cercarmi da solo senza inserire la ruota,in quale ruota è uscito e la data......cosa dici..

 

[Alien.]

come cambio se voglio inserire in ogni posizione

Dim pos : pos= 3 ' CAMBI pos che vuoi ***** Dim pos : pos= 1 os=2 : pos=3: pos 4 : pos 5 ?
è con questi semplici script sto capendo un po............a suo tempo facevo il basic ....adesso non ricordo un tubo..

è ci vorrebbe un piccolo corso per apprendisti..

 

[i legend]

Copi questa sotto la sub
Poi cambi nella sub
Dim pos : pos = getpos

''""""""""""""""""""""""
Function getpos
Dim aPos
Apos= array ( " ", 1,2,3,4,5)
GetPos = scegliopzionemenu (apos,1,"scegli posizione")
End function
Non ho capito quello delle ruote
Dimmi.

 

[i legend]

Sub main
Dim pos : pos= getpos ' CAMBI pos che vuoi
Dim num : Num = Int ( inputbox ("inserisci un numero","",1))
Dim Ruota :ruota= ScegliRuota
Dim idestr
Dim Ini : ini = estrazionefin -2000
Dim fin : fin= estrazionefin
Scrivi " Hai cercato il numero : "& num &" sulla ruota di "& nomeruota (ruota)
For idestr= Ini to fin
If posizione (idestr, ruota,num)=pos THEN
Scrivi idestr&" - "&stringaestratti ( idestr, ruota)
End if
Next

End sub
Function getpos
Dim aPos
Apos= array ( " ", 1,2,3,4,5)
GetPos = scegliopzionemenu (apos,1,"scegli posizione")
End function

Da provare e verificare Salvo errori.

 

[Alien.]

Copi questa sotto la sub
Poi cambi nella sub
Dim pos : pos = getpos

''""""""""""""""""""""""
Function getpos
Dim aPos
Apos= array ( " ", 1,2,3,4,5)
GetPos = scegliopzionemenu (apos,1,"scegli posizione")
End function
Non ho capito quello delle ruote
Dimmi.

Dunque,un numero in terza posizione può uscire in ogni estrazione ed in qualsiasi ruota.ora se io gli indico la ruota non va bene perchè mi perdo l'uscita recente.Va bene se voglio fare una statistica di frequenze di accoppiamento o di assenza numeri da accoppiare.....ci sei ?

 

[Alien.]

Sub main
Dim pos : pos= getpos ' CAMBI pos che vuoi
Dim num : Num = Int ( inputbox ("inserisci un numero","",1))
Dim Ruota :ruota= ScegliRuota
Dim idestr
Dim Ini : ini = estrazionefin -2000
Dim fin : fin= estrazionefin
Scrivi " Hai cercato il numero : "& num &" sulla ruota di "& nomeruota (ruota)
For idestr= Ini to fin
If posizione (idestr, ruota,num)=pos THEN
Scrivi idestr&" - "&stringaestratti ( idestr, ruota)
End if
Next

End sub
Function getpos
Dim aPos
Apos= array ( " ", 1,2,3,4,5)
GetPos = scegliopzionemenu (apos,1,"scegli posizione")
End function

Da provare e verificare Salvo errori.

SI perfetto VA BENE-- ma per l'altra cosa che voglio fare, il numero cercato lo deve trovare da solo in qualsiasi posizione......

 

[i legend]

Ciao alien mi spiace ma non avendo il pc faccio fatica a costruire lo script.
Spero di esserti stato di aiuto almeno per la richiesta che avevi fatto inizialmente.
Ciao

 

[Alien.]

oh questa è bella se non hai il pc come fai a postare qua....................hahahahhaah si si va benissimo anche cosi sei stato molto gentile,grazie.

 

[i legend]

Ciao alien , posto con il cell.
Infatti scrivere uno script con il cell è faticoso, e per di più non potrei testarlo.

Ciao

 

[Alien.]

si,dai la mia èra solo una battuta...ironica.tranquillo grazie di tutto........