|
Результаты поиска
| |
| shizofren | Дата: Четверг, 10 Мая 2012, 17:27 | Сообщение # 821 | Тема: Перлы нашего форума |
Starting MS-DOS...
Сейчас нет на сайте
| Пользователь lokinam - лучший программист GML:
Quote так коды выучил и кууда их вводить нужно
Оригинал.
Моя команда
|
|
|
| |
| shizofren | Дата: Среда, 09 Мая 2012, 14:04 | Сообщение # 822 | Тема: android 4.0 помогите обновить |
|
Starting MS-DOS...
Сейчас нет на сайте
| Quote (goldsphere)
вставьте карту памяти??????
А куда мы
А что тебе мешает создать эту папку через ПК?
Моя команда
|
|
|
| |
| shizofren | Дата: Среда, 09 Мая 2012, 12:50 | Сообщение # 823 | Тема: [VB6] Случайный заголовок |
|
Starting MS-DOS...
Сейчас нет на сайте
| -Mikle-, хм, не знал. Спасибо, просто я работаю с VB.NET, а там Rnd по другому устроен.
Моя команда
|
|
|
| |
| shizofren | Дата: Вторник, 08 Мая 2012, 20:08 | Сообщение # 824 | Тема: Dosbox and Nokia 5800 |
|
Starting MS-DOS...
Сейчас нет на сайте
| vasua99, ставь кастомную клавиатуру.
Моя команда
|
|
|
| |
| shizofren | Дата: Вторник, 08 Мая 2012, 12:41 | Сообщение # 825 | Тема: [VB6] Случайный заголовок |
|
Starting MS-DOS...
Сейчас нет на сайте
| Stage, здесь мы разбираем решение задачи для человека, который не сильно разбирается в различных подходах программирования на VB. Ну, компактее код можно сделать так:
Code
Option Explicit
Dim Value As Long
Dim varSovetu(19) As String
Private Sub Form_Load()
Randomize
n = Int(Rnd * 19)
Label1.Caption = varSovetu(n)
End Sub
Моя команда
Сообщение отредактировал shizofren - Пятница, 25 Мая 2012, 23:11 |
|
|
| |
| shizofren | Дата: Вторник, 08 Мая 2012, 08:34 | Сообщение # 826 | Тема: [VB6] Случайный заголовок |
|
Starting MS-DOS...
Сейчас нет на сайте
| Сударь, вы пришли с реальным делом или поучить меня, как нужно писать, а как нет?
Моя команда
|
|
|
| |
| shizofren | Дата: Понедельник, 07 Мая 2012, 22:29 | Сообщение # 827 | Тема: [VB6] Случайный заголовок |
|
Starting MS-DOS...
Сейчас нет на сайте
| Ну, вроде так:
Code
Option Explicit
Dim Value As Long
Private Sub Form_Load()
Randomize
Value = Int(Rnd * 19)
Select Case Value
Case Is = 0
Label1.Caption = "Совет №1"
Case Is = 1
Label1.Caption = "Совет №2"
Case Is = 2
Label1.Caption = "Совет №3"
Case Is = 3
Label1.Caption = "Совет №4"
Case Is = 4
Label1.Caption = "Совет №5"
Case Is = 5
Label1.Caption = "Совет №6"
Case Is = 6
Label1.Caption = "Совет №7"
Case Is = 7
Label1.Caption = "Совет №8"
Case Is = 8
Label1.Caption = "Совет №9"
Case Is = 9
Label1.Caption = "Совет №10"
Case Is = 10
Label1.Caption = "Совет №11"
Case Is = 11
Label1.Caption = "Совет №12"
Case Is = 12
Label1.Caption = "Совет №13"
Case Is = 13
Label1.Caption = "Совет №14"
Case Is = 14
Label1.Caption = "Совет №15"
Case Is = 15
Label1.Caption = "Совет №16"
Case Is = 16
Label1.Caption = "Совет №17"
Case Is = 17
Label1.Caption = "Совет №18"
Case Is = 18
Label1.Caption = "Совет №19"
Case Is = 19
Label1.Caption = "Совет №20"
End Select
End Sub
Моя команда
|
|
|
| |
| shizofren | Дата: Воскресенье, 06 Мая 2012, 15:31 | Сообщение # 828 | Тема: Windows Media Player |
|
Starting MS-DOS...
Сейчас нет на сайте
| Acro, Денис, ну ты и отмочил!
Моя команда
|
|
|
| |
| shizofren | Дата: Воскресенье, 06 Мая 2012, 12:12 | Сообщение # 829 | Тема: Может кто подсказать работу на лето (2 месяца) в Харькове! |
|
Starting MS-DOS...
Сейчас нет на сайте
| Serg1971, спасибо, уже смотрю.
Моя команда
|
|
|
| |
| shizofren | Дата: Воскресенье, 06 Мая 2012, 09:58 | Сообщение # 830 | Тема: Может кто подсказать работу на лето (2 месяца) в Харькове! |
|
Starting MS-DOS...
Сейчас нет на сайте
| Quote (yarickyarick) shizofren, Можно с 14 лет=/
Вот я также думаю, ведь трудовым кодексом Украины разрешено работать с 14 лет, имея согласие родителей. А вот некоторые "личности" говорят, что нет, не стоит идти в Центр Занятости раньше 18 лет. Хотя, это так - теория, на практике же никакие Центры тебе ничего подсказать не смогут, даже если у тебя 3 диплома на руках.
Моя команда
|
|
|
| |
| shizofren | Дата: Суббота, 05 Мая 2012, 20:30 | Сообщение # 831 | Тема: Может кто подсказать работу на лето (2 месяца) в Харькове! |
|
Starting MS-DOS...
Сейчас нет на сайте
| Ребята из Украины, кто знает, можно ли в Центре Занятости найти работу в 15 лет?
Моя команда
|
|
|
| |
| shizofren | Дата: Суббота, 05 Мая 2012, 20:18 | Сообщение # 832 | Тема: Смена размера шрифтов Windows 3.1 |
|
Starting MS-DOS...
Сейчас нет на сайте
| Palmar, со шрифтами нет проблем, там нужно ковыряться в настройках DosBox и искать такой пункт меню, как Resize Mode или что-то вроде того. Да кстати, чуть-чуть не в тот раздел обратился.
Моя команда
|
|
|
| |
| shizofren | Дата: Суббота, 05 Мая 2012, 19:52 | Сообщение # 833 | Тема: Школьники бросают кирпичами в машины |
|
Starting MS-DOS...
Сейчас нет на сайте
| Школота, школота... Почему люди вешают на других ярлыки, а? Нет, безусловно в ярлыках нет ничего плохого, если использовать их для обобщения уже состоявшихся личностей. Но сейчас люди рождаются для определённых ярлыков. Общество рождает таких дегенератов.
Моя команда
|
|
|
| |
| shizofren | Дата: Суббота, 05 Мая 2012, 12:14 | Сообщение # 834 | Тема: Может кто подсказать работу на лето (2 месяца) в Харькове! |
|
Starting MS-DOS...
Сейчас нет на сайте
|
Quote Стройка, грузчик и тому подобная!
 . Начали поиском работы, а закончили гирями. Ты создал тему, чтобы найти работу или похвастаться своим физическим телосложением?
Моя команда
Сообщение отредактировал shizofren - Суббота, 05 Мая 2012, 12:15 |
|
|
| |
| shizofren | Дата: Четверг, 26 Апреля 2012, 07:42 | Сообщение # 835 | Тема: Система реалистичного полета пули. Blitz3D |
|
Starting MS-DOS...
Сейчас нет на сайте
| Quote (makso134)
Ты конечно извини, но по моему Blitz3D использует DirectX 8, да и к тому же можно 9-ый прикрутить!
Стандартно использует DirectX 7, но привинчивая девятый, получаем огромные ограничения по карте и баги.
Моя команда
|
|
|
| |
| shizofren | Дата: Четверг, 26 Апреля 2012, 01:02 | Сообщение # 836 | Тема: Система реалистичного полета пули. Blitz3D |
|
Starting MS-DOS...
Сейчас нет на сайте
| А зачем это делать на Blitz3D? Нужна ли реалистичная игровая физика при DirectX 7?
Моя команда
|
|
|
| |
| shizofren | Дата: Суббота, 21 Апреля 2012, 07:41 | Сообщение # 837 | Тема: Школы станут платными? |
|
Starting MS-DOS...
Сейчас нет на сайте
| Как при "Новом Порядке" немцев - обязательны были только 3 класса. Со слов Эрика Коха, чтобы население умело только понимать команды руководства.
Quote Ну может быть хоть так кто-то учиться будет. Халявное образование нынче не располагает к усердию biggrin
Повторите это нашим студентам-контрактникам. Сами платят деньги и побольше, а учатся, мягко сказать, неважно. Не все конечно, но основная масса.
Моя команда
|
|
|
| |
| shizofren | Дата: Пятница, 20 Апреля 2012, 10:44 | Сообщение # 838 | Тема: Полезные советы по Visual Basic.NET 2005 |
|
Starting MS-DOS...
Сейчас нет на сайте
| Как воспроизвести музыку в программе?
Есть множество способов сделать это, мы будем использовать плагин Windows Media Player.
1. Добавим библиотеку в вашу программу Project => Add Reference => COM => Windows Media Player
2. Добавим класс в программу:
Code
Public Class frmMusic
Dim wmp As New WMPLib.WindowsMediaPlayerClass()
3. Функции для управления музыкой:
Code
wmp.currentMedia = wmp.newMedia("Имя файла.mp3") 'Выбираем файл для воспроизведения
wmp.controls.play() 'Начать воспроизведение
wmp.controls.stop() 'Остановить воспроизведение
Как прочитать текстовые файлы?
Построчное чтение:
Code
FileOpen(Номер файла, "Путь к файлу", OpenMode.Input)
Input(Номер файла, Переменная)
Переменная = LineInput(Номер файла)
FileClose(Номер файла)
Теперь рассмотрим всё по отдельности. Номер файла - любое числовое значение, означает номер открытого файла.Желательно не держать много открытых файлов. Лично я всегда ставлю 1, потом при завершении чтения я его закрываю. Input - считывается строка файла до запятой, после запятой начинается новая строка. Согласитесь, иногда это не очень удобно. LineInput - считывание строки файла с учётом абсолютно всех символов. Переменная - переменная, куда запишется значение строки.
Пример. Имеем текстовый файл Lesson1.txt с таким содержимым:
Теперь считаем этот файл функцией Input с учётом того, что есть две переменные типа string: var1, var2.
Code
FileOpen(1, "Lesson1.txt", OpenMode.Input)
Input(1, var1)
Input(1, var2)
FileClose(1)
Рассмотрим, какие значения имеют переменные:
var1 = Привет
var2 = мир.
Считываем этот же файл с помощью LineInput:
Code
FileOpen(1, "Lesson1.txt", OpenMode.Input)
var1 = LineInput(1)
var2 = LineInput(1)
FileClose(1)
Рассмотрим, какие значения имеют переменные:
var1 = Привет, мир.
var2 = Конец.
Надеюсь, понятно почему?
Как записывать текстовые данные в файл?
Парадокс, но записать данные в файл намного легче, чем их считать. Для этого мы будем использовать функцию PrintLine, которая будет построчно записывать указаное значение в файл. Рассмотрим синтаксис:
Code
FileOpen(Номер файла, Путь к файлу, OpenMode.Output)
PrintLine(Номер файла, Значение)
FileClose(Номер файла)
Прошу обратить внимание на режим открытия файла: OpenMode.Output - файл открывается для записи, OpenMode.Input - файл открыт для чтения. Теперь рассмотрим наш PrintLine на практике:
Code
FileOpen(1, "Lesson1.txt", OpenMode.Output)
PrintLine(1, var1)
PrintLine(1, TextBox1.Text)
PrintLine(1, "Конец.")
FileClose(1)
Результатом наших мытарств будет то, что в файле Lesson1.txt первая строка будет аналогинча переменной var1, вторая строка - тест из TextBox1, третья - слово Конец.
Со временем тема будет пополняться.
Добавлено (20.04.2012, 10:44)
---------------------------------------------
Добавлен совет по записи в файл.
Моя команда
Сообщение отредактировал shizofren - Пятница, 20 Апреля 2012, 15:54 |
|
|
| |
| shizofren | Дата: Понедельник, 16 Апреля 2012, 20:44 | Сообщение # 839 | Тема: Программа следящая за аккамулятором ноутбука. |
|
Starting MS-DOS...
Сейчас нет на сайте
| Gavolot, а настроить в панели управления невозможно?
Моя команда
|
|
|
| |
| shizofren | Дата: Понедельник, 09 Апреля 2012, 08:06 | Сообщение # 840 | Тема: В чем лучше реализовать идею своей игры? |
|
Starting MS-DOS...
Сейчас нет на сайте
| KadashNNov, а чем тебе работа в редакторе Warcraft не разработка самостоятельной игры?
Моя команда
|
|
|
| |
|
