Модераторы: diadiavova, gambit
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Проверка, Проверка 
:(
    Опции темы
VavanVoronez
Дата 6.3.2008, 11:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 6
Регистрация: 6.3.2008

Репутация: нет
Всего: нет
Проверка

Добавлено через 6 минут и 46 секунд
Здравствуйте!
В проекте хотел добавить легкий и сложный уровни, на кнопках меню.
Но что-то не получается. Прошу Вашей помощи : советом или кодом.
Заранее спасибо! 


Private Const Число_хищных_шаров As Integer = 5
    Private Хищный_шар(Число_хищных_шаров) As clsХищный_шар
    Public pictХищный_шар(Число_хищных_шаров) As PictureBox

    Private Sub MenuItem9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem9.Click
        ' Легкий уровень. Шаров = 0
    End Sub

    Public Sub MenuItem10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem10.Click
        ' Сложный уровень. Шаров = 10
    End Sub

    Public Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Форма = Me
        KeyPreview = True 'Чтобы форма реагировала на клавиатуру
        Randomize()              'Шары должны разлетаться со случайной скоростью и в случайном направлении

        'Порождаем массив объектов-шаров:
        Dim i As Integer
        For i = 1 To Число_хищных_шаров
            Хищный_шар(i) = New clsХищный_шар
        Next i
End Sub
PM MAIL   Вверх
HellMasterHaiL
Дата 6.3.2008, 11:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 181
Регистрация: 9.8.2006
Где: Россия, МО, г. Юб илейный

Репутация: нет
Всего: 1
чувак, что ты куришь? о_О 

если я правильно понял, то Число_хищных_шаров у тебя константа и всегда равняется 5

значит исправь ее на переменную 

Код

Private Число_хищных_шаров As Integer = 5


и напиши:

Код

Private Sub MenuItem9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem9.Click
        Число_хищных_шаров = 5
End Sub

    Public Sub MenuItem10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem10.Click
       'Число_хищных_шаров = 10
End Sub


извини, если не правильно понял, но такой травы у мну нету  \=-(


Это сообщение отредактировал(а) HellMasterHaiL - 6.3.2008, 11:48
PM MAIL ICQ   Вверх
VavanVoronez
Дата 6.3.2008, 15:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 6
Регистрация: 6.3.2008

Репутация: нет
Всего: нет
Уже пробовал, в твоем примере переменную не видят в других процедурах и соответственно показывает сбой.
PM MAIL   Вверх
HellMasterHaiL
Дата 6.3.2008, 18:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 181
Регистрация: 9.8.2006
Где: Россия, МО, г. Юб илейный

Репутация: нет
Всего: 1
ааа, да, накосячил... объяви ее как Public
PM MAIL ICQ   Вверх
VavanVoronez
Дата 6.3.2008, 19:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 6
Регистрация: 6.3.2008

Репутация: нет
Всего: нет
Ответ тот-же!?
PM MAIL   Вверх
HellMasterHaiL
Дата 6.3.2008, 19:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 181
Регистрация: 9.8.2006
Где: Россия, МО, г. Юб илейный

Репутация: нет
Всего: 1
ну да  smile 
PM MAIL ICQ   Вверх
VavanVoronez
Дата 11.3.2008, 12:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 6
Регистрация: 6.3.2008

Репутация: нет
Всего: нет
Уважаемый HellMasterHaiL! Я извиняюсь что немного торможу, но уж хочется доделать начатое до завершения. Использовав Ваш совет, я доделал проект, но получилась следующее :

 

Присоединённый файл ( Кол-во скачиваний: 16 )
Присоединённый файл  ______.JPG 53,19 Kb
PM MAIL   Вверх
Experimenter
Дата 11.3.2008, 15:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 430
Регистрация: 8.5.2007
Где: Уфа

Репутация: нет
Всего: 17
Кино и немцы...
1. Конструктор clsХищный_шар покажи
2. Так правильней будет:
Код

        Dim i As Integer
        'For i = 1 To Число_хищных_шаров
        For i = 0 To Число_хищных_шаров - 1
            Хищный_шар(i) = New clsХищный_шар
        Next i



--------------------
public Zlo FromTwoEvilsChooseSmaller(Zlo zlo1, Zlo zlo2){
    if(zlo1 < zlo2) return zlo1;
    else if(zlo1 > zlo2) return zlo2;
    else throw new Exception("Kill yourself by the wall"); }
PM WWW ICQ   Вверх
VavanVoronez
Дата 11.3.2008, 16:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 6
Регистрация: 6.3.2008

Репутация: нет
Всего: нет
Class clsХищный_шар :



Присоединённый файл ( Кол-во скачиваний: 10 )
Присоединённый файл  Public_Class_cls______.doc 30,50 Kb
PM MAIL   Вверх
Experimenter
Дата 11.3.2008, 17:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 430
Регистрация: 8.5.2007
Где: Уфа

Репутация: нет
Всего: 17
VavanVoronez, а где у тебя инициализация твоих объектов?
Если уж следовать твоей логике, то
Код

        Dim Хищный_шар As New clsХищный_шар
        Dim i As Integer
        'For i = 1 To Число_хищных_шаров
        For i = 0 To Число_хищных_шаров - 1
            Хищный_шар.Начальная_установка()
        Next i

Читайте классику жанра, уважаемый.


--------------------
public Zlo FromTwoEvilsChooseSmaller(Zlo zlo1, Zlo zlo2){
    if(zlo1 < zlo2) return zlo1;
    else if(zlo1 > zlo2) return zlo2;
    else throw new Exception("Kill yourself by the wall"); }
PM WWW ICQ   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума VB .NET
diadiavova
  • Прежде чем задать вопрос, воспользуйтесь поиском: возможно Ваш вопрос уже обсуждался и на него был получен ответ.
  • Если такой же вопрос не найден, не стоит задавать свой вопрос в любую тему, создайте новую.
  • Заголовок темы должен отображать ее суть.
  • Содержание поста должно описывать проблему понятно, но в то же время, по возможности, лаконично. Сначала следует описать суть вопроса, потом можно привести пример кода, не вынуждайте других участников угадывать в чем Ваша проблема - телепатов здесь нет.
  • Будьте взаимно вежливы и дружелюбны.
  • При оформлении сообщений используйте форматирование, примеры кода заключайте в теги [CODE=vbnet][/CODE].
  • Также ознакомьтесь с общими правилами, действующими на всем форуме.
  • Если вопрос решен, не забывайте помечать тему решенной(вверху темы есть ссылка). Кроме того, если Вы хотите отблагодарить участников, оказавших помощь в решении, можно повысить им репутацию, в случае, если у Вас менее 100 сообщений в форуме и функция изменения репутации Вам недоступна, можете написать сюда.
  • Общие вопросы по программированию на платформе .NET обсуждаются здесь.
  • Литература по VB .NET обсуждается здесь.

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, diadiavova.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB .NET | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0467 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.