Скрипт для распечатки содержимого textbox - VB

Узнай цену своей работы

Формулировка задачи:

Здравствуйте столкнулся с проблемой в Visual Basic 6.0 нужен скрипт для распечатки содержимого из одного text.box . P.s не уверен правильно ли я расписал часть данного кода , помогите если есть ошибки в нем
суть в том , что заданые h1 , i1 , j1 должны находится в нужных промежутках для выполнения условия . Заранее спасибо

Решение задачи: «Скрипт для распечатки содержимого textbox»

textual
Листинг программы
Option Explicit
DefSng A-Z
Public a, b, c, d, e, f, g, h, i, j, k, l, m, n, o, p, q, r, s, t, u, v, w, x, y, z
Public a1, b1, c1, d1, e1, f1, g1, h1, i1, j1
Dim sText1(1 To 5) As String
Dim sText2(1 To 5) As String
 
Private Sub Combo()
   Select Case Combo1.Text
       Case sText1(1)
             i = 0.3 * c / Sqr(10 * a)
             j = 0.3 * c / Sqr(10 * b)
             k = 0.3 * b / Sqr(10 * c)
             q = 0.002 * c
       Case sText1(2)
             i = 0.24 * c / Sqr(10 * a)
             j = 0.24 * c / Sqr(10 * b)
             k = 0.24 * b / Sqr(10 * c)
             q = 0.0016 * c
       Case sText1(3)
             i = 0.35 * c / Sqr(10 * a)
             j = 0.35 * c / Sqr(10 * b)
             k = 0.35 * b / Sqr(10 * c)
             q = 0.0015 * c
       Case sText1(4)
             i = 0.34 * c / Sqr(10 * a)
             j = 0.34 * c / Sqr(10 * b)
             k = 0.34 * b / Sqr(10 * c)
             q = 0.0025 * c
       Case sText1(5)
             i = 0.43 * c / Sqr(10 * a)
             j = 0.43 * c / Sqr(10 * b)
             k = 0.43 * b / Sqr(10 * c)
             q = 0.001 * c
       Case Else
             MsgBox "Выберете тип здания."
    End Select
End Sub
 
 
Private Sub Form_Load()
   Dim i As Integer
   sText1(1) = "Кирпичное"
   sText1(2) = "Жилые крупнопанельные здания"
   sText1(3) = "Школьные и другие кирпичные здания с большими проемами в стенах"
   sText1(4) = "Железобетонные монолитные с кирпичным или легкобетонным заполнением"
   sText1(5) = "Стальные каркасные с кирпичным или легкобетонным заполнением"
   sText2(1) = "Здание не сейсмостойкое"
   sText2(2) = "Немедленная эвакуация людей. После эвакуации людей выполнить полное техническое обследование здания и по его результатам выполнить капитальные восстановительные работы, либо снос здания"
   sText2(3) = "Ремонт не требуется"
   sText2(4) = "Текущий ремонт"
   sText2(5) = "Усиление и восстановление несущей способности"
   For i = 1 To 5
       Combo1.AddItem sText1(i)
   Next i
    Combo1.Text = "Тип здания"
End Sub
   
Private Sub Command1_Click()
   a = Val(Text1.Text)
   b = Val(Text2.Text)
   c = Val(Text3.Text)
   f = Val(Text4.Text)
   g = Val(Text5.Text)
   h = Val(Text6.Text)
   l = Val(Text7.Text)
   m = Val(Text8.Text)
   r = (l) * (l) * m / 2
   Call Combo
   
   If r >= q Then
      Text9.Text = "Здание не сейсмостойкое"
   Else
      v = i - f
      w = j - g
      x = k - h
      y = i / 4
      z = j / 4
      a1 = k / 4
      b1 = f / 4
      c1 = g / 4
      d1 = h / 4
      e1 = Sqr(y ^ 2 + b1 ^ 2)
      f1 = Sqr(z ^ 2 + c1 ^ 2)
      g1 = Sqr(a1 ^ 2 + d1 ^ 2)
      h1 = (-1 * v) / e1
      i1 = (-1 * w) / f1
      j1 = (-1 * x) / g1
      
      If -1.64 >= h1 And h1 <= 1.64 Then Text9.Text = sText2(2)
      If -1.64 >= i1 And i1 <= 1.64 Then Text9.Text = sText2(2)
      If -1.64 >= j1 And j1 <= 1.64 Then Text9.Text = sText2(2)
      If h1 >= -3.29 And i1 >= -3.29 And j1 >= -3.29 Then Text9.Text = sText2(3)
      If h1 >= -3.19 And i1 >= -3.19 And j1 >= -3.19 Then Text9.Text = sText2(3)
      If h1 >= -3.09 And i1 >= -3.09 And j1 >= -3.09 Then Text9.Text = sText2(3)
      If h1 >= -2.58 And i1 >= -2.58 And j1 >= -2.58 Then Text9.Text = sText2(4)
      If h1 >= -2.555 And i1 >= -2.555 And j1 >= -2.555 Then Text9.Text = sText2(4)
      If -2.555 >= h1 And h1 >= -2.53 - 2.555 >= i1 And i1 >= -2.53 - 2.555 >= j1 And j1 >= -2.53 Then Text9.Text = sText2(5)
      If -2.245 <= h1 And i1 And j1 <= -2.53 Then Text9.Text = sText2(5)
      If -2.245 >= h1 And h1 >= -1.96 And -2.245 >= i1 And i1 >= -1.96 And -2.245 >= j1 And j1 >= -1.96 Then Text9.Text = sText2(5)
      If -1.96 >= h1 And h1 >= -1.8 And -1.96 >= j1 And j1 >= -1.8 Then Text9.Text = sText2(5)
      If -1.8 <= h1 And h1 <= -1.64 And -1.8 <= i1 And i1 <= -1.64 And -1.8 <= j1 And j1 <= -1.64 Then Text9.Text = sText2(5)
      If -1.64 >= h1 And h1 >= -1.28 And -1.64 >= i1 And i1 >= -1.28 And -1.64 >= j1 And j1 >= -1.28 Then Text9.Text = sText2(2)
      If -1.28 >= h1 And h1 >= -0.84 And -1.28 >= i1 And i1 >= -0.84 And -1.28 >= j1 And j1 >= -0.84 Then Text9.Text = sText2(2)
      If -0.84 >= h1 And h1 >= -0.52 And -0.84 >= i1 And i1 >= -0.52 And -0.84 >= j1 And j1 >= -0.52 Then Text9.Text = sText2(2)
      If -0.52 >= h1 And h1 >= -0.25 And -0.52 >= i1 And i1 >= -0.25 And -0.52 >= j1 And j1 >= -0.25 Then Text9.Text = sText2(2)
      If -0.25 >= h1 And h1 >= 0 And -0.25 >= i1 And i1 >= 0 And -0.25 >= j1 And j1 >= 0 Then Text9.Text = "Снос"
      If 0 <= h1 And h1 <= 0.25 And 0 <= i1 And i1 <= 0.25 And 0 <= j1 And j1 <= 0.25 Then Text9.Text = sText2(2)
      If 0.52 >= h1 And h1 >= 0.25 And 0.52 >= i1 And i1 >= 0.25 And 0.52 >= j1 And j1 >= 0.25 Then Text9.Text = sText2(2)
      If 0.84 >= h1 And h1 >= 0.52 And 0.84 >= i1 And i1 >= 0.52 And 0.84 >= j1 And j1 >= 0.52 Then Text9.Text = sText2(2)
      If 1.28 >= h1 And h1 >= 0.84 And 1.28 >= i1 And i1 >= 0.84 And 1.28 >= j1 And j1 >= 0.84 Then Text9.Text = sText2(2)
      If 1.64 >= h1 And h1 >= 1.28 And 1.64 >= i1 And i1 >= 1.28 And 1.64 >= j1 And j1 >= 1.28 Then Text9.Text = sText2(2)
      If 1.8 <= h1 And h1 <= 1.64 And 1.8 <= i1 And i1 <= 1.64 And 1.8 <= j1 And j1 <= 1.64 Then Text9.Text = sText2(5)
      If 1.96 >= h1 And h1 >= 1.8 And 1.96 >= i1 And i1 >= 1.8 And 1.96 >= j1 And j1 >= 1.8 Then Text9.Text = sText2(5)
      If 2.245 >= h1 And h1 >= 1.96 And 2.245 >= i1 And i1 >= 1.96 And 2.245 >= j1 And j1 >= 1.96 Then Text9.Text = sText2(5)
      If 2.245 <= h1 And h1 <= 2.53 And 2.245 <= i1 And i1 <= 2.53 And 2.245 <= j1 And j1 <= 2.53 Then Text9.Text = sText2(5)
      If 2.555 >= h1 And h1 >= 2.53 And 2.555 >= i1 And i1 >= 2.53 And 2.555 >= j1 And j1 >= 2.53 Then Text9.Text = sText2(5)
      If h1 >= 2.555 And i1 >= 2.555 And j1 >= 2.555 Then Text9.Text = sText2(4)
      If h1 >= 2.58 And i1 >= 2.58 And j1 >= 2.58 Then Text9.Text = sText2(4)
      If h1 >= -3.29 And i1 >= -3.29 And j1 >= -3.29 Then Text9.Text = sText2(3)
      If h1 >= -3.19 And i1 >= -3.19 And j1 >= -3.19 Then Text9.Text = sText2(3)
      If h1 >= -3.09 And i1 >= -3.09 And j1 >= -3.09 Then Text9.Text = sText2(3)
      
    End If
End Sub

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

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