Форум программистов, компьютерный форум, киберфорум
Visual Basic
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
VB Принадлежит ли точка (X,Y) кругу радиусом R с центром в начале координат https://www.cyberforum.ru/ visual-basic/ thread791135.html
После ввода координат точки определяет принадлежит ли она кругу радиусом R с центром в точке начале координат.
Компонент FileListBox VB
Всем Привет! У меня вопрос о компоненте FileListBox для Visual Basic 6.0 Имеется программа, которая открывает выбранные файлы в списке из FileListBox. А как реализовать чтобы при нажатии, например на CommanButton1, выбирался следующий файл из списка FileListBox. Может с помощью оператора Select, хотя с ним я как-то не разобрался?!
VB Переписать все четные числа из исходного массива, вывести новый размер массива и его содержимое дан целочисленный массив А размера N. Переписать в новый целочисленный массив B все четные числа из исходного массива (в том же порядке) и вывести размер полученного массива B и его содержимое. https://www.cyberforum.ru/ visual-basic/ thread790790.html VB Заполнить матрицу А(N,N) числами натурального ряда в последовательности, указанной на рисунке https://www.cyberforum.ru/ visual-basic/ thread790707.html
Помогите решить контрольную. Заполнить матрицу А(N,N) числами натурального ряда в последовательности, указанной на рисунке. Половина работы сделал, не могу продолжить, чтобы с середины заполнялась и шла вниз. Вот программа: Dim m() As Integer Dim n As Integer
Трехмерные объекты и RHW VB
Используя DirectX 8 нарисовал 2D треугольник. Он состоит из 3 соединенных точек с координатами x и y, а z (отвечает за расстояние от наблюдателя) у них одинаковое. По теории, меняя значение z, можно сделать трехмерный треугольник. Но ничего не меняется, однако! With Vertices(0): .x = 150: .y = 50: .z = 0.5: .rhw = 1: .color = &HFFFF0000: End With With Vertices(1): .x = 250: .y = 250: .z =...
VB Чтение строк https://www.cyberforum.ru/ visual-basic/ thread790345.html
Имеем к примеру файл, по App.Path & "\File.txt" В файле: Eminem - You Dont Know D:\Music\1.MP3 Eminem - Space Bound D:\Music\2.MP3
VB Запуск от имени Администратора https://www.cyberforum.ru/ visual-basic/ thread790187.html
Есть ли какой-нибудь код для запуска программы от имени Администратора в Win 7? ( UAC ) Да и возможно ли программе получить сертификат безопасности, чтобы Windows 7 меньше придирался? Спасибо.
Генератор паролей VB
Всем здрасти. У кого-нибудь есть исходник генератора паролей? Нужно чтоб: 1) Пароли записывались в столбик 2) Возможность генерировать до 10 000 и более паролей 3) Возможность после генерации сохранять все в текстовом файле Спасибо всем заранее... Вот примерчик слабенький, он по 1-ому паролю генерирует Private Sub Command1_Click() Randomize Dim i As Integer, r As Integer, l As...
VB Из матрицы А по заданному правилу получить элементы вектора https://www.cyberforum.ru/ visual-basic/ thread789755.html
Помогите, пожалуйста! Никак не соображу 2 задание (1 вроде получилось) Private Sub Command1_Click() Picture1.Cls n = Val(Text1.Text) For i = 1 To n For j = 1 To n a = ((2 ^ i / i ^ 2) + (2 * j / j ^ 2)) / (Exp(i) / Exp(j)) Picture1.Print Format(a, "##.###"), " "; Next j Picture1.Print Chr(13) + Chr(10)
VB Добрый вечер. Написала код на delphi: https://www.cyberforum.ru/ visual-basic/ thread789601.html
program Project1; {$APPTYPE CONSOLE} uses SysUtils; var x,y: array of real; i,n,k,z,tochka: integer;
VB Найти сумму элементов массива, расположенных после максимального элемента
Ввести одномерный массив x = {-1.5, 0, 0.8, 2.2, 3, 0.5, 0.1}. Переписать элементы массива, принадлежащие отрезку , в массив y и найти сумму элементов, расположенных после максимального элемента в массиве y. Это Visual Basic
VB Переполнение при перемножении чисел типа Variant https://www.cyberforum.ru/ visual-basic/ thread789529.html
Вот так работает: Dim TotF As Long TotF = 15000000 А вот так выдаёт "переполнение": Dim TotF As Long TotF = 1500 * 10000 =-O А мне надо знать общее кол-во фишек при TotI = 10000 и каждый тур TotI уменьшается :wall:
18 / 18 / 8
Регистрация: 21.10.2011
Сообщений: 115
21.02.2013, 16:27  [ТС] 0

Ошибка при проверке существования файла (VBS) - VB - Ответ 4162753

21.02.2013, 16:27. Показов 1324. Ответов 4
Метки (Все метки)

Ответ

Большое спасибо!
Но появилась новая трабла: пишет "Разрешение отклонено", ругаясь на строку
Visual Basic
1
Set oLogFile = oFSO.CreateTextFile(sLogPath, True)
.
Видимо, не может изменить права файла....
Есть мысли на этот счет?

Вернуться к обсуждению:
Ошибка при проверке существования файла (VBS) VB
0
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
21.02.2013, 16:27
Готовые ответы и решения:

Ошибка при запуске vbs файла
При запуске выкидывает ошибку Sub Test() With Application.Workbooks.Item(Test.xls) Dim Mas0...

Try-catch в проверке существования треугольника
Создаю статический метод который проверяет существует ли треугольник с заданными сторонами, метод...

Сайт CodeWars при проверке решения выдаёт ошибку, при проверке в VisualStudio ошибки нет
Задача написать метод,который будет проверять порядок круглых скобок. Написал код, проверил в...

Ошибка при проверке
∞ Ʃ ((-1)^n) *((x^n)/((2*n)!)) n=0 an=((-1)^n) *((x^n)/((2*n)!)) an-1=((-1)^n-1)...

4
21.02.2013, 16:27
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
21.02.2013, 16:27
Помогаю со студенческими работами здесь

Ошибка 216 при проверке
Выдает 216-ю ошибку,не могу понять,в чем причина. uses crt; type TElint = byte; TElelem...

Ошибка при проверке на существование
Вот код: if (mysql_query("SELECT * FROM `".$db_prefix."sites` WHERE `link` = `".$url_site."`"))...

Ошибка при проверке массива
sf::String *TileMap = new sf::String; for (size_t i = 0; i < 15; i++) { TileMap = " ...

Ошибка при проверке диапазона
Program p1; var a:array of integer; x,y,m,i:integer; begin writeln('введите колличество чисел,...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru