piccolo aiuto x script

[Roby]

Se in uno script rintraccio condizione particolare e trovo 2 costanti che mi diventa A e B se volessi trasformare A in figura e concatenarlo con la decina del numero antecedemte o successivo come faccio ....
io ho questo : n(1)=Figura(a)&Decina(Estratto(es,r,1)) che A me lo unisce alla decina del numero in prima posizione ...ma io vorrei che mi desse la decina del numero antecedente (come posizione) o successivo .... grazie se qualcuno mi spiega come ....Luca

 

[esselotto]

ti vorrei aiutare ma non ho capito
fai esempi con numeri è molto più facile di tante parole

 

[luca0202]

Lo script dovrebbe trovarmi 2 numeri gemelli isotopi e qui ho la condizione per fare previsione esempio nel estrazione del 2 ott 2010
esce a cagliari il 77 (1 posizione)e 22 palermo in (1 posizione) e altri 2 gemelli 88 firenze (4 posizione) e 88 napoli (4 posizione).
Ho quindi la possibilita' di fare 2 previsioni ....la prima 77 di cagliari ha alla sua destra il 63 e il 22 di palermo il 27 .....
prendo la decina del gemello e la decina del numero a fianco e quindi la previsione sara' 76 e 22 cagliari palermo ....e altra 88 fianco 59 e 88 fianco 28 diventano 85 e 82 firenze e napoli ... spero di essermi spiegato e cmq sia grazie per la disponibilita' Luca

 

[esselotto]

comunque il tuo problema stà nel 

formare da cosi   77  63    22  27

a                   76        22 
[?]

o come dire allo script di trovarti il 63 numero  a fianco del 77 di Cagliari[?]

 

[esselotto]

per il primo PROBLEMA ti ho fatto uno script di esempio con tanto di spiegazione
di come unire le cifre

Sub main()
Dim n(2)
Dim nx(2)

n(1)=77  ''''questi sono i tuoi numeri 
n(2)=63  ''''   ""           ""

''''sul Primo dato che è un gemello 
nx(1)=Left(n(1),1)
''' sul secondo
l=Len (n(2))  '' prendo la lunghezza del numero da quante cifre e formato es 63 e di lunghezza 2  
If l=2 Then nx(2)=Left(n(2),1)  '''' se è un numero a 2 cifre prendo la 1^ cifra a sinistra 6 
If l=1 Then nx(2)=n(1)   ' ''''' se è un numero ad una cifra perendo il numero stesso esempio 4 prendo 4

''quindi unisci i due risultati  7  e  6
am=nx(1)& nx(2)  ''''' hai come risultato 76 

Scrivi "Primo numero ->        "& n(1) &" cifra prelevata "& nx(1)
Scrivi "Secondo numero ->      "& n(2) &" cifra prelevata "& nx(2)
Scrivi "Unione delle cifre --> "& am,1

End Sub

 

[esselotto]

Per il secondo PROBLEMA

esempio il 77 si trova in          n(1)= Estratto(es,r,p)  dove p è la posizione esempio p=1(1° estratto)
per prendere il numero successivo  n(2)=Estratto (es,r,p+1) dove p+1 diventa il 2° estratto

Ti ho proposto le due soluzioni
Nella speranza di aver capito il tuo problema.
ciao e fammi sapere



Attenuazione. Un'impulso in un mezzo elastico non si propaga all'infinito ma soltanto fino a che l'energia iniziale non si sia completamente trasformata in energia termica.
°°°esselotto°°°

 

[luca0202]

Intanto grazie tante esse per l'attenzione ....poi io provo e riprovo cercare di fare quello che vorrei ma stagliuzzando copiando e incollando non riesco a fare cio' che voglio ....sono arrivato a fare questo ....
Sub main()
Dim ambata(2)
Dim ruote(2),posta(2)
posta(1)=1osta(2)=1
For es=EstrazioneFin-100 To EstrazioneFin
For r1=1 To 9
For r2=r1 To 10
For p1=1 To 5
n1=Estratto(es,r1,p1)
n3=Estratto (es,r1,p+1)
n2=Estratto(es,r2,p1)
n4=Estratto (es,r2,p+1)
If Gemello(n1)=True And Gemello(n2)=True And n1<>n2 Then
Scrivi "------------------------------------------------------------------"
Scrivi Left(NomeRuota(r1),2)&"-"&Left(NomeRuota(r2),2)&_
" gemelli isotopi "&n1&" "&n2&" "&p1&"° pos.",1
ambata(1)=Decina(n1)&decina (n3)
ambata(2)=decina (n2)& Decina (n4)'<----- qui metti l'ambata che vuoi
c=4 '<------------ qui metti al posto di 12 il numero di colpi che vuoi


ruote(1)=r1
ruote(2)=r2
ImpostaGiocata 1, ambata, ruote, posta,c,1
Gioca es
Scrivi
End If
Next
Next
Next
Next

ScriviResoconto
End Sub

mezzo pastrocchio vero .... se riesci tu a metterci mani per ordinarlo un pochino e fargli fare quello che ti ho descritto in questo modo lui prende la decina del gemello e va bene ma poi considera la decina del numero in prima pos. sempre e invece dovrei accopiarlo alla posizione sucessiva a quella di dove si trova il gemello ....grazie ancora ....altra cosa quando mi scrivi gemelli isotopi sarebbe possibile fargli scrivere anche tutti i gemelli e in quali ruote usciti in quella estrazione magari ciao e grazie ancora Luca

 

[esselotto]

quote:Originally posted by luca0202

Lo script dovrebbe trovarmi 2 numeri gemelli isotopi e qui ho la condizione per fare previsione esempio nel estrazione del 2 ott 2010
esce a cagliari il 77 (1 posizione)e 22 palermo in (1 posizione) e altri 2 gemelli 88 firenze (4 posizione) e 88 napoli (4 posizione).
Ho quindi la possibilita' di fare 2 previsioni ....la prima 77 di cagliari ha alla sua destra il 63 e il 22 di palermo il 27 .....
prendo la decina del gemello e la decina del numero a fianco e quindi la previsione sara' 76 e 22 cagliari palermo ....e altra 88 fianco 59 e 88 fianco 28 diventano 85 e 82 firenze e napoli ... spero di essermi spiegato e cmq sia grazie per la disponibilita' Luca

ok luca se mi lasci un po di tempo
cerco di farlo io il listato in base a questa spiegazione

 

[luca0202]

Grazie esse per disponibilità ....Luca

 

[genlotto]

quote:Originally posted by luca0202

Grazie esse per disponibilità ....Luca

Ciao Luca, dacci uno sguardo se è esatto.. post il listatino!!

cià cià
Gen[8]

====================================================================
sab 10.07.2010 [ Ba - 63.12.78.22.73 ] [ 22 |> 73 in 4/5^ pos. ] 27
sab 10.07.2010 [ Mi - 87.30.14.66.36 ] [ 66 |> 36 in 4/5^ pos. ] 63

Ambate 1^/2^ 27.63
--------------------------------------------------------- caso n° 1
====================================================================
sab 10.07.2010 [ Ge - 86.44.81.08.39 ] [ 44 |> 81 in 2/3^ pos. ] 48
sab 10.07.2010 [ Nz - 13.77.45.79.80 ] [ 77 |> 45 in 2/3^ pos. ] 74

Ambate 1^/2^ 48.74
--------------------------------------------------------- caso n° 2
====================================================================
gio 15.07.2010 [ Ba - 60.88.56.11.58 ] [ 88 |> 56 in 2/3^ pos. ] 85
gio 15.07.2010 [ Ge - 88.22.24.21.20 ] [ 22 |> 24 in 2/3^ pos. ] 22

Ambate 1^/2^ 85.22
--------------------------------------------------------- caso n° 3
====================================================================
gio 15.07.2010 [ Ba - 60.88.56.11.58 ] [ 11 |> 58 in 4/5^ pos. ] 15
gio 15.07.2010 [ Mi - 84.83.16.77.55 ] [ 77 |> 55 in 4/5^ pos. ] 75

Ambate 1^/2^ 15.75
--------------------------------------------------------- caso n° 4
====================================================================
gio 15.07.2010 [ Fi - 55.42.70.24.69 ] [ 55 |> 42 in 1/2^ pos. ] 54
gio 15.07.2010 [ Ge - 88.22.24.21.20 ] [ 88 |> 22 in 1/2^ pos. ] 82

Ambate 1^/2^ 54.82
--------------------------------------------------------- caso n° 5
====================================================================
gio 15.07.2010 [ Mi - 84.83.16.77.55 ] [ 55 |> 84 in 5/1^ pos. ] 58
gio 15.07.2010 [ To - 85.73.23.58.66 ] [ 66 |> 85 in 5/1^ pos. ] 68

Ambate 1^/2^ 58.68
--------------------------------------------------------- caso n° 6
====================================================================
sab 17.07.2010 [ Ba - 73.02.11.19.33 ] [ 33 |> 73 in 5/1^ pos. ] 37
sab 17.07.2010 [ Ca - 01.55.47.22.66 ] [ 66 |> 01 in 5/1^ pos. ] 60

Ambate 1^/2^ 37.60
--------------------------------------------------------- caso n° 7
====================================================================
sab 17.07.2010 [ Ba - 73.02.11.19.33 ] [ 11 |> 19 in 3/4^ pos. ] 11
sab 17.07.2010 [ To - 29.78.55.16.06 ] [ 55 |> 16 in 3/4^ pos. ] 51

Ambate 1^/2^ 11.51
--------------------------------------------------------- caso n° 8
====================================================================
sab 17.07.2010 [ Ca - 01.55.47.22.66 ] [ 55 |> 47 in 2/3^ pos. ] 54
sab 17.07.2010 [ Pa - 81.11.01.24.21 ] [ 11 |> 01 in 2/3^ pos. ] 10

Ambate 1^/2^ 54.10
--------------------------------------------------------- caso n° 9
====================================================================
sab 17.07.2010 [ Ca - 01.55.47.22.66 ] [ 55 |> 47 in 2/3^ pos. ] 54
sab 17.07.2010 [ Nz - 79.88.78.90.43 ] [ 88 |> 78 in 2/3^ pos. ] 87

Ambate 1^/2^ 54.87
--------------------------------------------------------- caso n° 10
====================================================================
sab 17.07.2010 [ Pa - 81.11.01.24.21 ] [ 11 |> 01 in 2/3^ pos. ] 10
sab 17.07.2010 [ Nz - 79.88.78.90.43 ] [ 88 |> 78 in 2/3^ pos. ] 87

Ambate 1^/2^ 10.87
--------------------------------------------------------- caso n° 11
====================================================================
mar 20.07.2010 [ Mi - 55.66.14.33.45 ] [ 66 |> 14 in 2/3^ pos. ] 61
mar 20.07.2010 [ To - 36.11.79.70.20 ] [ 11 |> 79 in 2/3^ pos. ] 17

Ambate 1^/2^ 61.17
-----------------------------------

 

[luca0202]

Si si deve girare proprio così....Genlotto ...se posti script riesco a forse a capire come è strutturato ....io provo e riprovo ma a quanto pare materia a me ostica ...[xx(] ....se non abuso troppo della vostra competenza se io volessi in uno script (semza mettere per il momento in gioco condizioni) visualizzare in un estrazione quanti gemelli sono usciti e la posizione corrispondente al singolo gemello e magari scritto tutto su una riga ...come faccio ...??? es:
data 28 ott.2010 44 napoli (4° pos)-33 roma (4° pos)...io ci provo e riprovo ma faccio sacco di casini ....grazie grazie ....Luca

 

[genlotto]

....ciao Luca

Sub main()
Dim ruota(5),posta(5)
Dim nu(2) 
ee=CInt(InputBox("Quante estrazioni vuoi esaminare ?","Estrazioni",50))
k=CInt(InputBox("Per quante estrazioni deve durare il gioco ?","Colpi di gioco",9))
casi=0
fin=EstrazioneFin 
ini=fin-ee 
'--------------------------------
For es=ini To fin 
	Messaggio "elab. del "&dataestrazione(es)&" [ by Genlotto ]"
'-------------------------------------
   For r1=1 To 10 
      For r2=r1+1 To 12
         If r2=11 Then r2=12 
         For p1=1 To 5 
		p2=p1+1
            a=Estratto(es,r1,p1) :b=Estratto(es,r2,p1) 
		If p1=5 Then p2=1
		a1=Estratto(es,r1,p2) ::b1=Estratto(es,r2,p2)
            If Gemello(a) And Gemello(b) And a<>b Then 
     	       am1=Decina(a)& Decina (a1) :am2=Decina (b)& Decina (b1)
               casi=casi+1:Scrivi String(68,"="),1 
               Scrivi DataEstrazione(es,1)&" [ "&SiglaRuota(r1)&" - "&stringaestratti(es,r1)&_ 
               " ] [ "&Format2(a)&" |> "&Format2(a1)&" in "&(p1)&"/"&p2&"^ pos. ] "&am1 
               Scrivi DataEstrazione(es,1)&" [ "&SiglaRuota(r2)&" - "&stringaestratti(es,r2)&_ 
               " ] [ "&Format2(b)&" |> "&Format2(b1)&" in "&(p1)&"/"&p2&"^ pos. ] "&am2
		   'Scrivi : Scrivi "Ambate 1^/2^ "&am1&"."&am2
               Scrivi String(57,"-")&" caso n° "&(casi)
'---------------------------------------------------------
ruota(1)=r1 :ruota(2)=r2
posta(1)=1 :posta(2)=1
nu(1)=am1
nu(2)=am2
ImpostaGiocata 1,nu,ruota,posta,k
Gioca es 
            End If 
         Next 
      Next 
   Next 
Next 
ScriviResoconto
End Sub

 

[esselotto]

per genlotto

Grazie per avermi fatto fare, un listato a vuoto.

Potevi intervenire prima sul post.

anche per buona educazione



Archimede, afferma che un oggetto immerso parzialmente o totalmente in un
fluido è sottoposto a una spinta dal basso verso l'alto, di intensità pari al peso
del volume di fluido spostato.
°°°esselotto°°°

 

[genlotto]

quote:Originally posted by esselotto

per genlotto

Grazie per avermi fatto fare, un listato a vuoto.

Potevi intervenire prima sul post.

anche per buona educazione



Archimede, afferma che un oggetto immerso parzialmente o totalmente in un
fluido è sottoposto a una spinta dal basso verso l'alto, di intensità pari al peso
del volume di fluido spostato.
°°°esselotto°°°

..credevo di aver fatto cosa gradita!!
scusami esselotto.. tolgo il disturbo, se Vuoi posso togliere anke lo script!!
bye bye

 

[luca0202]

Il mio grazie va ad entrambi davvero disponibili e competenti ...davvero grazie ...tornando al listato non mi pare male come percentuale di riuscita ....comunque sia senza abusare della vostra disponibilità e competenza vorrei andare oltre convinto che si possano ottenere risultati migliori ...chiedevo anche nel post precedente come si potesse far fare a uno script .....(semza mettere per il momento in gioco condizioni) visualizzare in un estrazione quanti gemelli sono usciti e la posizione corrispondente al singolo gemello e magari scritto tutto su una riga ...come faccio ...??? es:
data 28 ott.2010 44 napoli (4° pos)-33 roma (4° pos)...io ci provo e riprovo ma faccio sacco di casini ....grazie grazie ....Luca

 

[esselotto]

quote:Originally posted by genlotto

quote:Originally posted by esselotto

per genlotto

Grazie per avermi fatto fare, un listato a vuoto.

Potevi intervenire prima sul post.

anche per buona educazione



Archimede, afferma che un oggetto immerso parzialmente o totalmente in un
fluido è sottoposto a una spinta dal basso verso l'alto, di intensità pari al peso
del volume di fluido spostato.
°°°esselotto°°°

..credevo di aver fatto cosa gradita!!
scusami esselotto.. tolgo il disturbo, se Vuoi posso togliere anke lo script!!
bye bye

a me non mi disturbi.

io ho solo detto mi hai fatto fare uno script a vuoto.
tempo perso. che ne dici???

 

[esselotto]

per Genlotto

leggiti la prima pagina di questo topic
http://forum.lottoced.com/topic.asp?TOPIC_ID=123595&whichpage=1

il secondo messaggio e il Terzo messaggio, e poi capirai.