|
|
|
Microsoft Visual Basic 6.0
|
|||
|---|---|---|---|
|
#18+
Люди, как в Microsoft Visual Basic 6.0 называется команда для подсчёта кол - ва символов в числе? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 29.10.2006, 12:31 |
|
||
|
Microsoft Visual Basic 6.0
|
|||
|---|---|---|---|
|
#18+
преобразую число в текст функция Str и использую функцию Len если правильно понял ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 29.10.2006, 12:40 |
|
||
|
Microsoft Visual Basic 6.0
|
|||
|---|---|---|---|
|
#18+
Сэнкс, ща попробую ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 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+
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, 12:59 |
|
||
|
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:02 |
|
||
|
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:04 |
|
||
|
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:06 |
|
||
|
Microsoft Visual Basic 6.0
|
|||
|---|---|---|---|
|
#18+
Да, заработало! Спасибо. Теперь не подскажешь, как сделать так, чтоб в Text2 показывало кол - во символов вводимого числа в Text1. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 29.10.2006, 13:07 |
|
||
|
Microsoft Visual Basic 6.0
|
|||
|---|---|---|---|
|
#18+
Да, спасибо. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 29.10.2006, 13:08 |
|
||
|
Microsoft Visual Basic 6.0
|
|||
|---|---|---|---|
|
#18+
А как вывести результат в Text2? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 29.10.2006, 13:12 |
|
||
|
Microsoft Visual Basic 6.0
|
|||
|---|---|---|---|
|
#18+
Да, заработало! Спасибо. Теперь не подскажешь, как сделать так, чтоб в Text2 показывало кол - во символов вводимого числа в Text1. Text2.Text=Len(Text1.Text) нужна проверка что это число ??? функция IsNumeric() ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 29.10.2006, 13:13 |
|
||
|
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: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+
я не очень понял что нужно при вводе в Text1 в Text2 показывать кол-во символов из Text1 так??? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 29.10.2006, 13:20 |
|
||
|
Microsoft Visual Basic 6.0
|
|||
|---|---|---|---|
|
#18+
Да. Спасибо. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 29.10.2006, 13:21 |
|
||
|
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:25 |
|
||
|
Microsoft Visual Basic 6.0
|
|||
|---|---|---|---|
|
#18+
Спасибо большое. Работает отлично. Могу ли я расчитывать на тебя в след. раз? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 29.10.2006, 13:28 |
|
||
|
Microsoft Visual Basic 6.0
|
|||
|---|---|---|---|
|
#18+
если буду в форуме ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 29.10.2006, 13:29 |
|
||
|
|
start [/forum/topic.php?fid=60&msg=34089238&tid=2165077]: |
0ms |
get settings: |
7ms |
get forum list: |
16ms |
check forum access: |
3ms |
check topic access: |
3ms |
track hit: |
165ms |
get topic data: |
6ms |
get forum data: |
2ms |
get page messages: |
51ms |
get tp. blocked users: |
2ms |
| others: | 198ms |
| total: | 453ms |
| 0 / 0 |
