| R E V I S I O N E D E L L A D I S C U S S I O N E |
| josh77 |
Posted - 24 aprile 2015 : 17:54:27
per piacere avrei bisogno,se possibile ricevere un piccolo script di qbasic,
spiego,siccome,non sono riuscito a fare vertibili in numeri gemelli,ad esempio: il 29 mi fà 82 anzichè il 22,e poi il 44 mi fa 43 anzichè 49,ecc...
Ora ,io non sò,se è giusto cosi,oppure no,mi consiglia lei
Mi farebbe cortesia, se mi manderesti un script completo di numeri vertibili compreso i gemelli.
l' email è " JOSH77.JB@GMAIL.COM "
Distinti e saluti
Grazie |
| 5 U L T I M E R E P L I C H E (Newest First) |
| franca46 |
Posted - 28 aprile 2015 : 07:46:20
questo è un listato x L8
|
| josh77 |
Posted - 28 aprile 2015 : 01:16:45
Grazie al signor PierMarco,che mi ha mandato il script di qbasic,per numeri vertibili e per numeri gemelli.
Veramente ,ti ringrazio ancora,ma c'è una cosa che ,devo dirti,io ci ho provato ad installare su qbasic,e dopo ho tastato F5,ma non partiva bene.
Infatti,sotto l'ultima riga all'infuori dell script,c'è scritto:
EXPECTED &H...or &O...on LINE 3.
Non sò,cosa devo tastare,per avviare,oppure impostare qualcosa su linea 3? |
| josh77 |
Posted - 28 aprile 2015 : 00:57:06
citazione:
Inviato in origine da piermarco
Sub Main()
Scrivi String(30," ") & " PER COCONUT : NUMERO VERTIBILE ISOTOPO SU 2 RUOTE : BY BLACKMORE"
t = 0
esaritroso = InputBox("Inserisci le estrazioni di controllo","Blackmore",100)
fin = EstrazioneFin
ini = EstrazioneFin - esaritroso
For es = ini To fin
AvanzamentoElab ini,fin,es
For r = 1 To 10
For r1 = r + 1 To 12
If r1 = 11 Then r1 = 12
For p = 1 To 5
a = Estratto(es,r,p)
b = Estratto(es,r1,p)
If b = Vert(a) Then
ColoreTesto 1
Scrivi
ColoreTesto 0
Scrivi String(110,"*"),1
Scrivi
ColoreTesto 1:Scrivi DataEstrazione(es) & " " & SiglaRuota(r) & " " & StringaEstratti(es,(r)) & " " & Left(SiglaRuota(r),3) & " " & Format2(a) & " in " & p & "° Posizione",1
Scrivi DataEstrazione(es) & " " & SiglaRuota(r1) & " " & StringaEstratti(es,(r1)) & " " & Left(SiglaRuota(r1),3) & " " & Format2(b) & " in " & p & "° Posizione (Vertibile Isotopo)",1
End If
Next
Next
Next
If ScriptInterrotto Then Exit For
Next
End Sub
Ciao josh77 vedi come va questo
|
| franca46 |
Posted - 26 aprile 2015 : 17:22:39
citazione:
Inviato in origine da josh77
per piacere avrei bisogno,se possibile ricevere un piccolo script di qbasic,
spiego,siccome,non sono riuscito a fare vertibili in numeri gemelli,
ad esempio: il 29 mi fà 82 anzichè il 22,e poi il 44 mi fa 43 anzichè 49,ecc...
ciao josh
per quel che ne so io i vertibili nel lotto sono cosi:
ma
citazione:
Inviato in origine da josh77
il 29 mi fà 82 anzichè il 22,e poi il 44 mi fa 43 anzichè 49,ecc...
questi con vertibili cosi' li calcola spesso il sig:Zannella nel suo sito
es al 29 toglie 1 unità cosi diventa 28 e poi fà 82.
non so se è una regola che possa valere x tutti
il listato di piermarco li cerca come la tabella sopra.
ciao
|
| piermarco |
Posted - 26 aprile 2015 : 10:05:42
Sub Main()
Scrivi String(30," ") & " PER COCONUT : NUMERO VERTIBILE ISOTOPO SU 2 RUOTE : BY BLACKMORE"
t = 0
esaritroso = InputBox("Inserisci le estrazioni di controllo","Blackmore",100)
fin = EstrazioneFin
ini = EstrazioneFin - esaritroso
For es = ini To fin
AvanzamentoElab ini,fin,es
For r = 1 To 10
For r1 = r + 1 To 12
If r1 = 11 Then r1 = 12
For p = 1 To 5
a = Estratto(es,r,p)
b = Estratto(es,r1,p)
If b = Vert(a) Then
ColoreTesto 1
Scrivi
ColoreTesto 0
Scrivi String(110,"*"),1
Scrivi
ColoreTesto 1:Scrivi DataEstrazione(es) & " " & SiglaRuota(r) & " " & StringaEstratti(es,(r)) & " " & Left(SiglaRuota(r),3) & " " & Format2(a) & " in " & p & "° Posizione",1
Scrivi DataEstrazione(es) & " " & SiglaRuota(r1) & " " & StringaEstratti(es,(r1)) & " " & Left(SiglaRuota(r1),3) & " " & Format2(b) & " in " & p & "° Posizione (Vertibile Isotopo)",1
End If
Next
Next
Next
If ScriptInterrotto Then Exit For
Next
End Sub
Ciao josh77 vedi come va questo |
|
|
