| Вопрос: Помогите с курсовой! | Добавлено: 21.05.08 16:01 |
Автор вопроса:  Asteroida
|
|
Задали задание - ну ничего не понимаю, как и что делать. А сдать нужно уже 23 мая!!! Помогите пожалуйста!
Вот задание: Создать список спортивных клубов (10-12) и список численности болельщиков за каждый из них (использовать функцию Rnd()). Разделить список болельщиков на 3 группы в зависимости от их численности, используя блок Select Case. Создать кнопку для перехода на вторую форму, окрасить ее в любой цвет и вывести на ней название клуба с наименьшим числом болельщиков. Мне нужен только код... Спасибо большое! |
| Ответы | Всего ответов: 59 |
|
Номер ответа: 1 Автор ответа:    Администратор ICQ: 278109632 Вопросов: 42 Ответов: 3949 |
Web-сайт: Профиль | | #1 | Добавлено: 21.05.08 17:24 |
Могу на VB6. На дотнете не знаю как
|
||
|
Номер ответа: 2 Автор ответа: AgentFireICQ: 192496851 Вопросов: 75 Ответов: 3178 |
Профиль | | #2 | Добавлено: 21.05.08 18:04 |
|
Могу и на VB6, и на дотнете.
палач, как это ТЫ не знаешь?
|
||
|
Номер ответа: 3 Автор ответа: Asteroida Вопросов: 1 Ответов: 14 |
Профиль | | #3 | Добавлено: 21.05.08 22:10 |
| Помогите пожалуйста!! | ||
|
Номер ответа: 4 Автор ответа: Администратор ICQ: 278109632 Вопросов: 42 Ответов: 3949 |
Web-сайт: Профиль | | #4 | Добавлено: 21.05.08 22:30 |
|
Ну тупой, я тупой... Не люблю я дотнет просто) Всеми фибрами своей жалкой душонки Мне на асме проще писать, чем на дотнете
|
||
|
Номер ответа: 5 Автор ответа: BG(Алексей) Вопросов: 26 Ответов: 295 |
Профиль | | #5 | Добавлено: 22.05.08 07:57 |
|
5 баллов не гарантирую
Public Class Form1
Private SportsClub As Clubs Private rnd As Random Private listOfclubs As New System.Collections.Generic.List(Of Clubs) Private count As Integer = 12 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Me.GenerateClubs() Me.ShowClubs_And_Fanats() End Sub Private Sub GenerateClubs() rnd = New Random(System.Environment.TickCount) Dim i As Integer = 1 Do SportsClub = New Clubs SportsClub.Name = "Club " & i.ToString Dim f As Integer = rnd.Next(0, 20) For y As Integer = 1 To f SportsClub.Fanat.Add("Fanat " & y.ToString) Next listOfclubs.Add(SportsClub) i += 1 Loop While i < count End Sub Private Sub ShowClubs_And_Fanats() For Each c As Clubs In listOfclubs Me.ListBox1.Items.Add(c.Name) Next End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click rnd = New Random(System.Environment.TickCount) Dim Label1 As New Label Dim arr() As Color = New Color() {Color.Red, Color.Green, Color.Blue, Color.Yellow} Dim f As New Form f.BackColor = arr(rnd.Next(4)) f.Text = "New form" With Label1 .Text = Me.SerachClub_With_MinimumFanat .Location = New Drawing.Point((f.ClientRectangle.Width - Label1.Width) / 2, (f.ClientRectangle.Height - Label1.Height) / 2) End With f.Controls.Add(Label1) f.Show() End Sub Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged If ListBox1.SelectedIndex = -1 Then Exit Sub Dim c As Clubs = listOfclubs(ListBox1.SelectedIndex) ListBox2.Items.Clear() ListBox2.Items.AddRange(c.Fanat.ToArray) End Sub Private Function SerachClub_With_MinimumFanat() As String Dim s As String = String.Empty Dim int As Integer = Integer.MaxValue For Each c As Clubs In listOfclubs If c.Fanat.Count < int Then int = c.Fanat.Count : s = c.Name & " Fanat " & int.ToString Next Return s End Function End Class Public Class Clubs Private _name As String Public Fanat As New System.Collections.Generic.List(Of String) Public Property Name() As String Get Return _name End Get Set(ByVal value As String) _name = value End Set End Property End Class На форму положи 2 ListBox  и Button.
|
||
|
Номер ответа: 6 Автор ответа: BG(Алексей)Вопросов: 26 Ответов: 295 |
Профиль | | #6 | Добавлено: 22.05.08 07:59 |
| Да, не забудь написать, что получила. | ||
|
Номер ответа: 7 Автор ответа: AgentFireICQ: 192496851 Вопросов: 75 Ответов: 3178 |
Профиль | | #7 | Добавлено: 22.05.08 15:58 |
| А че так, палач? ты чо, не ТРУЪ ООПпрогер внатуре?) | ||
|
Номер ответа: 8 Автор ответа: SmithICQ: adamis@list.ru Вопросов: 153 Ответов: 3632 |
Профиль | | #8 | Добавлено: 22.05.08 16:18 |
| имхо он мега асм варриор ) | ||
|
Номер ответа: 9 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #9 | Добавлено: 22.05.08 23:24 |
|
А ты AgentFire что-ли труъ ооп знаешь?
|
||
|
Номер ответа: 10 Автор ответа: SharpЛидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979 |
Web-сайт: Профиль | | #10 | Добавлено: 23.05.08 01:34 |
|
Я знаю труъ-ООП
Sharp - основной эксперт форума, и слово его зело веско и велiчаво, а слогъ его безупреченъ и чистъ. Владеетъ древнiмъ пламенемъ Анора, языкомъ программiрованiя C++, математiческiмъ аналiзомъ на R^n и другiмi священнымi знанiямi, коiмi любiтъ делiться за некое мiстiческое чiсло Internet-валюты
|
||
|
Номер ответа: 11 Автор ответа: AsteroidaВопросов: 1 Ответов: 14 |
Профиль | | #11 | Добавлено: 23.05.08 16:26 |
| BG(Алексей)Спасибо огромнейшее! Мир не без добрых людей!!! Если бы не ты, меня бы отчислили!!! Ну прям не знаю что сказать! СПАСИБО СПАСИБО СПАСИБО!!!!!!!!!!!!!!!!!!!! | ||
|
Номер ответа: 12 Автор ответа: D o c a l ICQ: 408802757 Вопросов: 76 Ответов: 985 |
Web-сайт: Профиль | | #12 | Добавлено: 23.05.08 20:46 |
| Я не пойму зачем ити учится на програмиста когда елементарщины не можна зделать. | ||
|
Номер ответа: 13 Автор ответа: SharpЛидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979 |
Web-сайт: Профиль | | #13 | Добавлено: 23.05.08 21:02 |
| Вряд ли он на программиста учится. | ||
|
Номер ответа: 14 Автор ответа: BG(Алексей)Вопросов: 26 Ответов: 295 |
Профиль | | #14 | Добавлено: 24.05.08 00:36 |
|
Вряд ли он на программиста учится.
Не он, ОНА |
||
|
Номер ответа: 15 Автор ответа: SharpЛидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979 |
Web-сайт: Профиль | | #15 | Добавлено: 24.05.08 05:53 |
| Ну, тогда может и на программиста. | ||