Скрипт для распечатки содержимого 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д