Enemy’s Web Site

Salve a tutti, ho il piacere di comunicarvi che ho realizzato un piccolo spazio web ove potete scaricare le mie applicazioni e magari anche i codici sorgenti.

Non è ancora completo. Ho in mente molte sezioni ma la scuola ultimamente mi ruba molto tempo.

Approfitto di questo post per presentarvi un mio software che sto dedicando molto tempo, forse tutto il tempo libero che mi rimane tra scuola e studio in generale. Il programma si chiama E-Monitor. Questa è la seconda versione che rilascio ma in realta ne ho realizzate ben 10.

Ho rilasciato solo la versione 0.1 e la 1.0 le intermedie ho preferito non postarle. Presto vorrei rilasciare i codici sorgenti per permettere a tutti di capire come lavoro io in campo informatico.

Il programma per ora monitora il livello di CPU utilizzato dai processi eseguiti in Windows, adesso con questa versione ho aggiunto la funzionalità TaskManager cosi si possono killare i processi eseguiti.

Il programma necessità di molte altre funzioni, vorrei completarlo per poi renderlo open souce.

Link : http://www.enemy.altervista.org

Nella sezione Downloads scaricate il software in due versioni Install e No-Install.

Grazie e alla prossima.

Hash To Ip Port, versione 1.3. Codici sorgenti Visual Basic 6

Grazie alle dritte di Fix ho semplificato la funzione di conversione ad hashtoipport.

Il codice è il seguente

 


Function convert_hash(nomechat As String) As String
Dim hashtotal, stringaserver, porta, haship, hashport
hashtotal = Right(nomechat, 12)
ip = CLng(”&H” & Mid$(hashtotal, 7, 2)) & “.” & CLng(”&H” & Mid$(hashtotal, 5, 2)) & “.” & CLng(”&H” & Mid$(hashtotal, 3, 2)) & “.” & CLng(”&H” & Mid$(hashtotal, 1, 2))
porta = CDec(”&H” & (Right(hashtotal, 4)))
Text2.Text = ip & “:” & porta
End Function

scaricate il programma da http://www.enemy.altervista.org

Task Manager v1.1, Codici Sorgenti Visual Basic 6

Ecco a voi un programma nuovo nuovo. Il programma è stato ideato da Gius, io ho aggiunto la funzione della visualizzazione della CPU utilizzata, portando cosi l’incremento della versione del software. Potete scaricare http://www.enemy.altervista.org il software e i sorgenti.

Super Enalotto & Lotto, Funzioni Random. Codici Sorgenti Visual Basic 6

Da giorni mi ponevo il problema sulle random, incredibile come nella programmazione si possono utilizzare svariate funzione al fine di giungere anche ad un unico risultato. In questo esercizio si utilizza il principio random per le estrazioni del Super Enalotto ed il Lotto, per le estrazioni il principio è sempre lo stesso. Inoltre potete scaricare sia il programma che i codici sorgenti http://www.enemy.altervista.org

Ringrazio Dr.Fix per la dritta sulle random, in quanto io utilizzavo  i cicli Do While. Postero anche un esempio su random con i cicli.

WinMx, Codice Sorgente di Hash To IP & Port

Ecco a voi un semplicissimo esempio su come ricavare dal nome di una room di WinMx l’ip e la porta. Il programma è scritto in Visual Basic, è stato scritto da Keit ed io ho aggiunto la funzione per ricavare la porta.

Download da http://www.enemy.altervista.org

Codici Sorgenti di CalcoSound

Ecco a voi una semplice calcolatrice, ovviamente completa di codici sorgenti. L’ho scritta in Visual Basic 6 ed ho implementato l’esecuzione di file audio alla pressione dei tasti.

Potete scaricarla http://www.enemy.altervista.org

Frenata, Codice sorgente Visual Basic 6 commentato.

 

Ecco un programmino che calcola il tempo di frenata in funzione della velocità.

In prati questo programma calcola lo spazio (in metri) necessario  ad  arrestare ‘un ‘automobile  viaggiante ad una certa velocità espressa in km/h  supponendo però che la decelerazione sia costante ed uguale a 7.8 m/(s * s).

Prima di tutto acquisisco tramite una text box il valore della velocità iniziale espressa in km/h, poi con la seguente formula

Vi(m/s) = ViKmh(km/h) * 3.6

mi calcolo la velocità iniziale espressa in metri /secondo.

Dopo di che mi calcolo lo spazio s espresso in metri con la seguente formula

s = (1 / 2) * ((Vi * Vi) / 7.

Il risultato dello spazio lo stampo in un’altra text box attraverso un command button.

Nel form1.frm create due textbox: text1.text e text2.text. E un command button

Private Sub Command1_Click()
ViKmh = Text1.Text
Dim Vi As String
Vi = ViKmh / 3.6
Dim s As Integer
s = (1 / 2) * ((Vi * Vi) / 7.
Text2.Text = s
End Sub

codice sorgente scaricabile http://www.enemy.altervista.org