Автор Тема: Придумал копеечный скрипт для зубрения нот на грифе  (Прочитано 1399 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Оффлайн Очень Прохожий Автор темы

  • Новичок
  • *
  • Сообщений: 96
  • Зарегистрированный
Требуется только Windows Scripting Host.
Минимальная функциональность.



:supergrin

Оффлайн ёjё

  • Живу на форуме
  • *******
  • Сообщений: 9361
  • xxx
Пример: 3 стр, 0 лад.  Я печатаю g, а она отвечает - "ваша g, а надо G". Раздражает :)
А вообще, прикольно - я довольно долго думал, чего там на 5-й струне на 20 ладу, хотя Фа сыграю где угодно не задумываясь - знаю, где находятся все ноты, но не очень хорошо представляю номера ладов (вверху) - это плохо?
Интересно, пианисты знают последовательный номер клавиши, на которой играют? :)

Оффлайн Очень Прохожий Автор темы

  • Новичок
  • *
  • Сообщений: 96
  • Зарегистрированный
Проверки то на самом деле нет ;)

Я просто плохо знаю ноты между 5 и 12 ладами.
от 12 до 17 я быстро  транспонирую,  а от 17 и дальше опять плохо. Не знаю поможет ли такая фигня, но времени то на скрипт потрачено 15 минут. Жалко что ли

Оффлайн ёjё

  • Живу на форуме
  • *******
  • Сообщений: 9361
  • xxx
Я на самом деле не критикую, просто интересно: действительно, есть системы, ставящие знание грифа в зависимость от знания номера лада, и  для такого подхода эта прога - находка. Так вот, интересно, действительно надо тренировать знание номеров ладов? Я, например, беру ноту, не всегда могу сказать какой это, лад, если дело выше 15-17 ладов. То есть сказать могу, но надо подумать несколько секунд - в оперативке этого нет. По-моему номера ладов нужны тому, кто вручную переводит обычную  нотацию в табула-дуру.
В общем - я без наездов, в порядке дискуссии.

Оффлайн Engel

  • Завсегдатай
  • ***
  • Сообщений: 379
Цитировать
Интересно, пианисты знают последовательный номер клавиши, на которой играют?


Нет, не знают. Сначала учат расположение нот в пределах одной октавы, а уже классе так в третьем даже не задумываются об этом. Разбуди начью, скажи ноту и октаву - сыграет без промаха.

ИМХО хороший гитарист должен уметь так-же.

Оффлайн Очень Прохожий Автор темы

  • Новичок
  • *
  • Сообщений: 96
  • Зарегистрированный
Цитировать
Автор оригинала eye
Я на самом деле не критикую, просто интересно: действительно, есть системы, ставящие знание грифа в зависимость от знания номера лада, и  для такого подхода эта прога - находка. Так вот, интересно, действительно надо тренировать знание номеров ладов? Я, например, беру ноту, не всегда могу сказать какой это, лад, если дело выше 15-17 ладов. То есть сказать могу, но надо подумать несколько секунд - в оперативке этого нет. По-моему номера ладов нужны тому, кто вручную переводит обычную  нотацию в табула-дуру.
В общем - я без наездов, в порядке дискуссии.


Честно говоря не знаю. Т.к. я играю "механически", всегда по нотам (которые проще перегнать в табы) или табам, то я всегда знаю номер лада и так оно в голове и остается.  Наверно это неправильно.

Оффлайн ёjё

  • Живу на форуме
  • *******
  • Сообщений: 9361
  • xxx
Можно представить себе картину будущего, "цифровой" век: репетиция симфонического оркестра - музыканты сидят, играют по табам. Дирижер кричит: :Кто сыграл цифру пять?! Смотрите внимательнее в цифры!!! Здесь надо играть (поет): три-шесть-се-е-е-мь!"

Оффлайн Очень Прохожий Автор темы

  • Новичок
  • *
  • Сообщений: 96
  • Зарегистрированный
У меня нет никакого муз. образования. Года полтора мучений в рок-лицее и лекции Лаврова за образование считать нельзя ;)
Я в основном все самостоятельно осваиваю. У меня даже четкой постановки руки нет. То так, то сяк держу...
Поэтому оркестрам играть по табам не грозит :laugh:

Оффлайн vladlogv

  • Эксперт
  • *****
  • Сообщений: 1614
  • Cultosaurus Erectus
Цитировать
Автор оригинала eye
Пример: 3 стр, 0 лад.  Я печатаю g, а она отвечает - "ваша g, а надо G". Раздражает :)

...
   RC = Ucase(InputBox("String " & RString & Chr(13) & "Fret " & RFret))
   If Len(RC) = 0 Then
      WScript.Quit
   End If
   AnsDiff = DateDiff("s",AnsTime,Now)
if RC<> Frets(rstring,rfret) then
   MsgBox ("Your note:" & RC & Chr(13) & "Right Note:" & Frets(RString,RFret) & Chr(13) & "Seconds spent: " & AnsDiff)
end if
...

сюда же еще надо забить бемоли и диезы.

Оффлайн vladlogv

  • Эксперт
  • *****
  • Сообщений: 1614
  • Cultosaurus Erectus

If error Then
    If intScore > 100 Then
    intScore = intScore - 100
    Else
    intScore = 0
    End If
Else
    If intScore = 10000 Then
    MsgBox "Congratulations! You're almost Steve Vai! OK to new game.", vbExclamation, "You're genius"
    intScore = 0
    Else
    intScore = intScore + 10
    End If
End If

Оффлайн Очень Прохожий Автор темы

  • Новичок
  • *
  • Сообщений: 96
  • Зарегистрированный
Цитировать
Автор оригинала vladlogv

If error Then
    If intScore > 100 Then
    intScore = intScore - 100
    Else
    intScore = 0
    End If
Else
    If intScore = 10000 Then
    MsgBox "Congratulations! You're almost Steve Vai! OK to new game.", vbExclamation, "You're genius"
    intScore = 0
    Else
    intScore = intScore + 10
    End If
End If


Спасибо, мне было просто лень это делать ;)

Оффлайн otkroy

  • Эксперт
  • *****
  • Сообщений: 1272
  • не мИтолиЗт
Цитировать
Автор оригинала eye

Интересно, пианисты знают последовательный номер клавиши, на которой играют? :)

нет

Оффлайн Mayed

  • Живу на форуме
  • *******
  • Сообщений: 7690
Я наоборот номера хорошо знаю, а ноты считать приходится. Аллергия на ноты - зачем переводить то, что для клавесинов придумывалось на гитару, если для нее табы есть :D Шутка