Evidenziare estratti Come fare

[joe]

Xeroxs, guarda all'istruzione DiametraleD.

 

[palas]

cosa sbaglio ?

con o senza parentesi mi da errore

'''''''''''''' MostraFormOutput (Optional bVisibile = True) [Mostra il form output]Option Explicit
MostraFormOutput True,frmOutputScript Option Explicit

 

[LuigiB]

hai provato lo script di test ?

 

[palas]

ciao Luigi
non no lo ancora provato, sto facendo qualche prova,
forse perchè non ho messo nessuna riga messaggio

 

[palas]

non ho ben capito come devo compilare le righe

ho messo

ListView1 = " prova messaggio dati da compilare "
MostraFormOutput True,frmOutputScript Option Explicit

ma nella listView1 la devo preparare prima e gli viene passata in automatico
o una volta aperto il form piccolo
devo continuare a caricare il messaggio?

per finire devo fare qualcosa o rimane aperto sovrapposto ?

 

[i legend]

Ciao a Tutti
xLuigi
Grazie per le modifiche
ora è molto piu comodo non aver fissa la finestra degli script
devo ancora testare la formTabella in output
grazie

x Xerox
Ciao
il costrutto è simile allo script che evidenzia la distanza
ti serve la formula per il diametrale in decina
2 vie
1° metti i valori in un array cosi sai che aDDec(1)= 6 aDDEc(2)=7 ecc
aDDec=array(0,6,7,8,9,90,1,2,3,4,15,16,17,18,ecc)
questa è una stringa separata da "," che puoi comporre utilizzando spaziometria( quanto sono pigro ( )
2° scrivi la formula
anche questa è una soluzione semplice
prova a scriverla

lo script funziona con entrambe .
ciao

 

[Xeroxs]

Ciao A Tutti,
Grazie Joe ed I_Legend appena posso vedo, mannaggia ho avuto dei problemi con il PC, lo condivido in questo periodo con le mie cucciole e qualcosa è andato storto, metto a posto perchè domani hanno lezioni e poi vedo anche Io.

Grazie Ancora

 

[i legend]

Ciao Luigi Testato il nuovo form
alla grandissima
allego immagine

GetDataEstr(Rig)
Ciao

 

[i legend]

ecco un altro esempio

 

[palas]

Luigi per la serie, volevo complicarmi la vita,

ho visto adesso il Test

Grazie

 

[i legend]

 

[i legend]

non capisco se sia il formato ma le immagini si vedono poco nitidamente

 

[lotto_tom75]

non capisco se sia il formato ma le immagini si vedono poco nitidamente

Prova a farle in dimensione 800x600 in formato jpg o se le fai da cellulare a scaricare un app di compressione formato e poi caricare quella compressa. Così non dovrebbe perderti di definizione. Ciao e Good Sunday

 

[LuigiB]

Ciao Luigi Testato il nuovo form
alla grandissima
allego immagine
Vedi l'allegato 2212375
GetDataEstr(Rig)
Ciao

Quante soddisfazioni mi dai legend bravo ....

 

[LuigiB]

riguardo il problema tecnico dato che lo script come sai lavora sulla griglia visibile
la priam cosa da fare è memorizzare l'idestrazione delle prima riga con la funzione

idEstrPrimaRiga = GetIdEstrPrimaRiga

successivamente per conoscere le estrazioni delel righe successive devi sommare a quel valore il numero della riga (sottatto di 1)
ottenuto questo id lo puoi passare alle funzioni

che ti danno le informazioni sull'estrazione

il problema del left sara un errore tuo .. left è un istruzione del vbscript non dipende da me ..

non so se tu hai fatto cosi per ottenere le informazioni che ti servivano sulle estrazioni .. se hai fatto cosi e non funge fammelo sapere...

ciao...

 

[i legend]

ciao luigi pensavo anche io fosse cosi quindi
ho passato la funzione in spazio script ed è andata
proprio non saprei , infatti mid funzia alla grande.
ok .ottimo la funzione prima riga non l avevo testata , avevo passato il valore dell ultim estrazione in archivio , ma ovviamente era un trik
grazie per il suggerimento

 

[i legend]

Luigi ho chiuso il programma , ho ripreso gli script.
Gli altri li ho postati quest ultumi no
Ma devo creare una cartella a parte?
Nella combo restano solo i tuoi evidenzia decina e test .
Va beh rifarli non è un problema.
Ciao

 

[i legend]

"ciao fare lo script è certamente possibile , ora io non è che ognuno che fa la richiesta di uno script lo assecondo anche perche oltre a me ci sono altri bravi scripter
che possono aiutare , tuttavia ogni tanto intervengo. Lo faccio o quando il metodo proposto mi solletica la fantasia o quando vedo che l'utente che lo ha chiesto è disposto ad imparare come si fa.
Ora di te vedo che ti interessi anche se minimamente di programmazione , è quanto basta per approcciare agli script il resto dell'esperienza naturalmente verrà esercitandosi .
Lo script che proponi non è difficile ma nemmeno semplicissimo piu che altro richiede il calcolo di diversi parametri .
Comunque leggero il tutto con piu attenzione e se ancora nessuno lo ha fatto cercherò di aiutarti sperando di seminare bene.."
Te lo ricordi?
Questo un tuo post ad una mia richiesta d aiuto .
Dai alla lunga qualche frutto è stato dato.
Non è stato facile trovarlo
Sembra ieri e invece sono passati già sette anni
Grazie per tutto quello che mi hai insegnato

 

[LuigiB]

Ciao ho fatto un aggiornamento , ora questo script funziona

Option explicit
Sub Main

    dim idPrimaRiga  , id  , r

    
      MostraFormOutput
    idPrimaRiga = GetIdEstrPrimaRiga()
   
    for r = 1 to Righe
        id = idPrimaRiga  + (r -1)
        AddRigaOutput(GetDataEstr(id))
    next
End sub

gli script vengono salvati nella cartella del programma , prova a vedere a mano se sono li .. li puoi scrivere anche con notepad sono normali file di testo con estensione txt

io ti consiglio di usare i ltemplate vb6 cosi hai tutto molto meglio che l'editor di spaziometria e non devi usare l oscarno editor del programma.


importante per chi usa il template vb6 per fare gli script faccia attenzione a sostituire la cartella perche ho fatto delle modifiche ..

LottoOpen

MediaFire is a simple to use free service that lets you put all your photos, documents, music, and video in a single place so you can access them anywhere and share them everywhere.

www.mediafire.com

 

[i legend]

Per il templare, purtroppo non ho scaricato il vb6. Tra un po metto windows 10 professional e quindi non potrei utilizzarlo comunque.
Mi fa piacere aiutare con il test degli script, non è proprio la collaborazione che speravamo ,ma almeno un piccolo contributo.
Più tardi scarico il nuovo lotto open e testo le altre funzioni