Автоматизировать механизм поиска учебников по заданным кодам наименований дисциплин - VB

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

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

Разработать код приложения. Автоматизировать механизм поиска учебников по заданным кодам наименований дисциплин. Количество дисциплин не более 5. Количество учебников по дисциплине не более трёх.

Решение задачи: «Автоматизировать механизм поиска учебников по заданным кодам наименований дисциплин»

textual
Листинг программы
Option Explicit
Dim dic As Object
Dim fso As Object
'-------------------------------
Const lenkey& = 32
Dim key As String * lenkey, fn$
 
Public Function WriteRec&(Path$, num&, rec$)
    key = rec
    Open Path For Random As #1
    If num Then Else num = 1
    Put #1, num, key
    WriteRec = num + lenkey
    Close #1
End Function
 
Public Function ReadRec(Path$, num&) As String
    Open Path For Random As #1
    Get #1, num, key
    ReadRec = key
    Close #1
End Function
 
Private Sub Form_Load()
    Dim s$, n&, rec$
    s = InputBox("введите книгу", , "Тургенев-МуМу")
    n = dic(s)
    If n > 0 Then
        rec = ReadRec(fn, n)
        MsgBox "Номер в базе =" & CStr(n)
    End If
End Sub
 
Private Sub Form_Initialize()
    Set dic = CreateObject("Scripting.Dictionary")
    dic.CompareMode = 1 'TextCompare
    Set fso = CreateObject("Scripting.FileSystemObject")
    Dim s$, j$(), f&
    s = "Толстой-Война и мир//Тургенев-МуМу//Бонч-Бруевич -Тайная переписка"
    fn = Environ("homedrive") & Environ("homepath") & "\MyBase.txt"
    j = Split(s, "//")
    For f = 0 To UBound(j)
        WriteRec fn, f + 1, j(f)
        dic.Add j(f), f + 1
    Next
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

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