AutoHotkey Community

tempo := 120 ;default tempo
newValue := 4 ;default new value
newTempo := 120 ;default new tempo

; Gui, sub-command [, Param2, Param3, Param4]


Gui, Add, Text, x95 y15, Base Tempo:
Gui, Add, Edit, x165 y13 vtempo, 120
Gui, Add, Text, x88 y40, New Beat Value:
Gui, Add, Edit, x172 y36 vnewValue w25, 4
Gui, show, W300 H100, Rhythmic Modulation Assistant
gui, add, button, x95 y60 gupdateValues, What's my tempo?

^!r::
reload
return

updateValues:
   gui, submit, nohide
   nameNewValue(newValue)
   newTempo := (60 / ( ( (60 / tempo)*4) / newValue ) )
   msgbox Giving the %newValueName% the beat, our new tempo should be %newTempo% bpm.
return

!^y::
test := 3 / 3
msgbox %test%
return

isDivisible(value, divisor)
{
msgbox is %value% divided by %divisor% an integer?
if (value / divisor) is integer
   {
      msgBox yes, %value% is evenly divisible by %divisor%.
      return, true
   }
else if (value / divisor) is not integer {
   msgBox no, %value% is not evenly divisible by %divisor%.
   return, false
   }
}

nameNewValue(newValue) {

if (isDivisible(newValue, 3) = true)
   rhythType := "triplet"
   
if (isDivisible(newValue, 4))
   rhythType := ""
   
if (isDivisible(newValue, 5) = true)
   rhythType := "quintuplet"
   
if (isDivisible(newValue, 7) = true)
   rhythType := "septuplet"

else
   rhythType := "tuplet"

global newValueName := rhythType
   
}

isDivisible(value, divisor)
{
msgbox is %value% divided by %divisor% an integer?
if (value / divisor) is integer
   {
      msgBox yes, %value% is evenly divisible by %divisor%.
      return, true
   }
else if (value / divisor) is not integer {
   msgBox no, %value% is not evenly divisible by %divisor%.
   return, false
   }
}

var := value / divisor

if var is integer ; -or-  if !mod(value, divisor)
   ...
else
   ...

isDivisible(value, divisor)
{
msgbox is %value% divided by %divisor% an integer?

var := value / divisor

if var is integer
      msgBox yes, %value% is evenly divisible by %divisor%.
else
   msgBox no, %value% is not evenly divisible by %divisor%.
}

if !mod(value, divisor) ; it's divisible

If !mod( mod(value,divisor) , 1 )
  Msgbox integer!

Result := mod( value , divisor ) + 0
If Result is integer
  Msgbox integer!

tempo := 120 ;default tempo
newValue := 4 ;default new value
newTempo := 120 ;default new tempo

; Gui, sub-command [, Param2, Param3, Param4]


Gui, Add, Text, x95 y15, Base Tempo:
Gui, Add, Edit, x165 y13 vtempo, 120
Gui, Add, Text, x88 y40, New Beat Value:
Gui, Add, Edit, x172 y36 vnewValue w25, 4
Gui, show, W300 H120, Rhythmic Modulation Assistant
gui, add, button, x95 y60 gupdateValues, What's my tempo?
Gui, Add, Text, x2 y90, (NOTE: if you get too ridiculous, the note types will be wrong.)

^!r::
reload
return

updateValues:
   gui, submit, nohide
   nameNewValue(newValue)
   newTempo := (60 / ( ( (60 / tempo)*4) / newValue ) )
   msgbox If our new beat is a %newValueName%, our new tempo should be %newTempo% bpm.
return

!^y::
test := 3 / 3
msgbox %test%
return

isDivisible(value, divisor)
{
;msgbox is %value% divided by %divisor% an integer?

if !mod(value, divisor)
      return true
else
   return false
}

nameNewValue(newValue) {

if (isDivisible(newValue, 3) = true)
   rhythType := "triplet"
else if (isDivisible(newValue, 4))
   rhythType := ""
else if (isDivisible(newValue, 5) = true)
   rhythType := "quintuplet"
else if (isDivisible(newValue, 7) = true)
   rhythType := "septuplet"
else
   rhythType := newValue . "tuplet"

if newValue between 0 and 3
   rhythClass := "half note "
else if newValue between 4 and 7
   rhythClass := "quarter note "
else if newValue between 9 and 15
   rhythClass := "eighth note "
else if newValue between 16 and 31
   rhythClass := "sixteenth note "
else if newValue between 32 and 63
   rhythClass := "thirty second note "
   
global newValueName := rhythClass . rhythType
   
}

isDivisible(value, divisor) {
   Return  mod(value, divisor) ? false : true
}

rhythType := !mod(newValue, 3) ? "triplet" : (!mod(newValue, 4) ? "" : (!mod(newValue, 5) ? "quintuplet" : (!mod(newValue, 7) ? "septuplet" : newValue . "tuplet")))

isDivisible(value, divisor) {
  if !Mod(value, divisor)
    return true
}

nameNewValue(newValue) {
  if !Mod(newValue,3)
    rhythType := "triplet"
  else if !Mod(newValue,4)
    rhythType := ""
  else if !Mod(newValue,5)
    rhythType := "quintuplet"
  else if !Mod(newValue,7)
    rhythType := "septuplet"
  else
    rhythType := newValue "tuplet"

  if newValue between 0 and 3
    rhythClass := "half note "
  else if newValue between 4 and 7
    rhythClass := "quarter note "
  else if newValue between 9 and 15
    rhythClass := "eighth note "
  else if newValue between 16 and 31
    rhythClass := "sixteenth note "
  else if newValue between 32 and 63
    rhythClass := "thirty second note "
  return newValueName := rhythClass rhythType
}