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