15 Декабря 2017 03:24 
Навигация
 +  - 
Скачать игры
Сейчас на сайте
15.12.2017
Warhangel
02:43:17
offline
13.12.2017
111222333
1 день
offline
11.12.2017
Aleksan...
3 дней
offline
10.12.2017
mrslis
4 дней
offline
06.12.2017
Splus
1 неделя
offline
Последние фото
Game of Blocks : WesterosCraft and Game of Thrones
Game of Blocks : Wes...
Альбом: Скриншоты

Вынос трёх пати куполом
Вынос трёх пати куполом
Альбом: Скриншоты



Альбом: Флора

Последние видео
Видео Rhine Falls : Rhine Falls Live Camera streeeam

Онлайн камеры:  Rhine Falls

Видео Live Cam, Central Memorial Park, Calgary, Alberta : Central Memorial Park is a park located in central Calgary\

Онлайн камеры:  Live Cam, Central Memorial Park, Calgary, Alberta

Видео The University of Tampa Live Webcam : The University of Tampa

Онлайн камеры:  The University of Tampa Live Webcam

Наша кнопочка
FAQ7.ru
Код:
RSS каналы
Новости
Комменты
Форум
Статьи
Фото
Файлы
Ссылки
Объявления
Реклама
Регистрация сайта в каталогах, раскрутка и оптимизация сайта, контекстная реклама
Автор темы: Warhangel
ID темы: 668
Информация о теме:
Имеются 1 сообщений по данной теме, которая была просмотрена 5893 раз.
Реклама
livecoin Обменник
Просмотр темы
Логин:
Пароль:  
Форум » Тематические » Программирование » Java
Просмотр темы
Текущий рейтинг: (Всего: 0 голосов)  
Ответить
Иконка 
Исходник приложения онлайн радио вконтакте
Наверх Распечатать сообщение #1
Опубликовано 17-04-2011 19:11
Аватар пользователя

Супер Администратор



Сообщений: 2092
Вас поблагодарили: 17
раз(а) в 17 сообщениях

Зарегистрирован: 24.03.10
Со дня регистрации: 2823
Откуда: Россия
Пол: Мужской

Скрыть награды


Пожаловаться на это сообщение 

Main.as

 /*
        http://flapps.ru/forum/ – форум о создании приложений
        */
        package {
        import flash.display.*;
        import flash.media.*;
        import flash.events.*;
        import flash.geom.*;
        import flash.net.*;
        import flash.ui.*;
        import flash.utils.*;
        import flash.text.*;
        public class Main extends Sprite {
        private var api_id:Number=1676336;// id вашего приложения
        private var url:String=”http://flapps.ru/live”;// ссылка на ваше радио
        private var sound:Sound;
        private var music:SoundChannel;
        private var bounds:Rectangle;
        private var maxMove:Number;
        private var minuteTimer:Timer=new Timer(1000);
        public function Main():void {
        if (LoaderInfo(root.loaderInfo).parameters.api_id!=api_id) {
        is_copy_mc.is_copy_tf.text=’Приложение находится здесь\nhttp://vkontakte.ru/app’+api_id;
        is_copy_mc.x=0;
        is_copy_mc.y=0;
        } else {
        var cm = new ContextMenu();
        cm.hideBuiltInItems();
        var p1:ContextMenuItem=new ContextMenuItem(‘«Радио»’);
        var p2:ContextMenuItem=new ContextMenuItem(‘flapps.ru’);
        p2.addEventListener(MouseEvent.CLICK, function(){;
        navigateToURL(new URLRequest(‘http://flapps.ru’));
        });
        p2.separatorBefore=true;
        cm.customItems.push(p1,p2);
        this.contextMenu=cm;
        time_tf.autoSize=TextFieldAutoSize.LEFT;
        play_btn.addEventListener(MouseEvent.CLICK,playSound);
        pause_btn.addEventListener(MouseEvent.CLICK,pauseSound);
        addEventListener(Event.ENTER_FRAME, enterHandler);
        volumeSlider.addEventListener(MouseEvent.MOUSE_DOWN, startScroll);
        stage.addEventListener(MouseEvent.MOUSE_UP, stopScroll);
        maxMove=35;
        bounds=new Rectangle(volumeSlider.x,volumeSlider.y,- maxMove,0);
        var scrolling:Boolean=false;
        function startScroll(e:Event):void {
        scrolling=true;
        volumeSlider.startDrag(false,bounds);
        }
        function stopScroll(e:Event):void {
        scrolling=false;
        volumeSlider.stopDrag();
        }
        function enterHandler(e:Event):void {
        if (scrolling==true) {
        setVolume(1-((bounds.x-volumeSlider.x)/maxMove));
        }
        }
        function setVolume(vol:Number) {
        if (music!=null) {
        var mod:SoundTransform = new SoundTransform();
        mod.volume=vol;
        music.soundTransform=mod;
        }
        }
        }
        }
        private function playSound(e:MouseEvent):void {
        play_btn.visible=false;
        var request:URLRequest=new URLRequest(url+’?'+Math.random());
        sound = new Sound();
        sound.addEventListener(HTTPStatusEvent.HTTP_STATUS,onError);
        sound.load(request);
        music=sound.play();
        var mod:SoundTransform = new SoundTransform();
        mod.volume=1-((bounds.x-volumeSlider.x)/maxMove);
        music.soundTransform=mod;
        minuteTimer.addEventListener(TimerEvent.TIMER, onTick);
        minuteTimer.start();
        }
        private function onError(event:Event):void {
        status_tf.text = ‘Ошибка’;
        }
        private function pauseSound(e:MouseEvent):void {
        play_btn.visible=true;
        music.stop();
        minuteTimer.stop();
        minuteTimer.reset();
        time_tf.text=”0:00:00″;
        }
        function onTick(event:TimerEvent):void {
        var sec=event.target.currentCount;
        var min=Math.floor(sec/60);
        var hour=Math.floor(min/60);
        sec%=60;
        if (sec<10) {
        sec=’0&#8242;+sec;
        }
        min%=60;
        if (min<10) {
        min=’0&#8242;+min;
        }
        hour%=24;
        time_tf.text=hour+”:”+min+”:”+sec;
        }
        }
        }


Исходник [ ссылка скрыта ] ( регистрация | вход )
Инструкция
В файле Main.as заменить:
- api_id – на ID своего приложения
- url – на ссылку на mp3 поток
 Offline
 
Посетить сайт автора
Цитировать
Ответить
Здесь присутствуют: 1 (пользователей: 0, гостей: 1)

« Предыдущая тема | Следующая тема »
 RSS Перейти на форум:
Розыгрыши 728х90

Последние объявления
ФотоЗаголовокГородРазмещено
Группа «Илим» реализует неликвиды своих предприятий
• Хозяйство - Оборудование Цена: 1 1
Санкт-ПетербургВчера в 23:27:04
(на 1 месяц)
Филиал «КЧХК» АО «ОХК «УРАЛХИМ» в Кирово-Чепецке реализует неликвиды
• Хозяйство - Сырье и материалы Цена: 1 1
Киров13.12.2017
(на 1 месяц)
ПАО «Казаньоргсинтез» реализует неликвиды
• Хозяйство - Оборудование Цена: 1 1
Казань28.11.2017
(на 1 месяц)
ПАО «Северсталь» продает неликвиды
• Хозяйство - Оборудование Цена: 1 1
Другой28.11.2017
(на 1 месяц)
Универсальный гипермаркет Gecsa
• Развлечения - Туризм Цена: 1 1
Казань06.11.2017
(на 24 месяца)
Облако тегов тем форума
Копейщик, Разрушитель и гномы – прокачка, Asterios.tm, Tesla Motors продолжит выпуск электрического Roadster, Заказ дипломных и курсовых работ в студии научных работ UniArtic, Холодное оружие iPhone Damask Edition, Новости Diablo 3 (rss), Настройка бота на Lineage.uz, Баг на питомца у ханта в World of Warcraft, Праздничные напитки, Forsaken World - другой мир, Warsmith, Что и где спойлить, В игре остались монстры с завышенными повреждениями, Killer Instinct - Релизный трейлер, Анонс даты открытого бета-теста русскоязычной версии TERA
Главная Статьи Файлы Форум Ссылки Новости Фотогалерея Объявления Видео Файлобменник Гороскоп Поиск в сети Радио Пробки
Яндекс.Метрика
Powered by PHP-Fusion copyright © 2002 - 2017 by Nick Jones. Released as free software without warranties under GNU Affero GPL v3.