test/subMain.vb at master · erndevelops/test · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
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