[закрыть]

Регистрация на сайте

Если вы уже зарегистрированы, пожалуйста войдите на сайт!
Email:
Имя (ник):
Пароль:
Повторите пароль:
  
Защита от роботов:

Плохо видно


Для программистов. Вы не могли бы помочь мне с написанием программы по VBA. Очень нужно.

Вы не могли бы помочь мне с написанием программы по VBA. Файл произвольного доступа состоит из структур заданного типа. Каждая структура должна содержать не менее двух методов, составленных студентом. Разработать проект, включающий в себя меню. С помощью меню осуществить следующие действия: - очистка файла - создание файла - добавление одной записи - изменение одной записи - удаление одной записи - вывод содержимого файла - сортировка файла - поиск записей, удовлетворяющих заданному критерию. Если таких записей в файле нет, то вывести сообщение. - преобразование файла. Если таких записей в файле нет, то вывести сообщение. - удаление всех записей, удовлетворяющих заданному критерию. Если таких записей в файле нет, то вывести сообщение. - выход. Тип структуры. Парабола ya^2 + bx + c задана значениями коэффициентов. Private Structure Парабола Public a As Single Public b As Single Public c As Single End Structure Сортировка. Упорядочить параболы по убыванию расстояния между корнями соответствующего квадратного уравнения. Поиск. Найти все параболы, пересекающие ось X. Преобразование. Параболы, касающиеся оси X, отразить относительно начала координат. Удаление. Удалить все параболы, которые не пересекают ось X. Добавлено 22 часа назад Это не курсовая. Домашняя программа. Добавлено 22 часа назад Наработки есть. Public Structure Парабола Public a As Single Public b As Single Public c As Single Public Function Строка() As String Строка = Str(a) + vbTab + Str(b) + vbTab + Str(c) End Function End Structure Public Class Form1 Dim FN As String, parab As Парабола Private Sub СоздатьФайлToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles СоздатьФайлToolStripMenuItem.Click Dim n, i As Integer, t As Парабола n = Val(InputBox("Количество парабол")) SaveFileDialog1.ShowDialog() FN = SaveFileDialog1.FileName FileOpen(1, FN, OpenMode.Random, , Len(parab)) For i = 1 To n With parab t.a = Val(InputBox("Сторона a")) t.b = Val(InputBox("Сторона b")) t.c = Val(InputBox("Сторона c")) End With FilePut(1, parab) Next FileClose(1) End Sub Private Sub ПросмотрФайлаToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ПросмотрФайлаToolStripMenuItem.Click OpenFileDialog1.ShowDialog() FN = OpenFileDialog1.FileName FileOpen(1, FN, OpenMode.Random, , Len(parab)) Do Until EOF(1) FileGet(1, parab) ListBox1.Items.Add(parab.Строка) Loop FileClose(1) End Sub Private Sub ОчиститьФайлToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ОчиститьФайлToolStripMenuItem.Click If Not File.Exists(FN) Then MsgBox("file not find") Exit Sub End If FileOpen(1, FN, OpenMode.Output) FileClose(1) End Sub Private Sub ВыходToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ВыходToolStripMenuItem.Click End End Sub End Class Это то, что написано уже. Вопросы в пунктах одной записи. Как писать - не знаю.



Знаю верный ответ Найти ответ на вопрос



Ключевые слова: как написать программу в vba, как написать программу на вба о ресторане, написание программ vba,

2 ответа к вопросу “Для программистов. Вы не могли бы помочь мне с написанием программы по VBA. Очень нужно.”

  • ответ #0 / ответил: Служба поддержки

    • ответ #1 / ответил: addask
      Полезный ответ? Да (0) / Нет (0)


      Это курсач???



      Ответить

    • ответ #2 / ответил:
      Полезный ответ? Да (0) / Нет (0)


      помочь без проблем, давай наработки какие нибудь, говори что не понятно. А если тебе надо чтобы это все написали за тебя, время платить деньги



      Ответить

Ответить на вопрос


Не хотите вводить проверочный код? Пройдите регистрацию!
Проверочный код:

обновить картинку

Статистика

  • © 2010-2011. Копирование материалов с сайта строго запрещено
  • Не нашли ответ? задай свой вопрос