Курсовая работа: Вариант №10 - Курсовая работа - Программирование на Visual Basic
Описание
Характеристики курсовой работы
Список файлов
- Shop (10)
- Notepad++ Document.txt 885 b
- Shop.exe 24 Kb
- data.txt 258 b
- form.bmp 1,37 Mb
- Исходники
- Form1.frm 4,82 Kb
- Form1.frx 26 b
- Project1.vbp 676 b
- Project1.vbw 52 b
- data.txt 258 b
- Пояснительная.doc 107 Kb
Dim ShoesName(100), ShoesArticle(100) As String
Dim ShoesValue(100), ShoesPrice(100), i As Integer
Private Sub Combo1_Click()
List1.Clear
List2.Clear
List3.Clear
Dim N As Integer
For N = 0 To i
If ShoesArticle(N) = Combo1.Text Then
List1.AddItem (ShoesName(N))
List2.AddItem (ShoesValue(N))
List3.AddItem (ShoesPrice(N))
End If
Next N
End Sub
Private Sub Command1_Click()
End
End Sub
Private Sub Form_Load()
Dim N As Integer
i = -1
'Загрузка значений в массив
Open App.Path + "\data.txt" For Input As #1
Do Until EOF(1)
i = i + 1
Input #1, ShoesArticle(i), ShoesName(i), ShoesValue(i), ShoesPrice(i)
Loop
Close #1
'Выбераем только женскую обувь
For N = 0 To i
If ShoesArticle(N) = "Ж" Then
List4.AddItem (ShoesName(N))
List5.AddItem (ShoesValue(N))
End If
Next N
End Sub
Private Sub List1_Click()
End Sub
М,Кроссовки Adidas,20,3000
М,Туфли черные,15,1500
М,Кросовки Puma,0,2300
М,Кеды,14,200
Ж,Сапоги зимние,10,3500
Ж,Босоножки,5,1300
Ж,Туфли,7,1000
Ж,Полусапожки осенние,12,2500
П,Шлепки,56,350
П,Кроссовки,45,500
П,Сланцы,13,250
П,Кеды детские,13,180
М,Кроссовки Adidas,20,3000
М,Туфли черные,15,1500
М,Кросовки Puma,0,2300
М,Кеды,14,200
Ж,Сапоги зимние,10,3500
Ж,Босоножки,5,1300
Ж,Туфли,7,1000
Ж,Полусапожки осенние,12,2500
П,Шлепки,56,350
П,Кроссовки,45,500
П,Сланцы,13,250
П,Кеды детские,13,180