Платные хостинги     Раскрутка сайта     Книги по программированию

Помогите написать программу!, Пожалуйста!!

- Создай новый проектНа форму помести TextBoxУстанови MultiLine = True, ScrollBars = 2 - Vertical и растяни его на всю форму (чтобы лучше видеть)В код Form1 помести текст:Код Option ExplicitPrivate mR          As New mRecordPrivate average     As IntegerPrivate T           As TextBoxPrivate Sub Form_Load()  Dim localCRec As New cRec    Set T = Text1    T.Text = ""    With localCRec        .Branch_Name = "a1"        .Harmful_conditions = 23        .Quantity_of_workers = 12        mR.Add_Last localCRec        .Branch_Name = "a2"        .Harmful_conditions = 45        .Quantity_of_workers = 2        mR.Add_Last localCRec        .Branch_Name = "a3"        .Harmful_conditions = 344        .Quantity_of_workers = 45        mR.Add_Last localCRec        .Branch_Name = "a4"        .Harmful_conditions = 64        .Quantity_of_workers = 63        mR.Add_Last localCRec        .Branch_Name = "a5"        .Harmful_conditions = 222        .Quantity_of_workers = 5        mR.Add_Last localCRec        .Branch_Name = "a6"        .Harmful_conditions = 238        .Quantity_of_workers = 78        mR.Add_Last localCRec        .Branch_Name = "a7"        .Harmful_conditions = 243        .Quantity_of_workers = 47        mR.Add_Last localCRec        .Branch_Name = "a8"        .Harmful_conditions = 123        .Quantity_of_workers = 12        mR.Add_Last localCRec        .Branch_Name = "a9"        .Harmful_conditions = 923        .Quantity_of_workers = 0        mR.Add_Last localCRec        .Branch_Name = "a10"        .Harmful_conditions = 223        .Quantity_of_workers = 5        mR.Add_Last localCRec        .Branch_Name = "a11"        .Harmful_conditions = 31        .Quantity_of_workers = 22        mR.Add_Last localCRec        .Branch_Name = "a12"        .Harmful_conditions = 911        .Quantity_of_workers = 120        mR.Add_Last localCRec    End With        PrintRec "Список отраслей в предоставленной последовательности", T, mR    Calculate_average_Quantity mR, average    PrintText "Средний процент по отраслям: " & average, T    Calculate_average_QuantityProcent mR, average    Sort mR    PrintSort "Список отраслей отсортированный в порядке возрастания процента", T, mREnd SubhighlightSyntax('vbMxMWIz','vb'); Добавь модуль с именем «myModule» и помести туда текстКод Option ExplicitPublic Sub Calculate_average_Quantity(recColl As mRecord, _                                      average As Integer)  Dim nSumm1 As Double  Dim nSumm2 As Double    recColl.MoveFirst    Do        With recColl            nSumm1 = nSumm1 + .item.Quantity_of_workers            nSumm2 = nSumm2 + .item.Harmful_conditions            .MoveNext        End With        DoEvents    Loop While Not recColl.cCurent.NextCell Is Nothing    average = (nSumm1 * 100) / nSumm2End SubPublic Sub Calculate_average_QuantityProcent(recColl As mRecord, _                                             ByVal average As Integer)    recColl.MoveFirst    Do        recColl.item.QuantityProcent = (recColl.item.Quantity_of_workers * 100) / recColl.item.Harmful_conditions        recColl.MoveNext        DoEvents    Loop While Not recColl.cCurent.NextCell Is NothingEnd SubPublic Sub PrintRec(ByVal sTitle As String, _                    conText As TextBox, _                    recColl As mRecord)    recColl.MoveFirst    conText = conText & "Title: " & sTitle & vbCrLf    conText = conText & vbCrLf    Do        With recColl            conText = conText & "Branch Name: " & .cCurent.Value.Branch_Name & vbCrLf            conText = conText & "Harmful conditions: " & .cCurent.Value.Harmful_conditions & vbCrLf            conText = conText & "Quantity of workers: " & .cCurent.Value.Quantity_of_workers & vbCrLf            conText = conText & "Quantity(%): " & .cCurent.Value.QuantityProcent & vbCrLf        End With        conText = conText & vbCrLf        recColl.MoveNext    Loop While Not recColl.cCurent.NextCell Is NothingEnd SubPublic Sub PrintSort(ByVal sTitle As String, _                     conText As TextBox, _                     recColl As mRecord)    Set recColl.cCurent = recColl.cFirstSort    conText = conText & "Title: " & sTitle & vbCrLf    conText = conText & vbCrLf    Do        Set recColl.cCurent = recColl.cCurent.NextSort        DoEvents        With recColl            conText = conText & "Branch Name: " & .cCurent.Value.Branch_Name & vbCrLf            conText = conText & "Harmful conditions: " & .cCurent.Value.Harmful_conditions & vbCrLf            conText = conText & "Quantity of workers: " & .cCurent.Value.Quantity_of_workers & vbCrLf            conText = conText & "Quantity(%): " & .cCurent.Value.QuantityProcent & vbCrLf        End With        conText = conText & vbCrLf    Loop While Not recColl.cCurent.NextSort Is NothingEnd SubPublic Sub PrintText(ByVal sTitle As String, _                     conText As TextBox)    conText = conText & "Title: " & sTitle & vbCrLf    conText = conText & vbCrLfEnd SubPublic Sub Sort(recColl As mRecord)  Dim LocMin       As Integer  Dim LocMax       As Integer  Dim LocVal       As Integer  Dim nCount       As Integer  Dim new_cFirst   As New Cel  Dim new_cCurents As Cel  Dim locArr()     As Cel    LocMin = 100    LocMax = 0    recColl.MoveFirst    Do        LocVal = recColl.item.QuantityProcent        If LocVal > LocMax Then            LocMax = LocVal        End If        If LocVal < LocMin Then            LocMin = LocVal        End If        recColl.MoveNext    Loop While Not recColl.cCurent.NextCell Is Nothing    ReDim locArr(LocMin To LocMax)    recColl.MoveFirst    Do        With recColl            Set .cCurent.NextSort = locArr(.item.QuantityProcent)            Set locArr(.item.QuantityProcent) = .cCurent            .MoveNext        End With    Loop While Not recColl.cCurent.NextCell Is Nothing    Set new_cFirst.NextSort = locArr(LocMin)    Set new_cCurents = new_cFirst    Set recColl.cFirstSort = new_cFirst    For nCount = LocMin To LocMax        If Not locArr(nCount) Is Nothing Then            Set new_cCurents.NextSort = locArr(nCount)            Set new_cCurents = new_cCurents.NextSort            Do                If Not locArr(nCount).NextSort Is Nothing Then                    Set locArr(nCount) = locArr(nCount).NextSort                    Set new_cCurents.NextSort = locArr(nCount)                    Set new_cCurents = new_cCurents.NextSort                End If                DoEvents            Loop While Not locArr(nCount).NextSort Is Nothing        End If    Next nCountEnd SubhighlightSyntax('vbFhZDgwN','vb');Добавь модуль класса с именем «Cel» и помести туда текстКод Option ExplicitPublic Value        As New cRecPrivate CFm_PrevCell     As CelPrivate CFm_NextCell     As CelPrivate CFm_NextSort     As CelPublic Property Set PrevCell(PropVal As Cel)    Set CFm_PrevCell = PropValEnd PropertyPublic Property Get PrevCell() As Cel    Set PrevCell = CFm_PrevCellEnd PropertyPublic Property Set NextCell(PropVal As Cel)    Set CFm_NextCell = PropValEnd PropertyPublic Property Get NextCell() As Cel    Set NextCell = CFm_NextCellEnd PropertyPublic Property Set NextSort(PropVal As Cel)    Set CFm_NextSort = PropValEnd PropertyPublic Property Get NextSort() As Cel    Set NextSort = CFm_NextSortEnd PropertyhighlightSyntax('vbjMmExYmZ','vb'); Добавь модуль класса с именем «cRec» и помести туда текстКод Option ExplicitPrivate CFm_Branch_Name              As StringPrivate CFm_Quantity_of_workers      As IntegerPrivate CFm_Harmful_conditions       As IntegerPrivate CFm_QuantityProcent          As IntegerPublic Property Let Branch_Name(PropVal As String)    CFm_Branch_Name = PropValEnd PropertyPublic Property Get Branch_Name() As String    Branch_Name = CFm_Branch_NameEnd PropertyPublic Property Let Quantity_of_workers(PropVal As Integer)    CFm_Quantity_of_workers = PropValEnd PropertyPublic Property Get Quantity_of_workers() As Integer    Quantity_of_workers = CFm_Quantity_of_workersEnd PropertyPublic Property Let Harmful_conditions(PropVal As Integer)    CFm_Harmful_conditions = PropValEnd PropertyPublic Property Get Harmful_conditions() As Integer    Harmful_conditions = CFm_Harmful_conditionsEnd PropertyPublic Property Let QuantityProcent(PropVal As Integer)    CFm_QuantityProcent = PropValEnd PropertyPublic Property Get QuantityProcent() As Integer    QuantityProcent = CFm_QuantityProcentEnd PropertyhighlightSyntax('vbZjFhY2U1Y','vb'); Добавь модуль класса с именем «mRecord» и помести туда текстКод Option ExplicitPublic cFirst         As New Cel    ' до первой записиPublic cFirstSort     As New Cel    ' до первой записи SortPublic cLast          As New Cel    ' после последней записиPublic cCurent        As New Cel    ' текущая записьPrivate CFm_cCount         As IntegerPublic Property Get cCount() As Integer    cCount = CFm_cCountEnd PropertyPublic Property Let cCount(PropVal As Integer)    CFm_cCount = PropValEnd PropertyPublic Sub Add_Last(ByVal Value As cRec)   'Добавить запис последней  Dim newCel As New Cel    With newCel        .Value.Branch_Name = Value.Branch_Name        .Value.Harmful_conditions = Value.Harmful_conditions        .Value.Quantity_of_workers = Value.Quantity_of_workers        Set .NextCell = cLast        Set .PrevCell = cLast.PrevCell        Set .PrevCell.NextCell = newCel    End With    Set cLast.PrevCell = newCel    Set cCurent = cLast.PrevCell    CFm_cCount = CFm_cCount + 1End SubPrivate Sub Class_Initialize() 'Открытие класса    Set cFirst.NextCell = cLast    Set cLast.PrevCell = cFirstEnd SubPrivate Sub Class_Terminate() 'Закрытие класса  Dim delCel As Cel    Set delCel = cFirst.NextCell    Do While Not (delCel Is cLast)        Set delCel.PrevCell = Nothing        Set delCel = delCel.NextCell    Loop    Set cCurent = Nothing    Set cFirst.NextCell = Nothing    Set cLast.PrevCell = NothingEnd SubPublic Function item() As cRec 'Обратится к записи    Set item = cCurent.ValueEnd FunctionPublic Sub MoveFirst() 'Перейти к первой записи    Set cCurent = cFirst.NextCellEnd SubPublic Sub MoveNext() 'Перейти к следующей записи    If Not (cCurent.NextCell Is Nothing) Then        Set cCurent = cCurent.NextCell    End IfEnd SubhighlightSyntax('vbY5MjM0ODBh','vb');ЗАПУСКАЙ(F5)!Удачи

- Vach, ты только счет банковский указать забыл

- cardinal. Эта программа не имеет никакой ценность, тат как никому не нужна.Cчет излишен.

- Да не за что. На счет времени ты ошибаешься.Все модули были готовы и взяты из разных старых программ.Двусвязные списки и сортировка(кстати не самая быстрая), модуль cRec+cCel это билдер.Накапливай свою коллекцию удобных тебе модулей - потом только клеить будешь. Это экономит кучу времени! Удачи.

Интернет казино     Онлайн игры     Увеличение члена     Купить DVD