soft testare caracteristici HDD

[Vizitator ana]

e 2008-ul nu? have to install it verific si revin, oricum mii de multumiri

[srdjan]

da...2008...programul iti da posibilitatea sa deschizi un fisier (avi, mp3, txt, sau *.* sunt filtrele)... odata ce l-ai deschis ia valoarea lui t1, il copiaza, ia valoarea lui t2, calculeaza t2-t1 si iti da un mesaj in milisecunde dupa care sterge fisierul ce rezulta prin copieredaca de asta aveai nevoie... evrika si cu placere

[Vizitator ana]

yep, asta aveam nevoie; timpii de scriere/citire pt fisiere audio / videomultumesc mult:)

[ph3e4r]

Ce proiecte va mai da pe la facultate?

[Vizitator ana]

pai cam din astea:) cu testarea caracteristicilor noilor tipuri de HDD-uri(gen SSD )

[Vizitator ana]

da...2008...

programul iti da posibilitatea sa deschizi un fisier (avi, mp3, txt, sau *.* sunt filtrele)... odata ce l-ai deschis ia valoarea lui t1, il copiaza, ia valoarea lui t2, calculeaza t2-t1 si iti da un mesaj in milisecunde dupa care sterge fisierul ce rezulta prin copiere

daca de asta aveai nevoie... evrika si cu placere

cand il deschid imi apare Form1 cu un buton "Deschide"; la click pe el nu se intampla nimic :cry: End of statement expected Form1.vb Line 17 :-s (deci fix la linia MsgBox("Fisierul a fost copiat in " & CStr(timp.TotalMilliseconds) & " milisecunde avand lungimea de " & CStr(flen)) & " bytes" ) Hamm, cum incarc un mp3 sau un filmulet ca sa testez?pot face asta doar cu Debug->Start Debugging-> si Yes pt last successful build.de ce?

[srdjan]

pai dupa ce apesi deschide ti se deschide o caseta openfile... si acolo ai filtru pentru avi, mp3 sau txt

dupa ce dai pe butonul "open" din caseta de dialog se ia t1 se copiaza, se ia t2 se calculeaza timpu, se afiseaza raspunsu dupa care se sterge

 

MsgBox("Fisierul a fost copiat in " & CStr(timp.TotalMilliseconds) & " milisecunde avand lungimea de " & CStr(flen)) & " bytes" )

 

paranteza ce am bolduit-o pare a fi in plus

 

uite asa tre sa arate tot codul sursa:

 

Public Class Form1    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click        Dim flen As Long        Dim srcfile As String        Dim t1 As Date        Dim t2 As Date        OpenFileDialog1.Filter = "Video (*.avi)|*.avi|Music (*.mp3)|*.mp3|Text files (*.txt)|*.txt|All files (*.*)|*.* "        OpenFileDialog1.Multiselect = False        OpenFileDialog1.ShowDialog()        srcfile = OpenFileDialog1.FileName        flen = FileLen(srcfile)        t1 = Now        FileCopy(srcfile, "proba.dat")        t2 = Now        Dim timp As TimeSpan        timp = t2 - t1        MsgBox("Fisierul a fost copiat in " & CStr(timp.TotalMilliseconds) & " milisecunde avand lungimea de " & CStr(flen) & " bytes")        Kill("proba.dat")    End SubEnd Class

[Vizitator ana]

deschid aplicatia si imi apare ceea ce se vede in print screen-ul atasat. La Click pe deschide NOTHING HAPPENS.Efectiv sta...inca de la deschidere apare err de jos :cry: Stergand paranteza bold-uita de tine imi apare " ) expected"

[srdjan]

uita-te mai bine la linia cu MessageBox ce am postat-o pe forum si verifica parantezele sa fie la fel...iti mai lipseste una la sfarsit chiar

[Vizitator ana]

Form1.VBPublic Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim flen As Long Dim srcfile As String Dim t1 As Date Dim t2 As Date OpenFileDialog1.Filter = "Video (*.avi)|*.avi|Music (*.mp3)|*.mp3|Text files (*.txt)|*.txt|All files (*.*)|*.* " OpenFileDialog1.Multiselect = False OpenFileDialog1.ShowDialog() srcfile = OpenFileDialog1.FileName flen = FileLen(srcfile) t1 = Now FileCopy(srcfile, "proba.dat") t2 = Now Dim timp As TimeSpan timp = t2 - t1 MsgBox("Fisierul a fost copiat in " & CStr(timp.TotalMilliseconds) & " milisecunde avand lungimea de " & CStr(flen) & " bytes") Kill("proba.dat") End SubEnd Class asta e:( nu pare sa-i lipseasca nici o paranteza

[srdjan]

trimite-mi tot codul sursa cum e la tine sa vad ce bai poate fi