| Sahiplik | Değer |
| İsim | Form1 Option Explicit Private Wi |
| Açıklama | Form1 Option Explicit Private WithEvents Huffman As clsHuffman Private Sub Command1_Click() Dim OldTimer As Single On Error GoTo ErrorHandler Store the current timer for later use OldTimer = Timer Compress the source file Call Huffman.EncodeFile(Text1(0).Text, Text1(1).Text) Update the statistics Label2(3).Caption = Timer - OldTimer & " s" Label2(0).Caption = FileLen(Text1(0).Text) & " bytes" Label2(1).Caption = FileLen(Text1(1).Text) & " bytes" Label2(2).Caption = Int(Val(Label2(1).Caption) / Val(Label2(0).Caption) * 100) & "%" Show a nice dialog to the user Call MsgBox("Compression successful.", vbInformation) Exit Sub ErrorHandler: Call MsgBox("The compression was not successful. Something went terribly wrong." & vbCrLf & vbCrLf & Err.Description, vbExclamation) End Sub Private Sub Command2_Click() Dim Filenr As Integer Dim OldTimer As Single On Error GoTo ErrorHandler Store the time for later use OldTimer = Timer Uncompress the compressed file Call Huffman.DecodeFile(Text1(1).Text, Text1(2).Text) Update decompression statistics Label2(3).Caption = Timer - OldTimer & " s" Label2(0).Caption = FileLen(Text1(1).Text) & " bytes" Label2(1).Caption = FileLen(Text1(2).Text) & " bytes" Label2(2).Caption = Int(Val(Label2(1).Caption) / Val(Label2(0).Caption) * 100) & "%" Show a nice dialog to the user Call MsgBox("Decompression successful.", vbInformation) Exit Sub ErrorHandler: Call MsgBox("The decompression was not successful. Something went terribly wrong." & vbCrLf & vbCrLf & Err.Description, vbExclamation) End Sub Private Sub Command3_Click() End Sub Private Sub Form_Load() Set Huffman = New clsHuffman End Sub Private Sub Huffman_Progress(Procent As Integer) Label2(4).Caption = Procent & "%" Label2(4).Refresh DoEvents End Sub Class modules ... |
| Dosya Adı | Bağlantı form133.doc |
| Dosya Boyutu | Link |
| Dosya Tipi | doc (Mime Tipi: link) |
| Ekleyen | admin |
| Ekleme tarihi: | 07.10.2008 16:13 |
| İnceleyenler | Herkes |
| Kontrol Eden | Editor |
| İndirme sayısı | 0 İndirme sayısı |
| En son güncelleme | 07.10.2008 16:14 |
| Anasayfa | http://www.edubilim.com |
Ana Menü
| Anasayfa |
| Haberler |
| Arama |
| İlanlar |
| Eğitim Siteleri |
Edubilim
| Forum |
| Resim Galerisi |
| Video Galerisi |
| Program Arşivi |
| Döküman Arşivi |
| Bilim Adamları |
| Kolay Ulaşım |
Üniversiteler
| Türkiye Üniversiteleri |
| Yabancı Üniversiteler |
Popüler Döküman
Öğretim Yöntem ve Teknikleri (1023)(Eğitim)
WISC-R RAPORU (980)(Psikoloji)
DOĞAL AFETLER ÇEVREMİZİ NASIL DEĞİŞTİRİR? (553)(Eğitim)
OTEL REZERVASYONU OTOMASYON PROGRAMI (536)(Otelcilik)
İstanbulun Fethi (443)(Sunular)
Eğitim Siteleri
- Edebiyat- Türkçe -Şiir (12)
- Okul Öncesi (7)
- Sınavlar (10)
- Rehberlik Siteleri (11)
- Üniversite Siteleri (77)
- Eğitim Haberleri (12)
- Sözlük - Çeviri Siteleri (6)
- Ders Yardımcıları (5)
- Eğitim Forumları (9)
- Genel Eğitim Siteleri (13)