ASCII код и KeyPress

[Sholah]

Есть некий цикл, которой должен останавливаться для того, чтобы пользователь нажал соответствующую клавишу - пробел. Где и что надо вписать, чтобы это реализовать. Кстати ASCII код пробела - 20?

Код: Выделить всё

Do
   ExAr(K) = ExAr(K - 1)
   K = K - 1
   KeyPress (20)
Loop Until Not K > j

[GB826]

Хочу помочь, но ничего не понял..

А код уронил меня в обморок...

[Sholah]

Ну, э-э-э, я привел только кусок кода, не весь, может в этом дело?
А насчет не понял, чего ж тут не понять.
Прога работает. Доходит до цикла и бац! Останавливается после строчки k=k-1 и ждет нажатия пробела пользователем, ну по крайней мере препод так обьяснял))

[Konst_One]

ну и бред....

и куда ж ты этот цикл вставил

[Sholah]

Цикл находится внутри обработчика по щелчку кнопки Command. А что, действительно бред?

[$€rg]

if k=бац then inputbox("Введи пробел, пользователь")

[Sholah]

2$€rg
Спасиб конечно, результат меня вполне устроил, но можно как-нибудь сделать, чтобы InputBox не появлялся, т.е. что бы пользователь просто нажимал на пробел и смотрел на результат?

[Konst_One]

кидай сюда весь код своей формы, а то ничего не понятно, какой резальтат тебе нужен

[GB826]

Препод по истории? Ты ему не верь.
Либо ты сам не так понял.
Лучше дай полный текст задания... Делать не будем.. но подсказать мона.

[Sholah]

Код: Выделить всё


i = 1
Do
j = 0
Do
  If Ar(i) <= Ar(j) Then
   K = i
   Tmp = Ar(i)
   Do
    Ar(K) = Ar(K - 1)
    K = K - 1
   Loop Until Not K > j
   Ar(j) = Tmp
   j = i
  Else
  j = j + 1
  End If
Loop Until Not j < i
i = i + 1
Loop Until Not i <= n


В некоторых местах кода необходимо вставить какой-нить обработчик клика/щелча/нажания на/по пробелу.

[Konst_One]

я просил код всей твоей формы (весь модуль) и пояснение зачем это нужно

[GB826]

Сортировка массива что-ли? Надо останавливать после каждого шага (обмена)?

[Sholah]

Боюсь код всей формы привести не смогу - там много, очень много кода. Да и не нужен он сейчас, ибо вопрос не тот.
Что я хочу. Чтобы после каждого действия в цикле и этом куске кода пользователь в определенных местах, для продолжения работы кода, нажимал клавишу пробел, ну или иную. Вот. Если вдруг и на этот раз не понятно выражаюсь, то потерплю до завтра - у препода спрошу про KeyPress(ASCII)

[Sholah]

2 GB826
Да!)) В большинстве случаев это так.

[GB826]

Боюсь, что препод говорил тебе юзать событие KeyPress для обработки каждой итерации, которая уже и не итерация... так как цикла не будет... Но это я так понял...

[Sholah]

Ясно, хотя ни черта не ясно. Интерация-это повторения в цикле?
Отбросим и Key и Press. Можно ли как-нибудь реализовать остановку в цикле и ожидание действия пользователя не прибегая к KeyPress

[GB826]

Угу msgbox

[Konst_One]

установи переменную на кнопку в True . а эту переменную в цикле проверяй:

Код: Выделить всё

Option Explicit
Dim b as Boolean

Private Sub Command1_Click()
  b=True
End Sub

'где-то в твоем цикле
...
b=False
Do
  ...
  If b then Exit Do
  DoEvents
Loop
b=False
...

[pronto]

нет...

[Sholah]

2 GB826
Это конечно уже лучше. Может я наглею, но можно ли реализовать тоже действие, только чтобы пользователь нажимал на пробел и только на него программа реагировала, а никаких боксов не было бы видно?

[Sholah]

2 Konst_One
Это пример реализации сортировки с булевыми переменными. Для меня, как ни странно, сделать это было непросто. Полагаю, что сортировка выбором будет не легче, а на много сложнее в плане булевых переменных.

Код: Выделить всё


1: For i = 0 To 11
If ST1 = False Then
  Exit For
End If
If ExAr(i) > ExAr(i + 1) Then
  If FL1 = False Then
      Exit For
     End If
  t = ExAr(i)
  ExAr(i) = ExAr(i + 1)
  ExAr(i + 1) = t
  ST1 = False
  GoTo 1
end If
Next i


Но, как я уже говорил, препод намекнул на четров ASCII и KeyPress как альтернативу булевым переменным. так и не допер. Придется завтра спрашивать. А сейчас пойду-ка матана переписывать - толку больше

[tyomitch]

Кстати ASCII код пробела - 20?

Кстати, нет: 32

[vvs_adm]

tyomitch Почему нет? Смотря в какой системе счисления. Иногда и 20

[Хакер]

20 - &H20 = 32 имхо автор где то увидел ХЕКС пробела а теперь везде суёт 20-ку вместо &H20

[Nicky]

1. Все объявления сделать глобальными
2. Итерацию с количеством шагов = 1 (ну и лажа ) засунуть в таймер,
после итерации таймер останавливать
3. По пробелу (кстати, пробел на кнопке = Enter = Click) запускать таймер

[MeMBus]

Я читал-читал... так и не въехал...
Может проще когда нажали пробел (ёнтёр, клик и т.п.) выполнить функцию (процедуру) и получить результат... и хранить начальные, промежуточные, конечные значения... или все-же я не догнал темы...

[NIC]

20 - &H20 = 32 имхо автор где то увидел ХЕКС пробела а теперь везде суёт 20-ку вместо &H20

Может он не знает что &H20 это в HEX

[GAGArin]

Насколько я понял вопрос, автору лучше воспользоваться таймером, а при кейПрессе его замораживать/размораживать.