/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Basic/VBA

Выпуск № 767
от 28.05.2008, 03:05

Вопрос № 136.677

Уважаемые эксперты, подскажите пожалуйста коды обычного и инжинерного калькуляторов. И еще вопрос: как сделать так, чтобы подсчитать количество нажатий на кнопку? Заранее спасибо.

Отправлен: 13.05.2008, 18:47 Вопрос задал: Иванов Семен Борисович (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Черников Игорь Владимирович Здравствуйте, Иванов Семен Борисович! Вот вам почти готовый калькулятор, только инженерного у меня нет http://rusfaq.ru/upload/664. А вот код подсчёта нажатия кнопки: Public schet As Long Private Sub Command1_Click() schet = schet + 1 Label1 = schet End Sub Удачи! --------- От каждого по способностям, каждому по труду

Ответ отправил: Черников Игорь Владимирович (статус: Студент) Ответ отправлен: 14.05.2008, 16:12

Отвечает: Калашник Андрей Николаевич Здравствуйте, Иванов Семен Борисович! Мне кажется Вы не в том форуме вопрос задали, Вам надо forum.microsoft.com либо BillGatesFAQ.us :) А в принципе. Задаете 4 переменные: число 1, число 2, знак и результат, ну и работаете с ними.

Ответ отправил: Калашник Андрей Николаевич (статус: 2-ой класс) Ответ отправлен: 14.05.2008, 18:04

Вопрос № 136.963

Напишите пожалуйста программу. Язык программирования Basic. Дан текст. Выяснить, является ли этот текст идентификатором переменной;

Отправлен: 15.05.2008, 16:25 Вопрос задала: Лиза (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Черников Игорь Владимирович Здравствуйте, Лиза ! Мне кажется Вы уже задавали этот вопрос. Вот Ваша программа на QBasic DIM Perem AS STRING PRINT "Введите название переменной "; 10 INPUT Perem IF LEN(Perem) = 0 THEN PRINT "Данные не введены, повторите ввод": GOTO 10 IF LEN(Perem) > 40 THEN PRINT "Переменная не может быть больше 40 символов" FOR i = 1 TO LEN(Perem) SELECT CASE ASC(LCASE$(MID$(Perem, i, 1))) CASE 48 TO 57, 97 TO 122 CASE ELSE PRINT "Переменная должна состоять только из латинских букв и цифр" END SELECT NEXT i IF VAL(MID$(Perem, 1, 1)) > -1 THEN PRINT "Переменная не может начинаться с цифры" END Удачи! --------- От каждого по способностям, каждому по труду

Ответ отправил: Черников Игорь Владимирович (статус: Студент) Ответ отправлен: 15.05.2008, 16:54

Отвечает: Павленко Александр Геннадьевич !!! Здравствуйте, Лиза ! Вы уже это спрашивали, если не ошибаюсь =) http://rusfaq.ru/info/Question/130370 В приложение добавлен ответ на вопрос 130370. Не нужно давать только ссылки на другие вопросы - копируйте их в приложение. ----- ∙ Отредактировал: Николай Владимирович / Н.В. (Профессор) ∙ Дата редактирования: 15.05.2008, 21:16 Приложение: Отвечает: Павленко Александр Геннадьевич Здравствуйте, Лиза ! Идентификатор переменной в QBasic подразумевает: 1) состоит из латинских букв и цифр 2) первый символ - буква 3) длина от 1 до 40 символов проверим все эти условия в обратном порядке. Приложение: dim text as string text="" 'не знаю откуда он "дан" '3 условие If len(text)>40 or len(text)<1 then print "это не идентификатор" end End if '2 условие If val(left$(text,1))<>0 then print "это не идентификатор" end End if '1 условие For i = 1 to len(text) c=asc(ucase$(right$(left$(text,i),1))) if c<65 or c>90 then print "это не идентификатор" end End If Next i 'все условия пройдены print "Это идентификатор!" end Ответил: Павленко Александр Геннадьевич (статус: 2-ой класс) Дата отправки: 03.04.2008, 16:49

Ответ отправил: Павленко Александр Геннадьевич (статус: 3-ий класс) Ответ отправлен: 15.05.2008, 20:58

Вопрос № 137.001

вычислите сумму и произведение всех чисел, делящихся на 4 от 16 и до 100 прогу надо написать не таблицей, а в строчку

Отправлен: 15.05.2008, 21:11 Вопрос задал: Saske (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Павленко Александр Геннадьевич Здравствуйте, Saske! код в приложении > прогу надо написать не таблицей, а в строчку эээ не совсем понял, если весь текст нужен в строку то просто замените абзацы на двоеточия Приложение: dim summa, proizv, i as integer for i = 16 to 100 if i / 4 = int(i / 4) then summa = summa + i proizv = proizv * i end if next i print summa, proizv

Ответ отправил: Павленко Александр Геннадьевич (статус: 3-ий класс) Ответ отправлен: 15.05.2008, 21:54 Оценка за ответ: 5 Комментарий оценки: спасибо

Отвечает: Furfurol Здравствуйте, Saske! Dim summa, proizv, i As Integer proizv = 1 For i = 16 To 100 Step 4 summa = summa + i proizv = proizv * i Next i MsgBox summa & vbTab & proizv

Ответ отправил: Furfurol (статус: 2-ой класс) Ответ отправлен: 16.05.2008, 14:47 Оценка за ответ: 5

Вопрос № 137.056

Здраствуйте уважаемые эксперты!Нужна ваша помощь вот в каком деле:нарисовать в программе qbasic (версии 4.5 или ниже) графический рисунок с движением!Все это нужно выполнить в скрине 12 в рамочке с разрешением 550х400(по центру экрана).Благодарность моя будет не иметь границ)

Отправлен: 16.05.2008, 11:48 Вопрос задал: Vlastelin (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 2)

Отвечает: Павленко Александр Геннадьевич Здравствуйте, Vlastelin! Если честно, заниматься таким некогда, но вот кое-что откопал в старинных своих исходниках, думаю сойдет =) Приложение: 1 CLS SCREEN 0 PRINT "Я МОГУ ПОКАЗАТЬ ВАМ:" PRINT "1) ФИЛЬМ" PRINT "2) ЗВЕЗДНОЕ НЕБО" INPUT "ВЫБИРАЙТЕ! ", O IF O = 0 THEN END SCREEN 12 IF O = 1 THEN ' ФИЛЬМ DIM X2(1 TO 4) DIM Y2(1 TO 4) ' 1 ЧАСТЬ FOR C = 15 TO -15 STEP -15 FOR X = 0 TO 639 LINE (X, 0)-(639 - X, 463), ABS(C) NEXT X FOR Y = 0 TO 463 LINE (639, Y)-(0, 463 - Y), ABS(C) NEXT Y NEXT C ' 2 ЧАСТЬ FOR R = 1 TO 9500 X = INT(RND * 638 + 1) Y = INT(RND * 462 + 1) LINE (319, 231)-(X, Y), 0 NEXT R FOR X = 231 TO 0 STEP -1 LINE (X, X)-(639 - X, 463 - X), 0, B NEXT X ' 3 ЧАСТЬ DO WHILE INKEY$ = "" FOR N = 1 TO 4 X2(N) = INT(RND * 638 + 1) NEXT N FOR N = 1 TO 4 Y2(N) = INT(RND * 462 + 1) NEXT N LINE (0, 0)-(X2(1), Y2(1)), 2 LINE (0, 463)-(X2(2), Y2(2)), 14 LINE (639, 0)-(X2(3), Y2(3)), 6 LINE (639, 463)-(X2(4), Y2(4)), 1 LOOP FOR X = 231 TO 0 STEP -1 LINE (X, X)-(639 - X, 463 - X), 15, B NEXT X ' 4 ЧАСТЬ FOR R = 1 TO 400 CIRCLE (319, 231), R, 0 NEXT R SLEEP 2 ' 5 ЧАСТЬ FOR X = 0 TO 231 LINE (X, X)-(639 - X, 463 - X), 0, B NEXT X CLEAR GOTO 1 END IF IF O = 2 THEN ' ЗВЕЗДНОЕ НЕБО S = 200 'КОЛ-ВО ЗВЕЗД DIM X(1 TO S / 2) 'НА КАЖДЫЙ МАССИВ - ПОЛНЕБА DIM Y(1 TO S / 2) DIM X1(1 TO S / 2) DIM Y1(1 TO S / 2) RANDOMIZE TIMER / 2.6 DO WHILE INKEY$ = "" X(S / 2) = INT(RND * 640) Y(S / 2) = INT(RND * 464) X1(S / 2) = INT(RND * 640) Y1(S / 2) = INT(RND * 464) PSET (X(S / 2), Y(S / 2)), 14 PSET (X1(S / 2), Y1(S / 2)) PSET (X(1), Y(1)), 0 PSET (X1(1), Y1(1)), 0 FOR A = 2 TO S / 2 'СДВИГ МАССИВОВ X(A - 1) = X(A) X1(A - 1) = X1(A) Y(A - 1) = Y(A) Y1(A - 1) = Y1(A) NEXT A V = V + 1 IF V = 10 OR V = 20 OR V = 30 OR V = 40 THEN 'МАЛЫЙ ВЗРЫВ FOR C = 15 TO 0 STEP -15 PSET (X(S / 4), Y(S / 4)), C FOR T = 1 TO 500: NEXT T CIRCLE (X(S / 4), Y(S / 4)), 1, C FOR T = 1 TO 500: NEXT T CIRCLE (X(S / 4), Y(S / 4)), 2, C NEXT C END IF IF V = 50 THEN 'БОЛЬШОЙ ВЗРЫВ FOR C = 14 TO -6 STEP -10 IF C < 0 THEN C1 = 0 ELSE C1 = C FOR P = 1 TO 5 CIRCLE (X1(S / 4) + U, Y1(S / 4) + O), P, C1 FOR T = 1 TO 150: NEXT T NEXT P NEXT C V = 0 END IF LOOP CLEAR GOTO 1 END IF END

Ответ отправил: Павленко Александр Геннадьевич (статус: 3-ий класс) Ответ отправлен: 16.05.2008, 13:14 Оценка за ответ: 5 Комментарий оценки: Спасибо)Может кто-то еще чтонибудь подкинет?

Вопрос № 137.089

Здравствуйте! Подскажите как на VBA в Access обновить список (длинная таблица) так, чтобы он не прокручивался в начало, а оставался как есть в том-же положиении (т.к. длинный, трудно искать нужную запись) Обновляю так: Список.Requery Но при этом список прокручивается или вверх до конца, или на какую-нибудь совсем другую строку, а не та ту, которая была выбрана до этого (можно выделить только одну строку). Подскажите что происходит, как сделать нормально?

Отправлен: 16.05.2008, 15:55 Вопрос задал: Upgrader (статус: 8-ой класс) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 3)

Отвечает: Черников Игорь Владимирович Здравствуйте, Upgrader! При обновлении recordset-а курсор обычно возвращается в первую позицию, поэтому Вам нужно сначала запомнить на какой строке был курсор, а после обновления вернуть его на прежнее место. Это можно сделать так: Function Refreshh1() temp = recordset.Bookmark recordset.Requery recordset.Bookmark = temp End Function Недостаток этой функции в том, что если добавятся записи выше этой, то и курсор переместится вверх на количество таких строк. Но обычно записи добавляются в конец, если в запросе не указана сортировка по какому-нибудь полю. Удачи! --------- От каждого по способностям, каждому по труду

Ответ отправил: Черников Игорь Владимирович (статус: Студент) Ответ отправлен: 16.05.2008, 17:47 Оценка за ответ: 5 Комментарий оценки: Спасибо, это как раз то что надо!

Вопрос № 137.570

Здраствуйте уважаемые эксперты подскажите пожалуйста код для двух прог на VB: 1) Cгенерирован массив из пяти элементов. Определить сколько в нем элементов которые больше чем предыдущий. 2)Дана фраза требуется записать все символы в обратном порядке. Заранее благодарен за ответ.

Отправлен: 19.05.2008, 22:28 Вопрос задал: Яковлев Вячеслав Геннадьевич (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Калашник Андрей Николаевич Здравствуйте, Яковлев Вячеслав Геннадьевич! for i=1 to 4 if a(i)>a(i-1) then s=s+1 next for i=len(f) to 1 step -1 nf=nf & mid$(f,i,1) next

Ответ отправил: Калашник Андрей Николаевич (статус: 2-ой класс) Ответ отправлен: 20.05.2008, 05:43 Оценка за ответ: 4

Отвечает: Павленко Александр Геннадьевич Здравствуйте, Яковлев Вячеслав Геннадьевич! код в приложении удачи. Приложение: 1) Dim chisla(4), bol, i As Integer For i = 0 To 4 chisla(i) = Int(Rnd() * 100 + 1) Next i For i = 1 To 4 If chisla(i) > chisla(i - 1) Then bol = bol + 1 Next i Print bol 2) Dim i As Integer Dim inpstr, outstr As String inpstr = "input string" ' не знаю откуда строку брать будете For i = 1 To Len(inpstr) outstr = outstr + Right(inpstr, 1) inpstr = Left(inpstr, Len(inpstr) - 1) Next i Print outstr

Ответ отправил: Павленко Александр Геннадьевич (статус: 3-ий класс) Ответ отправлен: 20.05.2008, 15:30 Оценка за ответ: 4

Вопрос № 137.802

Здравствуйте. Подскажите, пожалуйста, можно ли добавлять переменные в коллекцию Document.Variables (Word) не методом Add во время выполнения программы, а во время проектирования. И вообще, связаны ли как-нибудь эти переменные с теми, которые объявляются с помощью, например, Dim. Зарание спасибо.

Отправлен: 21.05.2008, 20:59 Вопрос задал: Dicot (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 2)

Отвечает: DrakoN Здравствуйте, Dicot! И вообще, связаны ли как-нибудь эти переменные с теми, которые объявляются с помощью, например, Dim. [b]Нет не связаны[/b] Подскажите, пожалуйста, можно ли добавлять переменные в коллекцию Document.Variables (Word) не методом Add во время выполнения программы, а во время проектирования. ================================================== http://support.microsoft.com/kb/106388 - как пример одного из решений помимо этого контрол ОЛЕ позволяет достучаться до этих переменнных до создания документа. Удачи --------- От Винта!

Ответ отправил: DrakoN (статус: Студент) Ответ отправлен: 21.05.2008, 23:12

Вопрос № 137.807

Имеется четыре A,B,C,D произвольных числа. ЭВМ должна ответить на вопрос: Правда ли что среди чисел есть кратные трем?. Ответ ЭВМ должна вывести в виде текста – слов ”Правда” или ”Неправда”.

Отправлен: 21.05.2008, 21:12 Вопрос задал: Вячеслав Сергеевич (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: HookEst Здравствуйте, Вячеслав Сергеевич! Проверить делимость можно узнав остаток от деления на 3. в Basice это можно сделать с помощью mod Успехов. Приложение: Sub t() A = 15654 B = 6768 C = 876312 D = 3543541 MsgBox IIf(A Mod 3 = 0 And B Mod 3 = 0 And C Mod 3 = 0 And D Mod 3 = 0, "Правда", "Не Правда") End Sub

Ответ отправил: HookEst (статус: Специалист) Ответ отправлен: 22.05.2008, 03:48

© 2001-2008, Портал RusFAQ.ru, Россия, Москва. Авторское право: ООО "Мастер-Эксперт Про" Техподдержка портала, тел.: +7 (926) 535-23-31 Хостинг: "Московский хостер" Поддержка: "Московский дизайнер" Авторские права | Реклама на портале ∙ Версия системы: 4.92 pre 5.0 RC2 от 09.05.2008
RusFAQ.ru | MosHoster.ru | MosDesigner.ru | RusIRC.ru Kalashnikoff.ru | RadioLeader.ru | RusFUCK.ru