Програмка для реализации нечеткой логики - VB
Формулировка задачи:
здравствуйте! не сочтите за нахальство, но горит последний раздел магистерской. у меня тема об использовании нечеткой логики для программирования промышленных контролеров (ADAM-4000). каркас проги есть, рабочая. но не получается представлять данные графически. я хочу, чтоб выводилась хоть какая-то функция в реальном времени (идет регулирование температуры)
как могли понять, что программист из меня никудышний, так что буду рада любым советам
худо-бедно прогу написала. теперь остался совсем махонький вопрос - как отображать шкалу на PictureBox О_о
Решение задачи: «Програмка для реализации нечеткой логики»
textual
Листинг программы
Dim sigma As Single, c As Single, i As Single, xc As Integer, yc As Integer sigma = 6: c = 0 xc = 30 yc = 300 Form1.ScaleMode = 3 Picture1.ScaleMode = 3 Picture1.Height = 350 Picture1.Width = 350 Picture1.AutoRedraw = True Picture1.Line (xc, yc)-(xc + 300, yc) Picture1.Line (xc, yc)-(xc, 0) For X = 0 To 100 Step 0.01 Picture1.PSet (X * 20 + xc, yc - 200 * Exp(-(X - c) ^ 2 / sigma ^ 2)), vbRed Next For i = 0 To 200 Step 20 Picture1.CurrentX = 5 Picture1.CurrentY = yc - i - 10 Picture1.Print i / 200 Next Picture1.CurrentX = 5 Picture1.CurrentY = yc - 230 Picture1.Print "y" For i = 0 To 300 Step 50 Picture1.CurrentX = i + xc Picture1.CurrentY = yc Picture1.Print i / 20 Next Picture1.CurrentX = xc + 300 Picture1.CurrentY = yc + 20 Picture1.Print "x" End Sub