25 Февраля 2018 06:36 
Навигация
 +  - 
Скачать игры
Сейчас на сайте
24.02.2018
Matvey
08:24:26
offline
23.02.2018
Sergey
1 день
offline
23.02.2018
Shasliv...
1 день
offline
23.02.2018
Clinic ...
1 день
offline
23.02.2018
Vait Shop
1 день
offline
Последние фото
Game of Blocks : WesterosCraft and Game of Thrones
Game of Blocks : Wes...
Альбом: Скриншоты

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



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

Последние видео
Видео ТРИ СУДЬБЫ - Короткометражный фэнтези-боевик : Короткометражный CGI-фильм, посвященный игре The Elder Scrolls Online.

Игрофильмы:  ТРИ СУДЬБЫ - Короткометражный фэнтези-боевик

Видео 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

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

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



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

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

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


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

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
Оренбург22.02.2018
(на 1 месяц)
АО «Карельский окатыш» предлагает к реализации ТМЦ
• Хозяйство - Оборудование Цена: 1 1
Другой20.02.2018
(на 1 месяц)
ООО «Ставролен» продает неликвиды
• Хозяйство - Оборудование Цена: 1 1
Ставрополь09.02.2018
(на 1 месяц)
Универсальный гипермаркет Gecsa
• Развлечения - Туризм Цена: 1 1
Казань06.11.2017
(на 24 месяца)
Компания "УралМеталлЭнерго" реализует складские остатки труб
• Хозяйство - Сырье и материалы Цена: 1 1
Челябинск24.10.2017
(на 12 месяцев)
Облако тегов тем форума
Aion: дюп через склад пета, Исходный код команды ihgap, Трейлер для gamescom 2011, Project KARA (tech demo from Quantic Dream), Квест на Elven Wizard, Удаление коррозии, Java сервер Lineage 2 Interlude от L2J-Infinity, Добыча кристаллов атрибута, Создание рецепта для сервера Lineage 2, Квест на Elder, Intel переносит релиз процессоров Ivy Bridge на апрель 2012, Шаблоны jRPG, Обзор Interlude pvp l2club.ru, Психотерапевт Шед Хелстеттер, Пластическая операция
Главная Статьи Файлы Форум Ссылки Новости Фотогалерея Объявления Видео Файлобменник Гороскоп Поиск в сети Радио Видеочат
Яндекс.Метрика
Powered by PHP-Fusion copyright © 2002 - 2018 by Nick Jones. Released as free software without warranties under GNU Affero GPL v3.