Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - VBA

Страница: 1 | 2 | 3 |

 

  Вопрос: Помогите пожалуйста,очень надо! Добавлено: 02.04.07 18:37  

Автор вопроса:  nik

Ответить

  Ответы Всего ответов: 44  

Номер ответа: 31
Автор ответа:
 nik



Вопросов: 1
Ответов: 19
  Профиль | | #31 Добавлено: 03.04.07 18:54
я получил его в zip-архиве!там 7 файлов: projekt1.vbw projekt1.vbp projekt1.exe(это сама прога) Form1.log(блакнот) Form1.frm Benzin.cls Auto.cls !ну так что делать?

Ответить

Номер ответа: 32
Автор ответа:
 KreAtoR



Вопросов: 120
Ответов: 438
  Профиль | | #32 Добавлено: 03.04.07 19:27
мдаааа она на бейсике не в Екселе.

Ответить

Номер ответа: 33
Автор ответа:
 KreAtoR



Вопросов: 120
Ответов: 438
  Профиль | | #33 Добавлено: 03.04.07 19:27
Form1 (main)


Option Explicit

Public lItem As ListItem
'sozdaem 15 mashin iz klassa
Dim auto(14) As New auto
'sozdaem konkretnij benzin iz kalss
Dim benzin76 As New Benzin
Dim benzin80 As New Benzin
Dim benzin92 As New Benzin
Dim benzin95 As New Benzin
Dim benzin97 As New Benzin
Dim benzin98 As New Benzin
Dim benzinDay As Integer
Dim benzinWeek As Long

Private Sub Form_Load()
    Call Init_Benzin
    Call Autos
    Call InitListbox
    Call FillLine
    Call allBenzin
    Call MaxCost
End Sub

Public Sub InitListbox()
    'Zapolnjaem tablicu nushnimi kolonkami
    EventList.ColumnHeaders.Add , , "No", 500
    EventList.ColumnHeaders.Add , , "NomerMashini", 2000
    EventList.ColumnHeaders.Add , , "TipBenzina", 2000
    EventList.ColumnHeaders.Add , , "RashodDen", 2000
    EventList.ColumnHeaders.Add , , "RashodNedelu", 2000
    EventList.ColumnHeaders.Add , , "StoimostLitra", 2000
    EventList.ColumnHeaders.Add , , "StoimostDen", 2000
    EventList.ColumnHeaders.Add , , "StoimostNedelu", 2000
End Sub

Public Sub Init_Benzin()
    'priswaiwaem kashdomu benzinu nushnoe zna4enie
    benzin76.BenzinTyp (76)
    benzin80.BenzinTyp (80)
    benzin92.BenzinTyp (92)
    benzin95.BenzinTyp (95)
    benzin97.BenzinTyp (97)
    benzin98.BenzinTyp (98)
End Sub

Public Sub Autos()
    'priswaiwaem kashdoj mashine nushnoe zna4enie
   auto(0).Name = "auto1"
   auto(0).Typ = benzin76.BenzinName
   auto(0).Need = 10
   auto(0).Cost = benzin76.BenzinCost
   auto(1).Name = "auto2"
   auto(1).Typ = benzin80.BenzinName
   auto(1).Need = 20
   auto(1).Cost = benzin80.BenzinCost
   auto(2).Name = "auto3"
   auto(2).Typ = benzin92.BenzinName
   auto(2).Need = 30
   auto(2).Cost = benzin92.BenzinCost
   auto(3).Name = "auto4"
   auto(3).Typ = benzin95.BenzinName
   auto(3).Need = 40
   auto(3).Cost = benzin95.BenzinCost
   auto(4).Name = "auto5"
   auto(4).Typ = benzin97.BenzinName
   auto(4).Need = 50
   auto(4).Cost = benzin97.BenzinCost
   auto(5).Name = "auto6"
   auto(5).Typ = benzin98.BenzinName
   auto(5).Need = 60
   auto(5).Cost = benzin98.BenzinCost
   auto(6).Name = "auto7"
   auto(6).Typ = benzin76.BenzinName
   auto(6).Need = 20
   auto(6).Cost = benzin76.BenzinCost
   auto(7).Name = "auto8"
   auto(7).Typ = benzin80.BenzinName
   auto(7).Need = 30
   auto(7).Cost = benzin80.BenzinCost
   auto(8).Name = "auto9"
   auto(8).Typ = benzin92.BenzinName
   auto(8).Need = 36
   auto(8).Cost = benzin92.BenzinCost
   auto(9).Name = "auto10"
   auto(9).Typ = benzin95.BenzinName
   auto(9).Need = 32
   auto(9).Cost = benzin95.BenzinCost
   auto(10).Name = "auto11"
   auto(10).Typ = benzin97.BenzinName
   auto(10).Need = 61
   auto(10).Cost = benzin97.BenzinCost
   auto(11).Name = "auto12"
   auto(11).Typ = benzin98.BenzinName
   auto(11).Need = 32
   auto(11).Cost = benzin98.BenzinCost
   auto(12).Name = "auto13"
   auto(12).Typ = benzin76.BenzinName
   auto(12).Need = 34
   auto(12).Cost = benzin76.BenzinCost
   auto(13).Name = "auto14"
   auto(13).Typ = benzin80.BenzinName
   auto(13).Need = 34
   auto(13).Cost = benzin80.BenzinCost
   auto(14).Name = "auto15"
   auto(14).Typ = benzin92.BenzinName
   auto(14).Need = 45
   auto(14).Cost = benzin92.BenzinCost
End Sub

Public Sub allBenzin()
    'wi4isljaem skoka mashini tratjat w den i w nedelu
Dim i As Integer
    For i = 0 To 14
       benzinDay = benzinDay + (auto(i).GBenzinNeed * auto(i).GBenzinCost)
    Next
    benzinWeek& = CLng(benzinDay) * 6
    Text1.Text = "Benzin cost in one day " & benzinDay & " $"
    Text2.Text = "Benzin cost in one week " & benzinWeek & " $"
End Sub

Public Sub FillLine()
Dim i As Integer
    'zapolnjaem tablicu opredelennimi nami zna4enijami mashin
    For i = 0 To 14
        Set lItem = EventList.ListItems.Add(i + 1, , Format$(i + 1))
        lItem.ListSubItems.Add , , auto(i).GName
        lItem.ListSubItems.Add , , auto(i).GBenzinTyp
        lItem.ListSubItems.Add , , auto(i).GBenzinDay & " Liter"
        lItem.ListSubItems.Add , , auto(i).GBenzinWeek & " Liter"
        lItem.ListSubItems.Add , , auto(i).GBenzinCost & " $"
        lItem.ListSubItems.Add , , auto(i).GCostDay & " $"
        lItem.ListSubItems.Add , , auto(i).GCostWeek & " $"
    Next
End Sub

Public Sub MaxCost()
Dim i As Integer
Dim y As Integer
Dim max As Long
Dim str As String
    'nahodim maksimalnuj plohuj mashinu
    For i = 0 To 14
        y = auto(i).GCostWeek
        If y > max Then max = y
    Next
    str = max & " $"
    'i wideljaem stroku w tablice gde eta mashina nahoditsja
    For i = 1 To EventList.ListItems.Count
        Set lItem = EventList.ListItems.Item(i)
        If lItem.ListSubItems.Item(7) = str Then
            EventList.ListItems.Item(i).ForeColor = &HFF&
            EventList.ListItems.Item(i).ToolTipText = "Eto samaja dorogaja mashina"
            For y = 1 To lItem.ListSubItems.Count
                lItem.ListSubItems.Item(y).ForeColor = &HFF&
                lItem.ListSubItems.Item(y).ToolTipText = EventList.ListItems.Item(i).ToolTipText
            Next
        End If
    Next
End Sub

Ответить

Номер ответа: 34
Автор ответа:
 KreAtoR



Вопросов: 120
Ответов: 438
  Профиль | | #34 Добавлено: 03.04.07 19:27
Class Auto


Option Explicit

Private number As String
Private BenzinTyp As String
Private BenzinCost As Integer
Private benzinNeed As Integer

Public Sub Class_Initialize()
    
End Sub
'zapisiwaem dannie w mashinki
Public Property Let Name(i As String)
    number$ = i$
End Property
Public Property Let Typ(i As String)
    BenzinTyp$ = i$
End Property
Public Property Let Cost(i As Integer)
    BenzinCost% = i%
End Property
Public Property Let Need(i As Integer)
    benzinNeed% = i%
End Property
'izimaem nushnie nam zna4enija
Public Property Get GName() As String
    GName$ = number$
End Property
Public Property Get GBenzinTyp() As String
    GBenzinTyp$ = BenzinTyp$
End Property
Public Property Get GBenzinCost() As Integer
    GBenzinCost% = BenzinCost%
End Property
Public Property Get GBenzinNeed() As Integer
    GBenzinNeed% = benzinNeed%
End Property
'izimaem skoka na den tam na nedelu skoka stoit
Public Property Get GBenzinDay()
    GBenzinDay = benzinNeed
End Property
Public Property Get GBenzinWeek()
    GBenzinWeek = GBenzinNeed * 6
End Property
Public Property Get GCostDay()
    GCostDay = benzinNeed * BenzinCost
End Property
Public Property Get GCostWeek()
    GCostWeek = benzinNeed * BenzinCost * 6
End Property

Ответить

Номер ответа: 35
Автор ответа:
 KreAtoR



Вопросов: 120
Ответов: 438
  Профиль | | #35 Добавлено: 03.04.07 19:28
Class Benzin


Option Explicit

Private Typ As String
Private Cost As Integer
Private TypI As Integer
Public Sub Class_Initialize()
    
End Sub
'opredeljaem kakomu benzinu kakie parametri
Public Sub BenzinTyp(i As Integer)
    Select Case i%
        
        Case 76
            Typ = "76"
            Cost = 5
        Case 80
            Typ = "80"
            Cost = 10
        Case 92
            Typ = "92"
            Cost = 15
        Case 95
            Typ = "95"
            Cost = 20
        Case 97
            Typ = "97"
            Cost = 25
        Case 98
            Typ = "98"
            Cost = 26
    End Select
End Sub
'iznemaem nushnie nam zna4enija
Public Property Get BenzinName() As String
    BenzinName$ = Typ$
End Property
Public Property Get BenzinCost() As Integer
    BenzinCost% = Cost%
End Property
Public Property Let BenzinProp(i As Integer)
    TypI% = i%
End Property

Ответить

Номер ответа: 36
Автор ответа:
 KreAtoR



Вопросов: 120
Ответов: 438
  Профиль | | #36 Добавлено: 03.04.07 19:28
Ты говорил о любой помощи ну я и помог как мог :)

Ответить

Номер ответа: 37
Автор ответа:
 SkyShark



ICQ: 209750501 

Вопросов: 0
Ответов: 13
  Профиль | | #37 Добавлено: 03.04.07 19:29
Ну это файлы для Visual Basic, а не для Visua Basic for application (Язык встроенный в Excel). В принципе код можно выдрать из этих файлов? но мкоечто придетьс япеределать, если сам не знаешь перешли мне файлы, попробую переделать под VBA

Ответить

Номер ответа: 38
Автор ответа:
 nik



Вопросов: 1
Ответов: 19
  Профиль | | #38 Добавлено: 03.04.07 19:30
хе!!ура спасибо большое!Кстати ты уже думал о создании своего виндоуса?хе! :)

Ответить

Номер ответа: 39
Автор ответа:
 SkyShark



ICQ: 209750501 

Вопросов: 0
Ответов: 13
  Профиль | | #39 Добавлено: 03.04.07 19:31
опередили... ))))

Ответить

Номер ответа: 40
Автор ответа:
 nik



Вопросов: 1
Ответов: 19
  Профиль | | #40 Добавлено: 03.04.07 19:32
Ну это файлы для Visual Basic, а не для Visua Basic for application (Язык встроенный в Excel). В принципе код можно выдрать из этих файлов? но мкоечто придетьс япеределать, если сам не знаешь перешли мне файлы, попробую переделать под VBA

Так я могу тебе сейчас отправить на почту, посмотри плиз для Visua Basic for application !

Ответить

Номер ответа: 41
Автор ответа:
 SkyShark



ICQ: 209750501 

Вопросов: 0
Ответов: 13
  Профиль | | #41 Добавлено: 03.04.07 19:33
давай,.. посмотрю ...ток через асю лучше скинь так проще )))

Ответить

Номер ответа: 42
Автор ответа:
 nik



Вопросов: 1
Ответов: 19
  Профиль | | #42 Добавлено: 03.04.07 19:33
SkyShark ну все равно спасибо тебе!

Ответить

Номер ответа: 43
Автор ответа:
 nik



Вопросов: 1
Ответов: 19
  Профиль | | #43 Добавлено: 03.04.07 19:34
ок!ван секонд!

Ответить

Номер ответа: 44
Автор ответа:
 N_o4ka



Вопросов: 0
Ответов: 1
  Профиль | | #44 Добавлено: 24.06.09 11:47
Здравствуйте. Я очень сильно извеняюсь.
Увидела вашу переписку, у меня точно такая же задача только количество машин не 15, а 10.
Вы мне не поможете с решением?
У меня есть таблицы сделанные в Excel, а вот блок-схему и программу в Basic незнаю как делать.
Заранее благодарна.
Вот мой e-mail: N_o4ka@mail.ru

Ответить

Страница: 1 | 2 | 3 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам