|
Действия ...
Новые сообщения [новые:0]
Дайджест
Горячие темы
Избранное [новые:0]
Форумы
Пользователи
Статистика
Статистика нагрузки
Мод. лог
Поиск
|
|
29.10.2006, 12:31
|
|||
|---|---|---|---|
|
|||
Microsoft Visual Basic 6.0 |
|||
|
#18+
Люди, как в Microsoft Visual Basic 6.0 называется команда для подсчёта кол - ва символов в числе? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
29.10.2006, 12:40
|
|||
|---|---|---|---|
Microsoft Visual Basic 6.0 |
|||
|
#18+
преобразую число в текст функция Str и использую функцию Len если правильно понял ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
29.10.2006, 12:48
|
|||
|---|---|---|---|
|
|||
Microsoft Visual Basic 6.0 |
|||
|
#18+
Сэнкс, ща попробую ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
29.10.2006, 12:51
|
|||
|---|---|---|---|
|
|||
Microsoft Visual Basic 6.0 |
|||
|
#18+
Не, не работает, нет такой ф - ции. Ты где такую нашёл, не скажешь? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
29.10.2006, 12:55
|
|||
|---|---|---|---|
Microsoft Visual Basic 6.0 |
|||
|
#18+
дай код ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
29.10.2006, 12:59
|
|||
|---|---|---|---|
|
|||
Microsoft Visual Basic 6.0 |
|||
|
#18+
Private Sub Form_Load() Text1.Text = Empty Text2.Text = Empty End Sub Private Sub Text1_Change() Val (Text1.Text) Val (Text2.Text) If Text1.Text <> 0 Then Print Text2.Text1 End If End Sub Заранее спасибо, просто мне дали дом. задание. Показывает ошибку в строке, где If. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
29.10.2006, 13:02
|
|||
|---|---|---|---|
|
|||
Microsoft Visual Basic 6.0 |
|||
|
#18+
Не суди строго, я только начинающий программист. Я знаю, что там всё неправильно. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
29.10.2006, 13:02
|
|||
|---|---|---|---|
Microsoft Visual Basic 6.0 |
|||
|
#18+
2 вещи if Text1.Text <> 0 Then -- нужно писать if Text1.Text <> "" Then ' если не пусто Print Text2.Text1 ---- нужно писать Text2.Text ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
29.10.2006, 13:04
|
|||
|---|---|---|---|
Microsoft Visual Basic 6.0 |
|||
|
#18+
в догонку if Text1.Text <> 0 Then -- нужно писать if Text1.Text <> "0" Then ' если не не значение 0 Print Text2.Text1 ---- нужно писать Text2.Text ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
29.10.2006, 13:06
|
|||
|---|---|---|---|
Microsoft Visual Basic 6.0 |
|||
|
#18+
получить кол-во символов в числе Private Sub Form_Load() Dim i As Long i = 10000 MsgBox Len(CStr(i)) End Sub ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
29.10.2006, 13:07
|
|||
|---|---|---|---|
|
|||
Microsoft Visual Basic 6.0 |
|||
|
#18+
Да, заработало! Спасибо. Теперь не подскажешь, как сделать так, чтоб в Text2 показывало кол - во символов вводимого числа в Text1. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
29.10.2006, 13:08
|
|||
|---|---|---|---|
|
|||
Microsoft Visual Basic 6.0 |
|||
|
#18+
Да, спасибо. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
29.10.2006, 13:12
|
|||
|---|---|---|---|
|
|||
Microsoft Visual Basic 6.0 |
|||
|
#18+
А как вывести результат в Text2? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
29.10.2006, 13:13
|
|||
|---|---|---|---|
Microsoft Visual Basic 6.0 |
|||
|
#18+
Да, заработало! Спасибо. Теперь не подскажешь, как сделать так, чтоб в Text2 показывало кол - во символов вводимого числа в Text1. Text2.Text=Len(Text1.Text) нужна проверка что это число ??? функция IsNumeric() ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
29.10.2006, 13:18
|
|||
|---|---|---|---|
|
|||
Microsoft Visual Basic 6.0 |
|||
|
#18+
Private Sub Form_Load() Dim i As Long i = 10000 MsgBox Len(CStr(i)) Text1.Text = Empty Text2.Text = Empty End Sub Private Sub Text1_Change() Val (Text1.Text) Val (Text2.Text) If Text1.Text <> "0" Then Print Text2.Text End If Text2.Text = Len(Text1.Text) IsNumeric() End Sub Так, чтоль получается. Блин нифига не пойму. Напиши, максимум из программного кода, если не трудно?! ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
29.10.2006, 13:19
|
|||
|---|---|---|---|
|
|||
Microsoft Visual Basic 6.0 |
|||
|
#18+
Private Sub Form_Load() Dim i As Long i = 10000 MsgBox Len(CStr(i)) Text1.Text = Empty Text2.Text = Empty End Sub Private Sub Text1_Change() Val (Text1.Text) Val (Text2.Text) If Text1.Text <> "0" Then Print Text2.Text End If Text2.Text = Len(Text1.Text) IsNumeric() End Sub Так, чтоль получается. Блин нифига не пойму. Напиши, максимум из программного кода, если не трудно?! ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
29.10.2006, 13:20
|
|||
|---|---|---|---|
Microsoft Visual Basic 6.0 |
|||
|
#18+
я не очень понял что нужно при вводе в Text1 в Text2 показывать кол-во символов из Text1 так??? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
29.10.2006, 13:21
|
|||
|---|---|---|---|
|
|||
Microsoft Visual Basic 6.0 |
|||
|
#18+
Да. Спасибо. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
29.10.2006, 13:25
|
|||
|---|---|---|---|
Microsoft Visual Basic 6.0 |
|||
|
#18+
думаю что тебе нужно так или вместо Text1_Change используй Text1_LostFocus() если курсор выходит из Text1 (теряет фокус) Private Sub Form_Load() Text1.Text = "" Text2.Text = "" End Sub Private Sub Text1_Change() If Text1.Text <> "" And IsNumeric(Text1.Text) Then Text2.Text = Len(Text1.Text) Else Text2.Text = "" End If End Sub ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
29.10.2006, 13:28
|
|||
|---|---|---|---|
|
|||
Microsoft Visual Basic 6.0 |
|||
|
#18+
Спасибо большое. Работает отлично. Могу ли я расчитывать на тебя в след. раз? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
29.10.2006, 13:29
|
|||
|---|---|---|---|
Microsoft Visual Basic 6.0 |
|||
|
#18+
если буду в форуме ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
start [/forum/topic.php?fid=60&mobile=1&tid=2165077]: |
0ms |
get settings: |
8ms |
get forum list: |
15ms |
check forum access: |
3ms |
check topic access: |
3ms |
track hit: |
143ms |
get topic data: |
6ms |
get forum data: |
2ms |
get page messages: |
45ms |
get tp. blocked users: |
1ms |
| others: | 211ms |
| total: | 437ms |
| 0 / 0 |
