Модераторы: Akina
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> помогите найти ошибки 
:(
    Опции темы
crocop
  Дата 5.9.2006, 13:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
здраствуйе, я только начал работать с VB6 , скачал самоучитель и при запуске программы выдается ошибка.
пожалуйста помогите новичкуhttp://forum.vingrad.ru/index.php?act=Post&CODE=00&f=102&syntax=vb#
http://forum.vingrad.ru/index.php?act=Post...&syntax=vb#
Код


Option Explicit
Dim znacheniescroll As Long



Private Sub Form_Load()
VScroll1.Value = 1
VScroll1.Min = 1
VScroll1.LargeChange = 5
VScroll1.SmallChange = 1
Form1.Caption = "ACSII-reader"
Text1.Text = "Ñþäà ìîæíî ââåñòè âñÿêèå áóêîâêè è öèôåðêè , Fuck èõ!"
showkod
End Sub



Private Sub VScroll1_Change()
znacheniescroll = VScroll1.Value
showkod
End Sub
Private Sub showkod()
Dim X As Long
For X = znacheniescroll To znacheniescroll + 4
Text2(X - znacheniescroll).Text = Mid(Text1.Text, X, 1)
Text2(X - znacheniescroll).Text = 1 - 1 = 0
Text2(X - znacheniescroll).Text = 2 - 1 = 1
Text2(X - znacheniescroll).Text = 3 - 1 = 2
Text2(X - znacheniescroll).Text = 4 - 1 = 2
Text2(X - znacheniescroll).Text = 5 - 1 = 2
Text2(X - znacheniescroll).Text = 2 - 2 = 0
Text2(X - znacheniescroll).Text = 3 - 2 = 1
Text2(X - znacheniescroll).Text = 4 - 2 = 2
Text2(X - znacheniescroll).Text = 5 - 2 = 3
Text2(X - znacheniescroll).Text = 6 - 2 = 4
If Len(Text2(X - znacheniescroll).Text) > o Then
Text3(X - znacheniescroll).Text = Asc(Text2(X - znacheniescroll).Text)
Else
Text3(X - znacheniescroll).Text = ""
End If
Next X


End Sub
Private Sub Command1_Click()
showkod
End Sub



Это сообщение отредактировал(а) sergej.z - 5.9.2006, 13:42
PM MAIL   Вверх
sergejzr
Дата 5.9.2006, 13:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Un salsero
Group Icon


Профиль
Группа: Админ
Сообщений: 13285
Регистрация: 10.2.2004
Где: Германия г .Ганновер

Репутация: нет
Всего: 360
Модератор: Пользуйтесь кнопкой "Код" и давайте темам осмысленные названия!


--------------------
Me.
FB.
LinkedIn.
ORCID.
YT.
PM WWW IM ICQ Skype GTalk Jabber AOL YIM MSN   Вверх
crocop
Дата 5.9.2006, 13:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
ок
PM MAIL   Вверх
XPurple
Дата 5.9.2006, 13:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: 1
Всего: 1
crocop, 
Код
If Len(Text2(X - znacheniescroll).Text) > o Then

Мне кажется здесь стоит "оу", а не ноль, как задумывалось

--------------------
Кто никогда ни о чем не спрашивает: тот либо знает все, либо не знает ничего.  Не помню, кто сказал, может быть, я   (с) 
PM MAIL   Вверх
Akina
Дата 5.9.2006, 14:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454
И еще - чтобы вместо русских букв не переносить сюда иероглифы (типа Text1.Text = "Ñþäà ìîæíî ââåñòè âñÿêèå áóêîâêè è öèôåðêè , Fuck èõ!"
), перед копированием кода в буфер обмена переключайте клавиатуру на русскую раскладку.


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
crocop
Дата 5.9.2006, 14:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
спасибо за ответ, буду продолжать познавать VB
может кто посоветует какой-нибудь самоучитель толковый для совсем зеленых?
PM MAIL   Вверх
Wanderer2019
Дата 5.9.2006, 15:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: 17
в свое время приходилось много работать с VB6 ...
точно название книги не скажу...  вроде бы автор Блек... приду домой скажу точнее...
PM ICQ MSN   Вверх
Akina
Дата 5.9.2006, 16:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454
Цитата(crocop @  5.9.2006,  15:46 Найти цитируемый пост)
может кто посоветует какой-нибудь самоучитель толковый для совсем зеленых?

Для кого наверху дана ссылка, по которой обсуждается литература по VB?


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по VB обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.

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

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


 




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


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

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