Java Юный программист
Процедура ЗагрузкаИзЭксельВСправочник (ПутьДоФайла) Экспорт
ТД = Новый ТабличныйДокумент;
ТД.Прочитать(ПутьДоФайла);
Для Строка = 3 По ТД.ВысотаТаблицы Цикл
ТипАвто = СокрЛП(ТД.Область(Строка, 2).Текст);
ДатаТекст = СокрЛП(ТД.Область(Строка, 3).Текст);
НомерСтрока = СокрЛП(ТД.Область(Строка, 4).Текст);
ВладелецАвто = СокрЛП(ТД.Область(Строка, 5).Текст);
// Преобразование из текста в правильные типы
ТипАвтоСсылка = СоздатьИлиНайтиТипАвто(ТипАвто);
ДатаПостановки = СделатьДату(ДатаТекст);
НомерКорректный = ПроверкаНомера(НомерСтрока);
Если ДатаПостановки = Неопределено Тогда
Сообщить("Дата в строке "+Строка + " задана некорректно, проигнорировано "+ДатаТекст);
КонецЕсли;
Если НомерКорректный = Неопределено Тогда
Сообщить("Номер авто в строке "+Строка + " задан некорректно, проигнорировано "+НомерСтрока);
КонецЕсли;
СоздатьЗаписьОбАвто(ТипАвтоСсылка, ДатаПостановки, НомерКорректный, ВладелецАвто);
КонецЦикла;
КонецПроцедуры
Функция ПроверкаНомера(НомерСтрока)
ДлинаНомера = СтрДлина(НомерСтрока);
// Номер может быть только 11 или 12 символов (я так посчитал)
// Код региона бывает либо 3х значный, либо 2х
Если ДлинаНомера 12 Тогда
Возврат Неопределено;
КонецЕсли;
Попытка
Номер = Сред( НомерСтрока, 2, 3);
Если ДлинаНомера = 11 Тогда
//Регион 2х значный
Регион = Сред( НомерСтрока, 7, 2);
Иначе
//Регион 3х значный
Регион = Сред( НомерСтрока, 7, 3);
КонецЕсли;
Номер = Число(Номер);
Регион = Число(Регион);
// Если номер прошел проверку возвращаем его же
Возврат НомерСтрока;
Исключение
Возврат Неопределено;
КонецПопытки;
КонецФункции
// Из строки с датой сделать Дату
Функция СделатьДату(ДатаТекст)
Попытка
День = Лев( ДатаТекст, 2);
Месяц = Сред( ДатаТекст, 4, 2);
Год = Прав( ДатаТекст, 4);
Возврат Дата(Число(Год), Число(Месяц), Число(День));
Исключение
Возврат Неопределено;
КонецПопытки;
КонецФункции
Функция СоздатьИлиНайтиТипАвто(ТипАвто)
СсылкаНаЭлемент = Справочники.ТипАвто.НайтиПоНаименованию(ТипАвто);
Если СсылкаНаЭлемент = Справочники.ТипАвто.ПустаяСсылка() Тогда
Элемент = Справочники.ТипАвто.СоздатьЭлемент();
Элемент.Наименование = ТипАвто;
Элемент.Записать();
Возврат Элемент.Ссылка;
КонецЕсли;
Возврат СсылкаНаЭлемент;
КонецФункции
Процедура СоздатьЗаписьОбАвто(ТипАвто, ДатаПостановки, Номер, ВладелецАвто)
Элемент = Справочники.Авто.СоздатьЭлемент();
Элемент.ТипАвто = ТипАвто;
Элемент.ДатаПостановки = ДатаПостановки;
Элемент.Номер = Номер;
Элемент.ВладелецАвто = ВладелецАвто;
Элемент.Записать();
КонецПроцедуры
&НаКлиенте
Процедура ПоказатьОписание(Команда)
Элементы.ГруппаОписание.Видимость = Не Элементы.ГруппаОписание.Видимость;
Если Элементы.ГруппаОписание.Видимость Тогда
Элементы.ПоказатьОписание.Заголовок = "Скрыть описание";
Иначе
Элементы.ПоказатьОписание.Заголовок = "Показать описание";
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура КлассПриИзменении(Элемент)
Если Элементы.Класс.ТекстРедактирования = "Птицы" Тогда
Сообщить("Вы активировали размах");
Элементы.ГруппаРазмах.Видимость = Истина;
Иначе
Элементы.ГруппаРазмах.Видимость = Ложь;
КонецЕсли;
КонецПроцедуры
//Общий модуль
Функция СоздатьКартинку(Наименование, Картинка) Экспорт
Элемент = Справочники.Файлы.СоздатьЭлемент();
Элемент.Наименование = Наименование;
Элемент.Изобр = Новый ХранилищеЗначения( Картинка );
Элемент.Записать();
Возврат Элемент.Ссылка;
КонецФункции
//Модуль элемента
&НаКлиенте
Процедура ЗагрузитьКартинку(Команда)
ДиалогОткрытияФайла = Новый ДиалогВыбораФайла( РежимДиалогаВыбораФайла.Открытие);
ДиалогОткрытияФайла.ПолноеИмяФайла = "";
ДиалогОткрытияФайла.Фильтр = "Фотки|*.jpg|ПэЭнГэшки|*.png";
ДиалогОткрытияФайла.МножественныйВыбор = Ложь;
ДиалогОткрытияФайла.Заголовок = "Выберите картинку";
Если ДиалогОткрытияФайла.Выбрать() Тогда
МассивФайлов = ДиалогОткрытияФайла.ВыбранныеФайлы;
ПутьДоКартинки = МассивФайлов[0];
МояКартинка = Новый Картинка(ПутьДоКартинки);
СсылкаНаЭлементСправочникаКартинки = ВспомогатФункции.СоздатьКартинку(Объект.Наименование, МояКартинка);
НавигСсылкаКартинки = ПолучитьНавигационнуюСсылку(СсылкаНаЭлементСправочникаКартинки,"Изобр");
Объект.СсылкаНаКартинку = СсылкаНаЭлементСправочникаКартинки;
Иначе
Сообщить("Файл не выбран");
КонецЕсли;
КонецПроцедуры
Урок 26. Лабиринт минотавра 10
Урок 25. Лабиринт минотавра 9
Урок 24. Лабиринт минотавра 8
Урок 23. Лабиринт минотавра 7
Урок 22. Лабиринт минотавра 6
Урок 21. Лабиринт минотавра 5
Урок 20. Лабиринт минотавра 4
Генерация карты | Карта| Проект
public static void load (String name) {
File f = new File (name);
Scanner s = null;
try {
s = new Scanner(f);
}
catch (Exception e) {
System.out.println("File Not Found");
return;
}
int rows = s.nextInt();
int cols = s.nextInt();
int respawn_row = s.nextInt();
int respawn_col = s.nextInt();
Hero.y = respawn_row;
Hero.x = respawn_col;
map = new int[rows][cols];
for (int i = 0; i
for (int j = 0; j
map[i][j] = s.nextInt();
}
}
}
Урок 19. Лабиринт минотавра 3
Проект | Класс для воспроизведения звука | Звуковые файлы
Урок 18. Лабиринт минотавра 2
Урок 17. Лабиринт минотавра
{ {1,1,1,1,0,1,1,1,1,1}, {1,0,0,1,0,1,0,0,0,1}, {1,0,1,1,0,1,0,1,0,1}, {1,0,1,0,0,1,0,1,0,1}, {1,0,1,0,1,1,0,1,0,1}, {1,0,1,0,0,0,0,1,0,1}, {1,0,1,0,1,1,1,1,0,1}, {1,0,1,0,1,0,0,1,0,1}, {1,0,0,0,0,0,0,0,0,1}, {1,1,1,1,1,1,1,1,1,1} }
Урок 16
Лабиринт минотавра. Создание карты
Урок 15
Игровая физика 4
Урок 14
Игровая физика 3
Урок 13
Игровая физика 2
Урок 12
Игровая физика
Урок 11
UFO 3.
Урок 10
UFO 2.
Урок 9
UFO.
Урок 8
Заготовка проекта 3.
Урок 7
Заготовка проекта 2.
Урок 6
Заготовка проекта.
Урок 5
Проект. Танки Онлайм.
Урок 2
Проект. Сказочник. Идея игры
Соединение строк. Placeholders. Сохранение в файл. Загрузка сказки из файла.
Проект. Замена прилагательных в рассказе.
Сохранение в файл
File f;
f = new File ("skazka.txt");
PrintWriter pw = null;
try {
pw = new PrintWriter(f);
}
catch(Exception e) {
JOptionPane.showMessageDialog(null, "Не могу создать файл. Программа завершена");
System.exit(0);
}
String story = "Жил-был дед со старухой.";
pw.println(story);
pw.println("И было у них...");
pw.flush();
pw.close();