Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Sito comune

Ciao a tutti, pochi giorni fa sono tornato a vedere il Sito Comune dell'NG,
Siete stati grandi! Complimenti è molto più bello ora! ;-)
Torniamo al mio problema.
L'ultima volta ho trovato una cosa che mi ha colpito, era disponibile un PRJ
per lo spegnimento o riavvio automatico di Windows 95 e 98.
A mio dispiacere però al momento di scompattare lo zip scopro che è SOLO il
progetto già compilato! :-(
Ora dico, è o no un sito per programmatori? Allora, secondo me, essendo
tale, si dovrebbero trovare codici sorgente magari stupidissi o semplici ma
che fanno risparmiare tempo, invece di programmi che servono solo a far
sbavare gli altri e che fanno perdere molto tempo! :-o
Certo è possibile che l'autore abbia preferito così per vari motivi, ma
almeno un file TXT per far sapere le API o quantaltro abbia usato!
Ciao Andrea
PS: Sapete mica quali sono le API per fare una cosa del genere?

Anche se il programma è solo compilato, precedentemente avevo reso disponibile (anche se in diverse sessioni) le
procedure principali per l'uso del codice.
Queste sono:
1- Quella per lo spegnimento o riavvio del PC:
Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
Private Const EWX_LOGOFF = 0
Private Const EWX_SHUTDOWN = 1
Private Const EWX_REBOOT = 2
Private Const EWX_FORCE = 4
Dim r As Long
r = ExitWindowsEx(*, 0&)
dove per asterisco di intende una delle costanti sopra.
2- Quella per il calcolo dell'intervallo di tempo:
Crea in un form tre textbox, una per le ore, una per i minuti, una per i secondi in cui "scatterà l'ora X", chiamate
rispettivamente txtOre, txtMinuti, txtSecondi, poi usa questo codice come meglio ti pare...
Dim secondi, secondi1 As Double
 
    secondi = 0
    secondi1 = 0
    secondi = CDbl(TxtOre.Text) * 3600 + CDbl(TxtMinuti.Text) * 60 + CDbl(txtSecondi.Text)
    secondi1 = CDbl(Hour(Now)) * 3600 + CDbl(Minute(Now)) * 60 + CDbl(Second(Now))
 
    If secondi < secondi1 Then
        tot = 86399 - secondi1 + secondi
    Else
        tot = secondi - secondi1
    End If
    h = tot \ 3600
    m = CInt((tot Mod 3600) \ 60)
    s = CInt((tot Mod 3600) Mod 60)
'al posto delle tre istruzioni precedenti si poteva usare l'istruzione Format....
    If h = 0 And m = 0 And s = 0 Then
	'Ecco l'ora X :-)
    End If
Se invece vuoi che l'ora X scatti non AD una determinata ora, ma TRA un determinato numero di ore, minuti, secondi,
basta che sommi l'ora attuale più l'intervallo e ti comporti allo stesso modo:
es:
se devi far scattare l'ora X tra 1 ora, 10 minuti e 15 secondi, basta che imposti l'ora X alle (hour(now) +1) ore,
(minute(now)+10) minuti, (second(now)+15) secondi
Spero di aver soddisfatto alle tue richieste.
Ciao,
Moreno
#sirri#@
tin.it
(togliete "#" dall'indirizzo)

...


>
Questo file sta nella rubrica "Applicazioni complete".
In pratica tu proponi di abolire la sezione "Applicazioni complete" ?
Saluti
Ciao
By -MES-   Maronese Ettore
http://ilmes.freeweb.org
(con OCX per stampare i recordset)
Sito Comune di programmatori Visual Basic
http://www.murialdo.it/it_lang_vb

Diciamo che in un certo senso SI!
Fin da quando leggo l'NG ho sempre capito dai vostri messaggi che il sito
era un appoggio per i piccoli e grandi programmatori del VB.
Ora mi chedo: a cosa serve a me (piccolo programmatore) saper che da un
programma (fatto in VB) si possono fare certe cose? A me interessa solo come
farle!
Se ho dei dubbi sul 'se si possono fare', basta che scrivo un piccolo msg
sull'NG e persone molto gentili e disponibili in poco tempo mi rispondono
dandomi la risposta per il mio quesito.
Spero di essere stato chiaro, ciao.
Andra

Premetto: sono l'autore dell'unica applicazione completa attualmente presente sul NG.
In effetti sono d'accordo con Andrea (contento che ti ho postato il codice? :-) ), ma avrei un'idea da proporre che
credo possa essere interessante.
Dal momento che č un sito di programmatori e per i programmatori, da un lato č giusto rendere disponibile il codice (o
almeno una traccia di esso) per la creazione di determinate applicazioni e per la creazione di determinati problemi;
dall'altro puň esser giusto anche divulgare della applicazioni complete per coloro i quali:
1) sono di passaggio in questo sito e magari trovano il programmino shareware che fa per loro
2) senza "scopiazzare" il codice di un altro pari pari (cosě sono capaci tutti) hanno uno spunto su come affrontare il
problema
Ma le applicazioni complete, il piů delle volte, portano via piů spazio dei sorgenti, per cui la mia proposta č la
seguente:
Manteniamo la rubrica Applicazioni Complete, ma all'interno, dopo il nome del programma, la sua descrizione, ed il nome
dell'autore, mettiamo il link alla pagina dell'autore, cosě non appesantiamo il sito.
Che ve ne pare? Mi sono spiegato bene? Ovvero, ad esempio per il mio programma, sostituire il collegamento al file zip,
con quello alla mia pagina (a magari al file stesso).
Ciao,
Moreno
P.S.
A patto perň che gli altri siano d'accordo e vogliano divulgare i loro programmi (altrimenti, per vedere solo il mio lě
cosě, solo soletto...., mi fa un po' pena...)


Per come la intendo io, la sezione "Applicazioni complete" sul sito comune
dovrebbe accogliere il seguente materiale:
- applicazioni complete CON sorgenti
  (a scopo di esempio, ma anche utilizzabili)
- applicazioni complete SENZA sorgenti
  (semplicemente programmi utili, tools per chi programma in VB)
in base a questi criteri, l'applicazione di Moreno Sirri sarebbe accettabile
se avesse i sorgenti (a scopo di esempio per la programmazione VB),
ma senza i sorgenti non dovrebbe essere accettata, poiche' e' un'utility
generale per Windows95, non un tool direttamente legato a VB.
Vi faccio un esempio di applicazione completa SENZA sorgenti che sarebbe
accettabile?
Un programma (o un add-in per VB) che inserisce dei blocchi di commenti
(magari presi da dei "modelli" su file) all'inizio di un modulo BAS o FRM o
CLS e, magari, un altro blocco di commento all'inizio di ogni procedura.
oppure
un programma che dati in input 2 moduli BAS (magari 2 versioni diverse) ne
tira fuori le differenze (un tipico DIFF, per chi conosce Unix).
Naturalmente questa e' solo la mia opinione o, come scriverebbero gli
americani, just my 2 cents (Euro, of course :-)
--
Roal Zanazzi
z...@iol.it

così, solo soletto...., mi fa un po' pena...)
[...]
A mio parere sarebbe interessante avere il link alla home page dell'autore
del codice/ActiveX/Add-in,  non alla risorsa. Questo per poter risolvere
eventuali problemi riscontrati o richiedere informazioni, modifiche,
aggiornamenti.
Considerato l'ampliamento e la velocità del sito comune, ritengo inutile
collegarsi a risorse "esterne". Anzi, nella mia piccola-grande esperienza di
siti VB, mi sono reso conto che molti non aggiornano i links fatti in questa
maniera. Il problema è che non si può rincorrere tutti gli spostamenti dei
siti degli altri!
Ciao
---
--
-
MIX (VB5SP3)
150 links a siti VB
http://www.tempolibero.com/user/mix/
-
--
---


In verita' la tua non e' l'unica Applicazione Completa che mi e' giunta alla
casella postale del WM, altre non sono riuscito a provarle (mancava qualche
DLL) e dato che se non provo non pubblico, non ho potuto pubblicarli.
In qualsiasi caso io per primo preferisco non incentivare l'invio delle
Applicazioni Complete, perche' e' un campo minato.
La tua piccola applicazioni "Spegni.zip" l'ho pubblicata perche' mi e' parsa
carina, funzionale, e senza doppi-fini.
I Link che partono dal Sito Comune e finiscono in siti privati, a mio
parere, sono da evitare come la peste,
_perche'_e'_troppo_facile_sfruttare_gli_accessi_che_ha_un_buon_sito_di_infor
mazioni_(il_sito_comune)_per_propri_fini_commerciali_.
Il sito non deve favorire NESSUNO.
Attenzione, NON sto dicendo che Moreno Sirri e' in malafede, ci mancherebbe!
Ma non appoggio la sua idea.


Spero di essere stato chiaro, ciao.
Ciao


OK:
Vi rispondo a tutti in un sol colpo.
Innanzitutto chiedo scusa ad Ettore: ho scritto Shareware, ma intendevo Freeware.
Si, probabilmente avete ragione per quanto riguarda i link....
In ogni caso invierò al WM il i sorgenti dell'applicazione, o magari, per rendere più snello e di facile lettura anche
ai principianti, solo le routine indispensabili, senza che chi, magari non troppo esperto, non si trovi in difficoltà ad
estrapolarle all'interno del codice.....
Ciao e grazie per l'attenzione,
Moreno


perch+AOg- quando mi collego al sito comune mi risponde sempre
La pagina richiesta non +AOg- presente sul server.
????????????????????????
grazie
aldo

...


Mamma mia ho scatenato un putiferio!
Perdonatemi!
Ringrazio Sirri che mi ha gentilmente postato il suo codice.
Anch'io appoggio l'idea di dedicare la sezione 'Applicazioni Complete'  con
tools o quantaltri programmi possano aiutare noi programmatori ma che siano
in server e non come link, certo questo appesentirebbe il Sito ma, come a
detto Franco Stefanelli, i link sono pericolosi e molto sfruttabili da
persone estranie.
Ciao
Andrea

prova a cliccarlo.
Questo nome e' lo scotto da pagare per avere un server che consideri il Sito
Comeune come un Sito, anziche' come una cartella di un'altro sito.
Mi raccomando, CHE NESSUNO USI QUESTO LINK, usate sempre
http://www.murialdo.it/it_lang_vb
By -MES-   Ettore Maronese
