Üye Girişi
Bağlan Google+ ile Bağlan Facebook ile Bağlan
Yeni Kayıt
Tüm Forumlar
  • Tüm Forumlar
  • Web Tasarım - Programlama
  • Yazılım Geliştirme
  • Delphi / C++ /Vb
  • Bu Konuda
Şimdi Ara

Visual Basic hatası

Sıcak Fırsatlarda Tıklananlar
Editörün Seçtiği Fırsatlar
Daha Fazla
Bu Konudaki Kullanıcılar: Daha Az
2 Misafir - 2 Masaüstü
5 sn
1
Cevap
0
Favori
602
Tıklama
Daha Fazla
İstatistik
  • Konu İstatistikleri Yükleniyor
Konuya Özel
0 oy
Öne Çıkar
Cevapla
Sayfa: 1
Giriş
Mesaj
  • Merhaba arkadaşlar çalıştırmak istediğim bir vb kodu var fakat Event 'Load' cannot be found. c:\users\abc\documents\visual studio 2013\Projects\Load\Load\Class1.vb
    hatası alıyorum visual basic konusunda oldukça acemiyim yardım edebilirseniz çok sevinirim, çalıştırmak istediğim kod aşağıda;

    Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load(hata aldığım yer)

    Dim arr() As Integer = {16, 22, 23, 24, 25, 26, 28, 30, 31, 39, 43, 45, 49, 51, 55, 75, 85}
    Dim i = 0
    Dim j = 0
    Dim count = 0
    Dim filerd As System.IO.FileStream

    For i = 0 To 16

    For j = 1 To 5
    filerd = New System.IO.FileStream("C:\Mdata\cs" & arr(i) & "0" & j & ".arff", IO.FileMode.Open, IO.FileAccess.Read)
    Dim lala As New System.IO.StreamReader(filerd)
    Dim str As String = ""
    While str.CompareTo("@data")
    str = lala.ReadLine
    count += 1
    End While

    Dim filewr As System.IO.FileStream
    filewr = New System.IO.FileStream("C:\Mdata\cs" & arr(i) & "0" & j & "a.arff", IO.FileMode.Create, IO.FileAccess.Write)
    Dim wrt As New System.IO.StreamWriter(filewr)
    wrt.WriteLine("@relation cs16")
    wrt.WriteLine("@attribute phonenumber_oid numeric")
    wrt.WriteLine("@attribute description_no {1,2,3}")
    wrt.WriteLine("@attribute direction_no {1,2,3}")
    wrt.WriteLine("@attribute month_day {1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,2 0,21,22,23,24,25,26,27,28,29,30,31}")
    wrt.WriteLine("@attribute day_no {1,2,3,4,5,6,7}")
    wrt.WriteLine("@attribute stimes numeric")
    wrt.WriteLine("@attribute duration numeric")
    wrt.WriteLine("@attribute pid {yes,no}")
    wrt.WriteLine("@data")
    While lala.Peek > -1
    count += 1
    str = lala.ReadLine
    Dim tmp As String() = str.Split(",")
    Dim str_to_write = tmp(0) & "," & tmp(2) & "," & tmp(3) & "," & tmp(4) & "," & tmp(5) & "," & tmp(6) & "," & tmp(7) & "," & tmp(8)
    wrt.WriteLine(str_to_write)
    End While
    wrt.Close()

    filewr.Close()

    Next


    Next

    End Sub
    End Class



    _____________________________




    • Yapay Zeka’dan İlgili Konular
    microsoft office 2013 yükleme hatası.!
    12 yıl önce açıldı
    microsoft visual c++ runtime library sorunu [Çözüldü]
    13 yıl önce açıldı
    windows script host hatası
    3 yıl önce açıldı
    Daha Fazla Göster
    
Sayfa: 1

Benzer içerikler

- x
Bildirim
mesajınız kopyalandı (ctrl+v) yapıştırmak istediğiniz yere yapıştırabilirsiniz.
Hizmet kalitesi için çerezleri kullanabiliriz, DH'yi kullanırken depoladığımız çerezlerle ilgili veri politikamıza gözatın.
Kabul Ediyorum