forum.boolean.name - СинтэзатоР

forum.boolean.name (http://forum.boolean.name/index.php)

- 2D-программирование (http://forum.boolean.name/forumdisplay.php?f=13)

- - СинтэзатоР (http://forum.boolean.name/showthread.php?t=12470)

СинтэзатоР

ХреньКО(См. аттач)

Ответ: СинтэзатоР

Весело, занятно!

Ответ: СинтэзатоР

на Win 7 не пашет ни в какую ((( обидно, очень хотел попробовать (((

Ой... Вру, не так выразился ((( Сама прога запустилась, но звуков никаких что бы не делал. Вот (((

Ответ: СинтэзатоР

На Win7 пошло нормально, как не удивительно

Ответ: СинтэзатоР

И у меня на Win7 тоже пошло нормально.

Ответ: СинтэзатоР

Аналогично.

Ответ: СинтэзатоР

В Win7 так и не заработало, пришлось идти к знакомым у которых есть ХР. Заработало ))) Занятная вещь ))

З.Ы. проблема с Win7 тоже пропала. Программный сбой был, у меня ни в одном приложении звука не было. Всё теперь работает.

Ответ: СинтэзатоР

еще раз про синтезатор, а как реализовать на блице такое http://lab.andre-michelle.com/tonematrix

сыну хочу сделать.

Ответ: СинтэзатоР

Ха! Прикольная вещь... думаю мне она понадобиветься для игрули :)

Ответ: СинтэзатоР

Цитата:

Сообщение от Артем Валерьевич (Сообщение 166262)

еще раз про синтезатор, а как реализовать на блице такое http://lab.andre-michelle.com/tonematrix

сыну хочу сделать.

Берешь семплов столько, сколько строк в игрульке. И проигрываешь каждый столбец (семплы в столбце) где есть квадратик через определенный промежуток времени.

PS: профессия программиста хороша тем, что видя чужую программу анализируешь как сделана :)

Ответ: СинтэзатоР

На Вин7 не смог запустить. Причина: у меня нету blitz3d.
DeeJex, я сейчас расплачусь. В каждой твоей теме я тебе писал, что, кроме исходников, надо выкладывать скомпилированные проекты. Пожалуйста.

Ответ: СинтэзатоР

а вот вопрос - как найти центр ячейки

Код:

Type soundsempler



        Field x_start

        Field y_start

        Field ghz

        Field image

        Field fool        

        Field sound

        Field stat



End Type



Function addPointSound(sample,x#,y#,i,f,gz#)



        s.soundsempler=New soundsempler

        s.soundsempler=s

        

        s\x_start#=x#

        s\y_start#=y#



        

        s\image=i 

        s\fool=f : DrawImage s\fool,s\x_start#,s\y_start#

        

        s\sound=PlaySound(sample)

        

        PauseChannel s\sound

        

        s\stat=0



        s\ghz=gz#



End Function



Function updateSint()



        Local xMO=MouseX()

        Local yMO=MouseY()

        

For s.soundsempler = Each soundsempler



If xMO>ImageWidth(s\fool)-ImageWidth(s\fool) And yMO>ImageHeight(s\fool)-ImageHeight(s\fool) Then 





                If MouseHit(1) Then

                        s\stat=1

                End If



        End If



;End If



If s\stat=1 Then 



        DrawImage s\image,s\x_start#,s\y_start#

        ResumeChannel s\sound

        

        

        ;s\ghz=s\ghz+MouseZSpeed ()



End If

ChannelPitch s\sound,s\ghz

Next



End Function

клетки в массиве:

Код:

For x=1 To GridW 

                For y=1 To GridH                 

                        addPointSound(s,sx+x*ItemW,sy+y*ItemH,inuse,defImg,8000+y*1000)

                Next

        Next