gifts2017

Погодный информер

Опубликовал Сергей (seermak) в раздел Обработки - Универсальные обработки

Погодный информер от Яндекс и от меня

Вдохновило: http://maarkus.ru/prognoz-pogody-dlya-sajta-cherez-api-yandeksa/. Что получилось - на картинке.

При первом старте предлагается выбрать страну и город, при последующих загружается сам прогноз.

НЕ победил: раскраску дерева погоды, есть поле цвета температуры, но... У кого получится - поделитесь для общего развития.

Файл полученных данных разнообразный - каждый может найти информацию по душе.

Сильно не пинайте (всегда можно посмотреть погоду из окна)

Скачать файлы

Наименование Файл Версия Размер
Обработка 12
.epf 12,93Kb
13.08.15
12
.epf 001 12,93Kb Скачать

См. также

PowerTools от 1 000
Подписаться Добавить вознаграждение
Комментарии
1. blindcat2006 (blindcat2006) 14.08.15 10:43
НЕ победил: раскраску дерева погоды, есть поле цвета температуры, но... У кого получится - поделитесь для общего развития.


Для БП 3.0

&НаСервере
Процедура ЗагрузитьПогоду()
	
	ОбъектОбработка = РеквизитФормыВЗначение("Объект");	
	ДЗ = ОбъектОбработка.ЗагрузитьПогоду(Объект.idГорода);
	Если ДЗ = Неопределено Тогда
		Возврат;
	КонецЕсли;
	
	Если ДЗ.Строки.Количество() > 0 Тогда
		
		ЗначениеВРеквизитФормы(ДЗ,"ДеревоПогоды");
		
		// Добавлено \/
		
		УсловноеОформление.Элементы.Очистить();
		
		Для каждого СтрокаДня Из ДЗ.Строки Цикл
			
			Для каждого СтрокаПогоды Из СтрокаДня.Строки Цикл
				
				Если НЕ ПустаяСтрока(СтрокаПогоды.ЦветТемпературы) Тогда
					
					ЭлементУО = УсловноеОформление.Элементы.Добавить();
					
					КомпоновкаДанныхКлиентСервер.ДобавитьОформляемоеПоле(ЭлементУО.Поля, "ДеревоПогодыТемпература");
					
					ОбщегоНазначенияКлиентСервер.ДобавитьЭлементКомпоновки(ЭлементУО.Отбор,
						"ДеревоПогоды.ЦветТемпературы", ВидСравненияКомпоновкиДанных.Равно, СтрокаПогоды.ЦветТемпературы);
					
					ЦветRGB = HexToDec(СтрокаПогоды.ЦветТемпературы);	
					
					R = ЦветRGB%256;
					G = (Цел(ЦветRGB/256))%256;
					B = (Цел(ЦветRGB/65536))%256;
					
					ЭлементУО.Оформление.УстановитьЗначениеПараметра("ЦветФона", Новый Цвет(B,G,R));
					
				КонецЕсли;
				
			КонецЦикла; 
			
		КонецЦикла; 
		// Добавлено /\
		
	КонецЕсли;
	
КонецПроцедуры
...Показать Скрыть
2. Сергей (seermak) 14.08.15 11:08
(1) и ,правда, заработало, я пытался сделать подобное, но ума не хватило..... Спасибо