Как вывести результаты расчета в текстовое окно - VB
Формулировка задачи:
суть такова мне нужно полученые данные из расчета занести в отдельное текстовое окно с кнопкой распечатка( для распечатки всех данных в текстовом окне ) подскажите как это сделать . вот часть кода которую надо занести
Листинг программы
- If -1.64 >= j1 <= 1.64 Then Print "блала" - что нужно использовать вместо Print . что бы внести данные в текстовое окно?
- If h1 And i1 And j1 >= -3.29 Then Print "блала"
- h1 = (-1 * v) / e1
- i1 = (-1 * w) / f1
- j1 = (-1 * x) / g1
Решение задачи: «Как вывести результаты расчета в текстовое окно»
textual
Листинг программы
- 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, a1, b1, c1, d1, e1, f1, g1, h1, i1, j1 As Single
- Private Sub Combo1_Change()
- If Combo1.Text = "Êèðïè÷Г*îå" Then
- 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
- If Combo1.Text = "Æèëûå êðóïГ*îïГ*Г*åëüГ*ûå çäГ*Г*ГЁГї" Then
- 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
- If Combo1.Text = "Г
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д