» Задачи на Visual Basic (VB).

'Задание:
'Создать блок-схему та программу табулирования функции у=f(х) на интервале [хнач хкон] з шагом h.
'y = e^sin(x)+ 4 кор (a+x) / (ln^3 * bx)
'Необходимо определить:
'среднее арифметичное y>5

или фото задания http://www.cyberforum.ru/attachment.php?attachmentid=30580&d=1274355904

Буду очень благодарным за подсказки, или где можна посмотреть что-нибудь похожее...

YAMATA
На форме 2 текстбокса (textbox1 b textbox2 )и кнопка (button1).

Код:
Dim строка_вывода As String

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
строка_вывода = ""
For i = 0 To TextBox1.Text.Length - 1
Select Case TextBox1.Text.Chars(i)
Case "А"
строка_вывода += " 1"
Case "Б"
строка_вывода += " 22"
Case "В"
строка_вывода += " 31"
Case "Г"
строка_вывода += " 35"
Case "Д"
строка_вывода += " 47"
Case Else
строка_вывода += " 98"
End Select
Next i
textbox2.text = строка_вывода
End Sub

MrRoma

Цитата:

Буду очень благодарным за подсказки, или где можна посмотреть что-нибудь похожее...

Пожалуйста...

Всем доброго времени суток!
Разбираюсь с элементом в VB6 DataGrid. Подскажите пожалуйста, как в него добавить таблицу из имеющейся базы данных?

ребята помогите решить несколько простых задач оч нужно !!!!! спасайте !!!!!
1) Написать программу вычисленния нахожденияпроизведения цифр трехзначного числа .
2) Если целое число m делится нацело на целое число n , то вывести на экран частное от деления, в противном случае вывести сообщение "m на n нацело не делится " .
3) Данна строка символов , среди которых есть двоеточие . Определить сколько символов ему предшевствует и какие .
4) Дано натуральное число n . Вычеслить произведенние первых n-сомножителей.
p=(2/3)*(4/5)*(6/7)*..........*(2n/(2n+1))

tigermax9
Ведь совсем простенькие задачи.
1. Универсальное - высчитывает произведение любого количества цифр(если их не слишком много)
Код: summ = 1
number = 356
For i = 1 To Len(Cstr(number))
summ = summ * CLng(Mid$(Cstr(number), i, 1))
Next
MsgBox Cstr(summ)

огромное спасибо !!!!!!! Rush выручил спс !!!!!

Люди, помогите пожалуйста с задачками!!
1.Два натуральных числа называются «дружественными», если каждое из них равно сумме всех делителей (кроме его самого) другого (например, числа 220 и 284). Найти все пары «дружественных чисел», которые не больше данного числа N.
2. Известны марки машин, изготовляемых в данной стране и импортируемых за рубеж. Даны некоторые N стран. Определить для каждой из марок, какие из них были доставлены во все страны; доставлены в некоторые из стран; не доставлены ни в одну страну.

ПОМОГИТЕ ПОЖАЛУЙСТА С ЗАДАНИЯМИ!!!!!!!
1. Дана символьная строка, содержащая текст, заканчивающийся точкой. Вывести на экран слова, содержащие три буквы.
2. Составить программу, которая в массив- A[1..N] находит второе по величине число (т.e. вывести на печать число, которое меньше максимального элемента массива, но больше всех других элементов).
3. Два простых числа называются «близнецами», если они отличаются друг от друга на 2 (например, 41 и 43). Напечатать все пары «близнецов» из отрезка [n, 2n], где n — заданное натуральное число больше 2
4. В трех колхозах выращивают некоторые сельскохозяйственные культуры из имеющегося перечня. Определить культуры, возделываемые во всех колхозах; возделываемые хотя бы в одном колхозе; только в двух колхозах.
5. Среди работников данного предприятия найти тех, чья заработная плата за месяц является ниже средней по предприятию, а также распечатать список тех, кто проработал на предприятии более 10 лет с указанием их фамилии, зарплаты, стажа работы и должности.
6. Дан файл, содержащий различные даты. Каждая дата — это число месяц и год. Найти все весенние даты.

Помогите, пожалуйста, решить простенькие задания, я просто в программировании вообще не понимаю, а сдать в четверг уже надо
1. . Создайте процедуру типа Sub, которая рассчитает и запишет в третью строку таблицы отношения численности населения Свердловской области (для всех приведенных в таблице годов) к численности населения в 2000 году. Обязательно используйте цикл For – Next.
Таблица. Численность населения Свердловской области (в тыс. чел.)
2000 год    2001 год    2002 год    2003 год    2004 год    2005 год
4546    4514    4478    4448    4428    4410
                    
2.    Создайте процедуру (типа Sub). Объявите в ней два массива: первый массив типа Single, который состоит из пяти элементов, пронумерованных от 1 до 5; второй массив типа Integer, который состоит из тридцати элементов, пронумерованных от 1 до 30.
Присвойте пяти элементам первого массива произвольные, но различные значения, а элементам второго массива – значения, совпадающие с их номерами.
Используя оператор Debug.Print выведите (напечатайте) в окне Immediate со-держимое элемента первого массива, индекс которого равен сумме первого и третьего элементов второго массива.
3.     Создать функцию рабочего листа, которая сравнивает два числа (записанные в двух произвольных ячейках рабочего листа) и возвращает слово Больше, если первое число больше или равно второму, и слово Меньше, если первое число меньше второго.

не туда

Помоги сделать пожалуйста спасибо!Вводится текст,представляющий собой оператор присваивания.В арифметическом выражении которого отсутствуют скобки.Проверить:
a. не начинается ли индентификатор оператора с целого числа;
b. нет ли пробелов в имени переменной;
c. следуют ли за переменной знаки <<:=>>;
d. нет ли в выражении подряд записанных двух и больше операций;
e. не заканчивается ли выражение арифметической операцией.На языке Visual Basic.Срочно надо спасибо.

ребят,помогите пожалуйста решить задачу
заданы натуральные числа M и N.нужно определить период десятичной дроби M/N на VBA.

готов оплатить работу специалиста по экспорту таблиц из бд программы subaru fast (http://forum.ru-board.com/topic.cgi?forum=33&bm=1&topic=10859#1)

ccылка на прогу http://forum.parts.in.ua/uploads/subaru.rar

помогите пожалуйста сделать две задачки
1.В веденной строке вывести на экран все слова которые начинаются на букву которая введена с клавиатуры

2.Удалить из строки все вхождения заданного слова.

Ребята, покажите мне пожалста, как в Visual Basic написать путь до пользовательской папки temp?
Имею ввиду вот это: ABC = Environ ("TMP"), но как определить правильно и в пути написать, не знаю.
Вот мне нужно, например, запустить приложение из папки temp:
Код: Shell("TEMP\Button_1x32.exe")

помогите пожалуйста в VB написать прогу которая должна решать пример (2*b - ln(a + b)*c)/(c/4 - 1) при подставлении значений a b и c
очень надеюсь на вашу помощь

19lex91
Не понимаю, что здесь сложного

Код:
Sub Main()
Dim a, b, c, res As Double
a = 10
b = 5
c = 28
res = (2 * b - Math.Log10(a + b) * c) / (c / 4 - 1)

End Sub

Скажите, а есть ли способы отображать на форме bmp x32 изображения с альфа каналом, чтобы вместо черного фона была прозрачность? У меня кнопочки в bmp x32.

Подскажите, как можно написать следующий скрипт:
1) A и B числа, показать сумму всех целых чисел в районе этих цифр ( скажем А = 2, В = 5, Сумма = 14. (2+3+4+5)
2) Показать знаменатель нечетных чисел в этом промежутке ( А= 2, И= 5, Знаменатель = 15 (3*5=15)
A<B
Если пользователь вводит дробную или же A>В то нужно спросить его заново.

YumYum
Держи студент

Код:
Dim a, b, i, sum, mul As Integer
sum = 0
mul = 1
l1:
Console.WriteLine("Enter first number")
a = Integer.Parse(Console.ReadLine())
Console.WriteLine("Enter second number")
b = Integer.Parse(Console.ReadLine())
If (a > b) Then
GoTo l1
Else
For i = a To b
If (i Mod 2 <> 0) Then
mul = mul * i
End If
sum += i
Next
End If
Console.WriteLine("sum of numbers: {0}", sum)
Console.WriteLine("Mul of numbers : {0}", mul)
Console.ReadLine()

blaro
Благодарю.
Хотелось еще добавить, чтобы скрипт именно под консоль был заточен, а не GUI.

YumYum
Это и есть консольный вариант

Кто подскажет как сделать скрипт чтобы:
Пользователь вводил число и введенному числу строились ступеньки?
Как на примере:

Unix
Вот

Код:
Dim i, j, stairs, k As Integer
Dim stair As String
stair = "---"
k = 0
Console.WriteLine("Enter number of stairs")
stairs = Integer.Parse(Console.ReadLine())
Console.WriteLine(stair)
While (i < stairs - 1)
k += stair.Length
For j = stair.Length To k + 1
Console.Write(" ")
Next
Console.WriteLine("|")
For j = stair.Length To k + 1
Console.Write(" ")
Next
Console.WriteLine(stair)
i += 1
End While
Console.ReadKey()

blaro
Благодарю, работает на ура.
Еще есть вопрос.
Есть еще варианты как можно этот жеж самый скрипт написать?

Unix
Переведи это все в рекурсию, например.

подскажите плз: нужно посылать на выходы ком-порта определенные данные (постоянные), получилось нечто вроде этого:


Код:
Private Sub Form_Activate()

MSComm1.CommPort = 1
MSComm1.Settings = "115200,N,8,1"
MSComm1.PortOpen = True
MSComm1.RTSEnable = True
MSComm1.DTREnable = True

Call ComPortOut
Call ComPortOutClear
End Sub

Sub ComPortOut()

MSComm1.DTREnable = True
MSComm1.RTSEnable = False
MSComm1.DTREnable = False

MSComm1.DTREnable = True
MSComm1.RTSEnable = True
MSComm1.DTREnable = False

MSComm1.DTREnable = True
MSComm1.RTSEnable = False
MSComm1.DTREnable = False

MSComm1.DTREnable = True
MSComm1.RTSEnable = True
MSComm1.DTREnable = False

MSComm1.DTREnable = True
MSComm1.RTSEnable = True
MSComm1.DTREnable = False

MSComm1.DTREnable = True
MSComm1.RTSEnable = True
MSComm1.DTREnable = False

MSComm1.DTREnable = True
MSComm1.RTSEnable = True
MSComm1.DTREnable = False

MSComm1.DTREnable = True
MSComm1.RTSEnable = True
MSComm1.DTREnable = False

MSComm1.Output = Chr(1)

End Sub

Sub ComPortOutClear()

MSComm1.DTREnable = True
MSComm1.RTSEnable = False
MSComm1.DTREnable = False

MSComm1.DTREnable = True
MSComm1.RTSEnable = False
MSComm1.DTREnable = False

MSComm1.DTREnable = True
MSComm1.RTSEnable = False
MSComm1.DTREnable = False

MSComm1.DTREnable = True
MSComm1.RTSEnable = False
MSComm1.DTREnable = False

MSComm1.DTREnable = True
MSComm1.RTSEnable = False
MSComm1.DTREnable = False

MSComm1.DTREnable = True
MSComm1.RTSEnable = False
MSComm1.DTREnable = False

MSComm1.DTREnable = True
MSComm1.RTSEnable = False
MSComm1.DTREnable = False

MSComm1.DTREnable = True
MSComm1.RTSEnable = False
MSComm1.DTREnable = False

MSComm1.Output = Chr(1)

End Sub

Цитата:

но это все дело привязано к форме, а нужно чтоб прога просто запускалась без окна и отправляла несколько байт...

Создаёшь модуль, в нём создаёшь процедуру Main. В свойствах проекта указываешь, чтобы проект стартовал из Sub Main.




Цитата:

и еще: как запустить из командной строки и передать ей номер порта?

Входные параметры можно взять из переменной Command$.

не пойму как подключить MSComm прям в модуле...


Код:
Private Sub main()
Call Form1.Form_Activate
End Sub