Помощь В Написании Программы В Vb6 (использование Массивов, Функций)

Тема в разделе "Visual Basic", создана пользователем dany, 7 апр 2012.

  1. dany

    dany Гость

    форма программы содержит таблицу (5 строк) с такими данными: наименование товара, цена, количество (данные вводятся), сумма покупки, цена продажи, сумма продажи, цена продажи постоянным покупателям, сумма продажи постоянным покупателям (необходимо рассчитать)

    при изменении данных цена или количество должны изменяться все расчетные данные

    для расчета цен, сумм использовать функции.

    начала писать такой код, в результате дает все 0.

    Option Explicit
    Dim c(5) As Currency
    Dim k(5) As Single
    Dim i As Integer

    Private Sub txtC_Change(Index As Integer)
    c(Index) = Val(txtC(Index).Text)
    txtCr(Index).Text = Str(FormatNumber(Cina(1.1)))
    txtCrp(Index).Text = Str(FormatNumber(Cina(1.08)))
    k(Index) = Val(txtK(Index).Text)
    txtSp(Index).Text = Str(Sum(67))
    End Sub

    Public Function Cina(n As Single)
    For i = 0 To 4
    Cina = c(i) * n
    Next i
    End Function

    Public Function Sum(ci As Currency)
    For i = 0 To 4
    Sum = k(i) * ci
    Next i
    End Function
     
  2. alex77755

    alex77755 Well-Known Member

    Регистрация:
    15 фев 2009
    Сообщения:
    128
    Симпатии:
    0
    похоже у тебя не таблица, а массивы тексбоксов
    набирать самому лениво.
    Прицепи архив с программой - посмотрю

    Добавлено: С первого вгляда: функции написаны не правильно.
    Функция возвращает значение. При изменении цены одного наименования зачем перемножать цены всех?
     
  3. Aline

    Aline Гость

    помогите решить задачи,пожалуйста!! 1.найти произведение элементов первой строки на соотв. элементы к-го столба. 2.умножить скалярно каждый столбец матрицы А(n,m) на соотв. столбец матрицы B(n,m). напишите программные коды,пожалуйста!!!
     
  4. Vlad42444

    Vlad42444 New Member

    Регистрация:
    20 май 2012
    Сообщения:
    2
    Симпатии:
    0
    Помогите пожалуйста, не могу найти ошибку при составлении программного кода к программе которая строит графики функций, вот код:

    Option Explicit
    Dim x As Single, y As Single, m As Single, xn As Single, ymin As Single
    Dim xk As Single, ymax As Single, dx As Single
    Function FNy(x As Single)
    y = 2 * Sqr(Abs(x ^ 3)) * Sin(x)
    FNy = y
    End Function

    Private Sub Command1_Click()
    Picture1.Cls
    Picture1.ScaleMode = 3
    xn = Val(Text1.Text)
    xk = Val(Text2.Text)
    dx = Val(Text3.Text)
    ymax = FNy(xn)
    ymin = ymax
    For x = xn To xk + dx / 2 Step dx
    y = FNy(x)
    If y > ymax Then ymax = y
    If y < ymin Then ymin = y
    Next x
    Picture1.Scale (xn, ymax)-(xk, ymin)
    Picture1.Line (xn, 0)-(xk, 0)
    Picture1.Line (0, ymin)-(0, ymax)
    For x = xn To xk + dx / 2 Step dx
    y = FNy(x)
    Picture1.PSet (x, y), vbRed
    Next x
    End Sub

    Private Sub cmdExit_Click()
    End
    End Sub

    P.S.: texbox 3шт.,picturebox 1шт., command 2шт.
     
  5. alex77755

    alex77755 Well-Known Member

    Регистрация:
    15 фев 2009
    Сообщения:
    128
    Симпатии:
    0
    я не стал искать. Скопипастил код. Поменял имена контролов(у меня русский VB).
    Запустил - работает
     

    Вложения:

    • 6.jpg
      6.jpg
      Размер файла:
      64,5 КБ
      Просмотров:
      16
  6. Vlad42444

    Vlad42444 New Member

    Регистрация:
    20 май 2012
    Сообщения:
    2
    Симпатии:
    0
    Спасибо огромное!
     
  7. Antoha888

    Antoha888 Гость

    Напишите пожалуйста программный код к заданию y=ax^2+bx+c, если -20меньше или = Х меньше или =20. Плиз!!!!!!!!!!
     
Загрузка...

Поделиться этой страницей