Turkhackteam.net/org - Turkish Hacking & Security Platform...  
Geri git   Turkhackteam.net/org - Turkish Hacking & Security Platform... >
Programlama
> Visual Basic

Visual Basic Örnek Code

Visual Basic

Yeni Konu aç Cevapla
 
Seçenekler
Alt 16-07-2017   #1
  • Offline
  • Yarbay
  • Genel Bilgiler
Üyelik tarihi
Jun 2014
Mesajlar
Konular


  
Visual Basic Örnek Code



Kod:
Sub Main()
On Error GoTo Failed
 
Dim app As Netica.Application
app = New Netica.Application
app.Visible = True
 
Dim net_file_name As String
net_file_name = System.AppDomain.CurrentDomain.BaseDirectory() & "..\..\..\ChestClinic.dne"
Dim net As Netica.Bnet
net = app.ReadBNet(app.NewStream(net_file_name))
net.Compile()
 
Dim TB As Netica.BNode
TB = net.Nodes.Item("Tuberculosis")
Dim belief As Double
belief = TB.GetBelief("present")
MsgBox("The probability of tuberculosis is " & belief)
 
net.Nodes.Item("XRay").EnterFinding("abnormal")
belief = TB.GetBelief("present")
MsgBox("Given an abnormal X-Ray, the probability of tuberculosis is " & belief)
 
net.Nodes.Item("VisitAsia").EnterFinding("visit")
belief = TB.GetBelief("present")
MsgBox("Given abnormal X-Ray and visit to Asia, the probability of tuberculosis is " & belief)
 
net.Nodes.Item("Cancer").EnterFinding("present")
belief = TB.GetBelief("present")
MsgBox("Given abnormal X-Ray, Asia visit, and lung cancer, the probability of tuberculosis is " & belief)
 
net.Delete()
If Not app.UserControl Then
app.Quit()
End If
 
Exit Sub
Failed:
 
MsgBox("NeticaDemo: Error " & (Err.Number And &H7FFFS) & ": " & Err.Description)
 
End Sub
    


__________________

it's just a shot away.
Offline
 
Alıntı ile Cevapla
Alt 16-07-2017   #2
  • Offline
  • Yarbay
  • Genel Bilgiler
Üyelik tarihi
Mar 2017
Yaş
94
Mesajlar
Konular


  


Programın fotoğrafını koysaydın güzel olurdu c# için bekleriz
Eline sağlık
    


__________________

SONSUZA DEK ARA VERİYORUM
Hack'e hevesle girersiniz bir süre sonra bırakırsınız bu çok boş bir iş. Çıkın dışarı hava alın biraz oturmaktan ayaklarınıza kan gitmiyor arkadaş edinin kızlarla tanışın hayatı yaşayın.
HACK BOŞ İŞ daha güzel şeyler var hayatta.
Offline
 
Alıntı ile Cevapla
Cevapla

Bookmarks

Seçenekler

Yetkileriniz
Sizin Yeni Konu Acma Yetkiniz var yok
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodları Kapalı
Trackbacks Kapalı
Pingbacks Kapalı
Refbacks Kapalı


Bilgilendirme Turkhackteam.net/org
Sitemizde yer alan konular üyelerimiz tarafından açılmaktadır.
Bu konular yönetimimiz tarafından takip edilsede gözden kaçabilen telif hakkı olan veya mahkeme kararı çıkmış konular sitemizde bulunabilir. Bu tür konuları bize turkhackteamiletisim [at] gmail.com adresine mail atarak bildirdiğiniz takdirde en kısa sürede konular hakkında gerekli işlemler yapılacaktır.
Please Report Abuse, DMCA, Harassment, Scamming, Warez, Crack, Divx, Mp3 or any Illegal Activity to turkhackteamiletisim [at] gmail.com


Türkhackteam saldırı timleri Türk sitelerine hiçbir zararlı faaliyette bulunmaz, bu sitelerin güvenlik açıklarını site sahibine bildirmek için çaba sarfeder.
Turkhackteam üyelerinin yaptığı bireysel hack faaliyetlerinden Turkhackteam sorumlu değildir. Sitelerinize Turkhackteam ismi kullanılarak hack faaliyetinde bulunulursa, site-sunucu erişim loglarından bu faaliyeti gerçekleştiren ip adresini tespit edip diğer kanıtlarla birlikte savcılığa suç duyurusunda bulununuz.



         

Powered by vBulletin® Copyright ©2000 - 2017

TSK Mehmetçik Vakfı

Türk Polis Teşkilatını Güçlendirme Vakfı



Google Links
instagram Takipçi Hilesi

wau

Search Engine Friendly URLs by vBSEO 3.6.0 ©2011, Crawlability, Inc.