Мужики!
================
Помогите написать какую-нибудь ритмичную мелодию...
================
Тренькаю на звуковой карте, а сочинить что-нибудь реальное никак не получается.
Если кто-то подберет интересную строку нот, буду очень рад!!!
Исходник программы есть в наличии
Вот ноты:
Row$ = "101101011010101101011010101101011010101101011010101101011010101101"
ShowX%(1) = 13
ShowX%(2) = 21
ShowX%(3) = 29
ShowX%(4) = 45
ShowX%(5) = 53
ShowX%(6) = 61
ShowX%(7) = 69
ShowX%(8) = 77
ShowX%(9) = 93
ShowX%(10) = 101
ShowX%(11) = 109
ShowX%(12) = 117
ShowX%(13) = 125
ShowX%(14) = 133
ShowX%(15) = 141
ShowX%(16) = 157
ShowX%(17) = 165
ShowX%(18) = 173
ShowX%(19) = 181
ShowX%(20) = 189
ShowX%(21) = 205
ShowX%(22) = 213
ShowX%(23) = 221
ShowX%(24) = 229
ShowX%(25) = 237
ShowX%(26) = 245
ShowX%(27) = 253
ShowX%(28) = 269
ShowX%(29) = 277
ShowX%(30) = 285
ShowX%(31) = 293
ShowX%(32) = 301
ShowX%(33) = 317
ShowX%(34) = 325
ShowX%(35) = 333
ShowX%(36) = 341
ShowX%(37) = 349
ShowX%(38) = 357
ShowX%(39) = 365
ShowX%(40) = 381
ShowX%(41) = 389
ShowX%(42) = 397
ShowX%(43) = 405
ShowX%(44) = 413
ShowX%(45) = 429
ShowX%(46) = 437
ShowX%(47) = 445
ShowX%(48) = 453
ShowX%(49) = 461
ShowX%(50) = 469
ShowX%(51) = 477
ShowX%(52) = 493
ShowX%(53) = 501
ShowX%(54) = 509
ShowX%(55) = 517
ShowX%(56) = 525
ShowX%(57) = 541
ShowX%(58) = 549
ShowX%(59) = 557
ShowX%(60) = 565
ShowX%(61) = 573
ShowX%(62) = 581
ShowX%(63) = 589
ShowX%(64) = 605
ShowX%(65) = 613
ShowX%(66) = 621
Rem For changing the original tune to a middle tune
Rem u've to get Min >0 and max <66 of Note()
Rem The difference (Min-1 + 66-Max)/2 give the number to
Rem subtract from Note%()(>0)
Rem If the difference is 22 then Note%(1) should be
Rem Note%(1)=22 '(44-22)
Note%(1) = 44: Ln%(1) = 2
Note%(2) = 49: Ln%(2) = 2
Note%(3) = 53: Ln%(3) = 2
Note%(4) = 56: Ln%(4) = 4
Note%(5) = 53: Ln%(5) = 2
Note%(6) = 56: Ln%(6) = 12
Note%(7) = 45: Ln%(7) = 2
Note%(8) = 50: Ln%(8) = 2
Note%(9) = 54: Ln%(9) = 2
Note%(10) = 57: Ln%(10) = 4
Note%(11) = 54: Ln%(11) = 2
Note%(12) = 57: Ln%(12) = 12
Note%(13) = 46: Ln%(13) = 2
Note%(14) = 51: Ln%(14) = 2
Note%(15) = 55: Ln%(15) = 2
Note%(16) = 58: Ln%(16) = 4
Note%(17) = 55: Ln%(17) = 2
Note%(18) = 58: Ln%(18) = 12
Note%(19) = 47: Ln%(19) = 2
Note%(20) = 52: Ln%(20) = 2
Note%(21) = 56: Ln%(21) = 2
Note%(22) = 59: Ln%(22) = 4
Note%(23) = 56: Ln%(23) = 2
Note%(24) = 59: Ln%(24) = 12
Note%(25) = 0: Ln%(25) = 4
Note%(26) = 42: Ln%(26) = 1
Note%(27) = 0: Ln%(27) = 1
Note%(28) = 42: Ln%(28) = 1
Note%(29) = 0: Ln%(29) = 1
Note%(30) = 42: Ln%(30) = 1
Note%(31) = 0: Ln%(31) = 1
Note%(32) = 47: Ln%(32) = 1
Note%(33) = 0: Ln%(33) = 5
Note%(34) = 51: Ln%(34) = 1
Note%(35) = 0: Ln%(35) = 3
Note%(36) = 42: Ln%(36) = 1
Note%(37) = 0: Ln%(37) = 1
Note%(38) = 42: Ln%(38) = 1
Note%(39) = 0: Ln%(39) = 1
Note%(40) = 42: Ln%(40) = 1
Note%(41) = 0: Ln%(41) = 1
Note%(42) = 47: Ln%(42) = 1
Note%(43) = 0: Ln%(43) = 5
Note%(44) = 51: Ln%(44) = 1
Note%(45) = 0: Ln%(45) = 5
Note%(46) = 30: Ln%(46) = 1
Note%(47) = 0: Ln%(47) = 1
Note%(48) = 30: Ln%(48) = 1
Note%(49) = 0: Ln%(49) = 1
Note%(50) = 35: Ln%(50) = 1
Note%(51) = 0: Ln%(51) = 3
Note%(52) = 47: Ln%(52) = 1
Note%(53) = 0: Ln%(53) = 1
Note%(54) = 47: Ln%(54) = 1
Note%(55) = 0: Ln%(55) = 1
Note%(56) = 46: Ln%(56) = 1
Note%(57) = 0: Ln%(57) = 1
Note%(58) = 46: Ln%(58) = 1
Note%(59) = 0: Ln%(59) = 1
Note%(60) = 44: Ln%(60) = 1
Note%(61) = 0: Ln%(61) = 1
Note%(62) = 44: Ln%(62) = 1
Note%(63) = 0: Ln%(63) = 1
Note%(64) = 42: Ln%(64) = 8
Note%(65) = 0: Ln%(65) = 2
Note%(66) = 42: Ln%(66) = 1
Note%(67) = 0: Ln%(67) = 1
Note%(68) = 42: Ln%(68) = 1
Note%(69) = 0: Ln%(69) = 1
Note%(70) = 42: Ln%(70) = 1
Note%(71) = 0: Ln%(71) = 1
Note%(72) = 46: Ln%(72) = 1
Note%(73) = 0: Ln%(73) = 5
Note%(74) = 49: Ln%(74) = 1
Note%(75) = 0: Ln%(75) = 3
Note%(76) = 42: Ln%(76) = 1
Note%(77) = 0: Ln%(77) = 1
Note%(78) = 42: Ln%(78) = 1
Note%(79) = 0: Ln%(79) = 1
Note%(80) = 42: Ln%(80) = 1
Note%(81) = 0: Ln%(81) = 1
Note%(82) = 46: Ln%(82) = 1
Note%(83) = 0: Ln%(83) = 5
Note%(84) = 49: Ln%(84) = 1
Note%(85) = 0: Ln%(85) = 5
Note%(86) = 37: Ln%(86) = 1
Note%(87) = 0: Ln%(87) = 1
Note%(88) = 37: Ln%(88) = 1
Note%(89) = 0: Ln%(89) = 1
Note%(90) = 30: Ln%(90) = 1
Note%(91) = 0: Ln%(91) = 3
Note%(92) = 54: Ln%(92) = 2
Note%(93) = 56: Ln%(93) = 2
Note%(94) = 54: Ln%(94) = 2
Note%(95) = 52: Ln%(95) = 2
Note%(96) = 51: Ln%(96) = 2
Note%(97) = 49: Ln%(97) = 2
Note%(98) = 47: Ln%(98) = 8