fnMouseSpeed(DeltaX,DeltaY)
{
SetFormat, float, 2.3 ;<---- Поменяли формат
global JoyMultiplierX,minJoyMultiplierX,maxJoyMultiplierX
global JoyMultiplierY,minJoyMultiplierY,maxJoyMultiplierY
global JoyMouseSpeedHold
X := 1.0*Abs(DeltaX)
Y := 1.0*Abs(DeltaY)
;X := Abs(50-X)*minJoyMultiplierX
;if Y is float
; MsgBox, %Y% is a floating point number.
;ToolTip X= %X% Y= %Y%
JoyMultiplierX := minJoyMultiplierX
JoyMultiplierY := minJoyMultiplierY
SetFormat, float, 03 ;<---- Вернули формат
return
}И можно ли узнать какой либо функцией/директивой текущий формат, ну что бы восстановить его потом?
P.S. Я конечно мог не использовать функцию, но так удобнее - на мой взгляд + я собираюсь возвращать значение, просто застрял на вычислениях, т.е. данная функция отладочный-тестовый вариант (прототип)
]]>Потоки в АНК, конечно, не настоящие, это условность. Просто последовательность выполняемых команд.
]]>fnMouseSpeed(DeltaX,DeltaY)
{
SetFormat, float, 2.3
global JoyMultiplierX,minJoyMultiplierX,maxJoyMultiplierX
global JoyMultiplierY,minJoyMultiplierY,maxJoyMultiplierY
global JoyMouseSpeedHold
X := 1.0*Abs(DeltaX)
Y := 1.0*Abs(DeltaY)
;X := Abs(50-X)*minJoyMultiplierX
;if Y is float
; MsgBox, %Y% is a floating point number.
;ToolTip X= %X% Y= %Y%
JoyMultiplierX := minJoyMultiplierX
JoyMultiplierY := minJoyMultiplierY
return
}
; Обработка по таймеру
;=============Начало обработки мышки=============
;*********Курсор мышки
RightJoystick:
MouseNeedsToBeMoved := false
SetFormat, float, 03
GetKeyState, JoyZ, %JoystickNumber%JoyZ
GetKeyState, JoyR, %JoystickNumber%JoyR
;------------------------------ Не принципмально важные вычисления
if JoyZ > %JoyThresholdUpper%
{
MouseNeedsToBeMoved := true
DeltaX := JoyZ - JoyThresholdUpper
}
else if JoyZ < %JoyThresholdLower%
{
MouseNeedsToBeMoved := true
DeltaX := JoyZ - JoyThresholdLower
}
else
DeltaX = 0
if JoyR > %JoyThresholdUpper%
{
MouseNeedsToBeMoved := true
DeltaY := JoyR - JoyThresholdUpper
}
else if JoyR < %JoyThresholdLower%
{
MouseNeedsToBeMoved := true
DeltaY := JoyR - JoyThresholdLower
}
else
DeltaY = 0
;------------------------------
if MouseNeedsToBeMoved
{
SetMouseDelay, -1
;!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
fnMouseSpeed(DeltaX,DeltaY) ; <------------------------Вот вызов функции
;!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
;ToolTip DeltaX= %DeltaX% DeltaY= %DeltaY%
MouseMove, DeltaX * JoyMultiplierX, DeltaY * JoyMultiplierY * YAxisMultiplier,JoyMouseSpeedHold,R
}
;*********
return
;=============Конец обработки мышки==============Если SetFormat не используется в сценарии, целые умолчанию десятичном формате с плавающей точкой по умолчанию TotalWidth.DecimalPlaces = 0,6. Каждый новый поток (запускаемый как подпрограмма горячие клавиши, пункты меню или времени) стартует с эти значения по умолчанию , но по умолчанию может быть изменена с помощью SetFormat в секции автовыполнения ( верхняя часть скрипта)
т.е. я как понял область действия функция - верно?
P.S. В моём случае конечно.
]]>If SetFormat is not used in a script, integers default to decimal format, and floating point numbers default to TotalWidth.DecimalPlaces = 0.6. Every newly launched thread (such as a hotkey, custom menu item, or timed subroutine) starts off fresh with these defaults; but the defaults may be changed by using SetFormat in the auto-execute section (top part of the script).
Ну это уже детали вычислений, которые касаются только меня.
Да, вопрос.
Я не очень понял область действия SetFormat, т.е. установка SetFormat, float, 2.3 будет справедлива в пределах этой функции или же пока я не укажу другое значение формата?
SetFormat, float, .1
; Код
Y := 1.0*(50-Abs(DeltaY-50))fnMouseSpeed(DeltaX,DeltaY)
{
SetFormat, float, 03
global JoyMultiplierX,minJoyMultiplierX,maxJoyMultiplierX
global JoyMultiplierY,minJoyMultiplierY,maxJoyMultiplierY
global JoyMouseSpeedHold
; Код************
Y := 50-Abs(DeltaY-50) ; Как привести к типу float?
; Код************
if Y is float
MsgBox, %Y% is a floating point number.
JoyMultiplierX := minJoyMultiplierX
JoyMultiplierY := minJoyMultiplierY
return
}Как выполнить приведение типов, явно?
]]>