Програмка для реализации нечеткой логики

Picture1.currentX = 300
Picture1.currentY = 200
Picture1.print "х"

Picture1.AutoRedraw = True
Picture1.ScaleMode = 3
For i = 0 To 500 Step 50
  Picture1.CurrentX = i
  Picture1.CurrentY = 200
  Picture1.Print i * 0.1
Next i

Private Sub Form_Load()
Picture1.Width = 3675
Picture1.Height = 2835
End Sub
 
Private Sub Command1_Click()
Const n As Integer = 300
Dim arr(10) As Integer
Dim p As Integer
p = n
Randomize
For i = 1 To 10
    arr(i) = Int(Rnd * 1000) + 100
    Picture1.Line (p, arr(i - 1))-(p + n, arr(i))
    Picture1.PSet (p, arr(i - 1))
    Picture1.Circle (p, arr(i - 1)), 20, vbRed
    Picture1.Print arr(i - 1)
    p = p + n
Next i
Picture1.PSet (p, arr(i - 1))
Picture1.Circle (p, arr(i - 1)), 20, vbRed
Picture1.Print arr(i - 1)
End Sub

    Picture1.Circle (p, arr(i - 1)), 20, vbRed
    Picture1.Print arr(i - 1)

Private Sub Command1_Click()
Dim Instring As String
MSComm1.CommPort = 1
MSComm1.Settings = "9600,N,8,1"
MSComm1.InputLen = 0
MSComm1.PortOpen = True
 
 
End Sub
 
Private Sub Command2_Click()
MSComm1.Output = "#021301" & Chr$(13)
Do
  Tzad = Text2.Text
  Tzad = strtoint(Tzad)
  DoEvents
  MSComm1.Output = "#01" & Chr$(13)
  Buffer$ = Buffer$ & MSComm1.Input
  t = (Buffer$ + 0.25) / 0.0569
  Text1.Text = t
Loop Until InStr(Buffer$, vbCr)
 
End Sub
 
Private Sub Command3_Click()
MSComm1.PortOpen = False
 
End Sub
 
Private Sub Command4_Click()
 
Open "data.dat" For Append As #1
Do
  Tzad = Text2.Text
  Tzad = strtoint(Tzad)
  DoEvents
  MSComm1.Output = "#01" & Chr$(13)
  Buffer$ = Buffer$ & MSComm1.Input
  t = (Buffer$ + 0.25) / 0.0569
  Text1.Text = t
  
  If t >= 13 And t <= 20 Then
   Begin
    terma = "õîëîäíà1"
    Text3.Text = terma
    MSComm1.Output = "#021301" & Chr$(13)
   End
   
  If t > 20 And t <= 33 Then
   Begin
    terma = "õîëîäíà2"
    Text3.Text = terma
    MSComm1.Output = "#021302" & Chr$(13)
   End
   
  If t > 33 And t <= 46 Then
   Begin
    terma = "òåïëà1"
    Text3.Text = terma
    MSComm1.Output = "#021303" & Chr$(13)
   End
  
  If t > 46 And t <= 59 Then
   Begin
     terma = "òåïëà2"
     Text3.Text = terma
     MSComm1.Output = "#021304" & Chr$(13)
   End
   
 
  If t > 59 And t <= 73 Then
   Begin
     terma = "ãàðÿ÷à1"
     Text3.Text = terma
     MSComm1.Output = "#021305" & Chr$(13)
   End
  
  If t > 73 And t <= 79 Then
  Begin
     terma = "ãàðÿ÷à2"
     Text3.Text = terma
     MSComm1.Output = "#021306" & Chr$(13)
   End
t1 = Time
Print #1, t; " "; t1 '
Loop Until InStr(Buffer$, vbCr)
Close #1
End Sub
 
Private Sub Command5_Click()
MSComm1.Output = "#021300" & Chr$(13)
End Sub
 
End Sub
 
Private Sub Command6_Click()
X = t
Dim sigma As Single, c As Single, i As Single
sigma = 6: c = 0
Picture1.Scale (-1, 1)-(10, -0.1)
Picture1.Line (0, 0)-(20, 0)
Picture1.Line (0, 2)-(0, 0)
Picture1.CurrentX = 10
Picture1.CurrentY = 10
'Picture1.AutoRedraw = True
'Picture1.ScaleMode = 2
'For i = 0 To 500 Step 50
 ' Picture1.CurrentX = i
  'Picture1.CurrentY = 200
  'Picture1.Print i * 0.1
'Next i
 
'Picture1.Print ""
For X = 0 To 100 Step 0.01
   Picture1.PSet (X, Exp(-(X - c) ^ 2 / sigma ^ 2)), vbRed
Next
End Sub

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