Програмка для реализации нечеткой логики - 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

Оцени полезность:

11   голосов , оценка 4.182 из 5
Похожие ответы