помогите пожалуйста

[Ilzat]

немного понимаю в бейсике, но только элементарные задания.
Не много объясните в этих задачах пожалуйста, как только немного разберусь, удалю пост:

1) Задана строка символов. Определить сумму ASCII кодов символов, находящемся перед восклицательным знаком
2) Задана строка символов, состоящая из отдельных слов, разделённых пробелами преобразовать её, удалив из неё первое слово, начиная с заданых букв
3) Определить число, полученное вычисленим в обратном пордке цифр натурального числа N (N<=999)

[Williams]

Похоже на задание в универе

[Хакер]

Домашку здесь не делают.

Домашку делают здесь (если цена устроит), а здесь помогают решить проблемы.

Так вот, либо ты излагаешь свою проблему (что было сделано, на чём споткнулся, что было предпринято чтобы преодолеть проблему) здесь, либо тема закрывается, и ты идёшь в раздел Работа (или не идёшь).

[Ilzat]

Напишите пожалуйста как записать программу чтобы каждый символ выдавал свой числовой код?

[Хакер]

1) Ilzat ты кажется не понял.
"Напишите код" -- это не в этом разделе.
А "Напишите как написать код" -- хм... как... ручками по клавиатуре.

2) Символы -- не разумные существа, чтобы выдавать свой числовой код.

[Ilzat]

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

[Хакер]

Условие чего чего? Задачи? Ты их уже записал. Или чего-то друго?

[Ilzat]

Задачи, я не могу догнать как записать число, полученное вычисленим в обратном пордке цифр натурального числа N

[Хакер]

А, ты насчёт пункта 3.

Я тоже не знаю, что такое "вычисление в обратном порядке цифр" числа". И чем "вычисление цифр" (интересно, что это?) в обратном порядке отличается от вычисления цифр в прямом.

Есть предположение, что требуется из числа 123 получить число 321.

[SLIM]

Хакер
Че ты паришься. Какой код. Пусть он хотя бы алгоритм попробует составить на каждый пункт. Если он немного знаком с программированием то это уже буде лучше чем "напишите мне код"

[Ilzat]

SLIM
я смогу записать его, я не могу понять задание математически, просто вдруг кто сталкивался с этим

[Ilzat]

на сколько я знаю у каждого символа есть свой числовой код, вот как его в бейсике получить??

[Хакер]

Ilzat
1) Используй кнопку
2) Функция Asc() возвращает ASCII-код символа, являющегося первым символом строки, переданной в качестве аргумента.

[Antonariy]

на сколько я знаю у каждого символа есть свой числовой код, вот как его в бейсике получить??

Asc.

[SLIM]

Читай, там есть

[pavsav]

Здраствуйте!
не стал создавать еще одну тему что б попросить помощи...

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

подскажите пожалуйста как лучше это сделать !

[ALX_2002]

2 Ilzat:

. Не поленился. Сварганил эту фигню.

Всё кроме третьего задания оформил. Открывай новый проект, копируй в него, запускай и наслаждайся )))

Код: Выделить всё


Dim TextBuffer As String
Dim TextLine As String
Dim WaitForInput As Boolean

'/// Тело программы
Private Sub Form_Activate()
    PrintLine "Задание 1."
    PrintLine "Задана строка символов. Определить сумму ASCII кодов символов, находящемся перед "
    PrintLine "восклицательным знаком."
    PrintLine ""
retry1:
    PrintText "Введите исходну строку:"
   
    Text = InputText
   
    If InStr(1, Text, "!") = 0 Then
        PrintLine "Введена строка без восклицательного знака."
        GoTo retry1
    End If
       
    Dim Summ As Long
    Dim CharIndex As Long
    Dim Char As String * 1
   
    For CharIndex = 1 To Len(Text)
        Char = Mid(Text, CharIndex, 1)
        If Char = "!" Then Exit For
        Summ = Summ + Asc(Char)
    Next
   
    PrintLine ""
    PrintLine "Cумма ASCII кодов символов:" & Summ
    PrintLine ""
    PrintLine "Нажмите Enter."
    InputText
   
    Clear
   
    PrintLine "Задание 2"
    PrintLine "Задана строка символов, состоящая из отдельных слов, разделённых пробелами преобразовать её, удалив из неё первое слово"
    PrintLine ""
retry2:
    PrintText "Введите исходну строку:"
   
   
    Text = InputText
   
    If InStr(1, Text, " ") = 0 Then
        PrintLine "Введённая строка не содержит пробелов."
        GoTo retry2
    End If
   
    Words = Split(Text, " ")
   
    PrintText "Введите слово которое нужно удалить:"
    Chars = InputText
   
    For ElementIndex = 0 To UBound(Words)
        If Left(Words(ElementIndex), Len(Chars)) = Chars Then Words(ElementIndex) = "": Exit For
    Next

    PrintLine "Результирующая строка:" & Join(Words, " ")
    PrintLine ""
    PrintLine "Нажмите Enter."
    InputText
   
    Clear

retry3:
    PrintLine "Задание 3 не знаю как делать."
    PrintLine ""
    PrintLine "Конец программы."

End Sub

'/// Функции обработки ввода и вывода текста
Function InputText()
    WaitForInput = True
    Do
        DoEvents
    Loop Until WaitForInput = False
    InputText = TextLine
    TextLine = ""
End Function

Private Sub Form_KeyPress(KeyAscii As Integer)
    If WaitForInput = False Then Exit Sub
    Select Case KeyAscii
    Case vbKeyBack
        If TextLine <> "" Then TextLine = Left(TextLine, Len(TextLine) - 1)
    Case vbKeyReturn
        TextBuffer = TextBuffer & TextLine & vbCrLf
        WaitForInput = False
    Case vbKeyEscape
        TextBuffer = TextBuffer & vbCrLf
        WaitForInput = False
    Case Else
        TextLine = TextLine & Chr(KeyAscii)
    End Select
    DrawText TextBuffer & TextLine
End Sub

Sub Clear()
    TextBuffer = ""
    DrawText ""
End Sub

Sub PrintLine(Text)
    TextBuffer = TextBuffer & Text & vbCrLf
    DrawText TextBuffer
End Sub

Sub PrintText(Text)
    TextBuffer = TextBuffer & Text
    DrawText TextBuffer
End Sub

Sub DrawText(Text)
    Me.Cls
    Print Text
End Sub

Private Sub Form_Load()
    Me.WindowState = 2
    Me.AutoRedraw = True
    Me.Font.Name = "Verdana"
End Sub


[uk8amk]

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

Если я правильно понял то речь идет о объекте FlexGrid. В таком случае надо смотреть в сторону Row, Col, RowSel и ColSel.
Удачи.

[pavsav]

немного не так , речь идет о DataGridView...
но тем не менее спасибо что откликнулись