Вопрос № 82359: помогите найти ошибку в программе.
задача.
определить, принадлежит ли заданная точка (х,у) заштрихованной области, включая границы. Х принимает значения от -2 до 2 , у - от 0 до 2.
решение.
input x,y
if x>=0 and y>=0 then if...Вопрос № 82375: Здравствуйте уважаемые эксперты!
У меня горе...
Я с 2003 года использую один файл Excel, для которого я на протяжении всех лет писал, дописывал, редактировал макросы сортировки. Сама книга под паролем, пароль мой и я его знаю, соответственно ...Вопрос № 82387: помогите выполнить задание.
составить программу и сделать расчет с учётом критических точек.
y=sin^2(x+b)+sqr(cos^3(x^3+c) ...Вопрос № 82390: Здравствуйте! У меня есть такой вопрос: даны две строки текста, нужно составить процедуру преобразующую строки путем удаления из них всех букв a, b ,c. Не подскажете, как это можно сделать? Заранее спасибо....Вопрос № 82397: Добрый день.
Можно ли через оператор VBA в Word "отловить" нажатие клавиши для продолжения выполнения кода? Или только через Hook (как в ответе на вопрос № 66686 для Excel)?...
Вопрос № 82.359
помогите найти ошибку в программе.
задача.
определить, принадлежит ли заданная точка (х,у) заштрихованной области, включая границы. Х принимает значения от -2 до 2 , у - от 0 до 2.
решение.
input x,y
if x>=0 and y>=0 then if x<=2 and y<=2 then print "точка принадлежит обл." else print "не принадл."else if x>=-2 and y>=2 print "принадлежит" else print 'не принадлежит"
end
Приложение:
Отправлен: 13.04.2007, 11:44
Вопрос задала: Wika (статус: Посетитель)
Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 1)
Отвечает: NRJ
Здравствуйте, Wika!
if x>=0 and x<=2 then
if y>=-2 and y<=2 then
print "точка принадлежит обл"
else
print "точка не принадлежит обл"
end if
else
print "точка не принадлежит обл"
end if
Удачи!
Ответ отправил: NRJ (статус: 1-ый класс)
Ответ отправлен: 13.04.2007, 14:08
Отвечает: Menand
Здравствуйте, Wika!
Я так понял? заштрихованная область - это квадрат, ИКС от -2 до 2, а ИГРЭК от 0 до 2? Тогда только одна проверка:
if ((x>=-2) and (x<=-2)) and ((y>=0) and (y<=2)) then print "точка принадлежит"
Ответ отправил: Menand (статус: 7-ой класс)
Ответ отправлен: 13.04.2007, 18:30
Отвечает: Тесленко Евгений Алексеевич
Здравствуйте, Wika!
Здравствуйте, Wika!
if (x>=-2 or x<=2) and (y>=0 or y<=2) then print "точка принадлежит обл." else print "не принадл."
Евгений
Здравствуйте уважаемые эксперты!
У меня горе...
Я с 2003 года использую один файл Excel, для которого я на протяжении всех лет писал, дописывал, редактировал макросы сортировки. Сама книга под паролем, пароль мой и я его знаю, соответственно открываю без проблем, а вот для VBA Project я всегда использовал другой парол, отличающийся от пароля книги, и постоянно менял в VBA Project, а недавно нужно было как всегда внести коррективы в макросы, захожу Alt+F11 и ввожу пароль......и вот....перепробовал все мои пароли, ниодин не подходит, мистика, никто другой поменять
не мог, сама прога тоже не могла поменять, уже на протяжении двух дней не сплю, вспоминаю на листочке все свои пароли, но ни один не подходит! (допаролился называется!) Пожалуйста, посоветуйте, как взломать пароль к моим макросам (смешно аж, свои пароли и приходится взламовать...).
Спасибо.
Отвечает: NRJ
Здравствуйте, Какаблишвили Игорь Валикович!
Advanced Office Password Recovery Pro v3.11 вам в помощь
http://rapidshare.com/files/4636472/file.rar
Ответ отправил: NRJ (статус: 1-ый класс)
Ответ отправлен: 13.04.2007, 14:39 Оценка за ответ: 5
Вопрос № 82.387
помогите выполнить задание.
составить программу и сделать расчет с учётом критических точек.
y=sin^2(x+b)+sqr(cos^3(x^3+c)
Отправлен: 13.04.2007, 13:45
Вопрос задала: Wika (статус: Посетитель)
Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)
Отвечает: NRJ
Здравствуйте, Wika!
Маловато вы сообщили о своём задании, не понятно какой расчёт делать, что должна выполнять программа?
Ответ отправил: NRJ (статус: 1-ый класс)
Ответ отправлен: 13.04.2007, 14:20
Вопрос № 82.390
Здравствуйте! У меня есть такой вопрос: даны две строки текста, нужно составить процедуру преобразующую строки путем удаления из них всех букв a, b ,c. Не подскажете, как это можно сделать? Заранее спасибо.
newstr=replace(replace(replace(oldstr,"a",""),"b",""),"c","")
--------- Открыть глаза навстречу солнцу
Ответ отправил: QDSota (статус: Профессионал) Тел.: 8-916-53-43-916 ICQ: 84611301 ---- Ответ отправлен: 13.04.2007, 14:11
Вопрос № 82.397
Добрый день.
Можно ли через оператор VBA в Word "отловить" нажатие клавиши для продолжения выполнения кода? Или только через Hook (как в ответе на вопрос № 66686 для Excel)?
Отправлен: 13.04.2007, 14:45
Вопрос задал: Alena (статус: Посетитель)
Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)
Отвечает: HookEst
Здравствуйте, Alena!
не совсем понял, что значит "для продолжения выполнения кода", но в общем случае можно попробовать по таймеру(например каждую секунду) проверять KeyState и вызывать обработчик если нужно
например:
'работает только для активного документа, для неактивных возможно придется прописывать в Normal.dot
'Project1.Module1
Option Explicit
'для некоторых клавиш
Global Const VK_CONTROL = &H11
Global Const VK_SHIFT = &H10
Global Const VK_TAB = &H9
Global Const VK_RETURN = &HD
Global Const VK_PRIOR = &H21 ' PGUP
Global Const VK_NEXT = &H22 ' PGDN
Declare Function apiGetKeyState Lib "user32" Alias _
"GetAsyncKeyState" (ByVal nVirtKey As Long) As Integer
Sub CheckKey()
If apiGetKeyState(VK_SHIFT) Then
msgbox "Shift pressed"
Else
'продолжаем проверку
Application.OnTime When:=Now + TimeValue("00:00:01"), Name:="Project1.Module1.CheckKey"
End If
End Sub
'Project1.Document1
Option Explicit
Private Sub CommandButton1_Click()
'запускаем handler на Shift
Application.OnTime When:=Now + TimeValue("00:00:01"), Name:="Project1.Module1.CheckKey"
End Sub
Успехов
Ответ отправил: HookEst (статус: Студент)
Ответ отправлен: 16.04.2007, 15:19
