19 Октября 2018 15:03 
Навигация
 +  - 
Скачать игры
Сейчас на сайте
19.10.2018
Warhangel
14:10:00
offline
17.10.2018
lazarev...
2 дней
offline
17.10.2018
exty4ka
2 дней
offline
13.10.2018
1425367...
6 дней
offline
10.10.2018
samosei112
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 сообщений по данной теме, которая была просмотрена 6785 раз.
Реклама
livecoin Обменник
Просмотр темы
Логин:
Пароль:  
Форум » Тематические » Программирование » Java
Просмотр темы
Текущий рейтинг: (Всего: 0 голосов)  
Ответить
Иконка 
Исходник приложения онлайн радио вконтакте
Наверх Распечатать сообщение #1
Опубликовано 17-04-2011 19:11
Аватар пользователя

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



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

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

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


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

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
БарнаулВчера в 00:08:46
(на 1 месяц)
ООО «ЛУКОЙЛ-Нижневолжскнефть» реализует неликвиды
• Хозяйство - Сырье и материалы Цена: 1 1
Астрахань28.09.2018
(на 1 месяц)
ПАО «Уралкалий» (Пермский край) продает неликвиды в ассортименте
• Хозяйство - Оборудование Цена: 1 1
Пермь19.09.2018
(на 1 месяц)
Купим автоматическую систему газового пожаротушения
• Хозяйство - Оборудование Цена: 1 1
Красноярск24.04.2018
(на 6 месяцев)
Универсальный гипермаркет Gecsa
• Развлечения - Туризм Цена: 1 1
Казань06.11.2017
(на 24 месяца)
Облако тегов тем форума
Как я познакомился с Мусей, Кузнечное дело 1 - 450 (Руководство), Адреналин: Платные скрипты для бота адреналин, Krakena.net - продажа золота Archeage и других игр! Набор поставщиков!, ArmA2: Operation Arrwhead патч 1.52, Расы в Eve online, Supplier of Reagants, Первые шаги в EVE, Советы новичкам, Архитектура Aion ява эмулятора, Инфекционная эмболия, Адреналин: Скрипт на фарм катакомб, LOST ARK, Lava Xolo X900: Android-смартфон с процессором Intel Atom, Огромный урон за минимальное время., Быстрая прокачка в Point Blank
Главная Статьи Файлы Форум Ссылки Новости Фотогалерея Объявления Видео Файлобменник Гороскоп Поиск по торрентам Радио Видеочат
Яндекс.Метрика
Powered by PHP-Fusion copyright © 2002 - 2018 by Nick Jones. Released as free software without warranties under GNU Affero GPL v3.