Jump to content

Ошибка при написании кода в visual studio


Sedy

Recommended Posts

Подскажите,что надо исправить?01-11-2015 22-17-59.png01-11-2015 22-18-50.png

01-11-2015 23-40-37.png

 

И еще подчеркнуто "Col" тоже не пойму почему...

01-11-2015 22-23-45.png

Edited by Hidekki
Link to comment
Share on other sites

Код скринами. Ты гениален.

Вот код

 
    Private Sub Button4_Click(sender As Object, e As Object) Handles Button4.Click
        For i = 0 To RabotnikiDataGridView.ColumnCount - 1
            For j = 0 To RabotnikiDataGridView.RowCount - 1
                RabotnikiDataGridView.Item(i, j).Style.BackColor = Color.White
                RabotnikiDataGridView.Item(i, j).Style.ForeColor = Color.Black
            Next j
        Next i
        For i = 0 To RabotnikiDataGridView.ColumnCount - 1
            For j = 0 To RabotnikiDataGridView.RowCount - 1
                If InStr(RabotnikiDataGridView.Item(i, j).Value.TextBox1.Text) Then
                    RabotnikiDataGridView.Item(i, j).Style.BackColor = Color.AliceBlue
                    RabotnikiDataGridView.Item(i, j).Style.ForeColor = Color.Blue
                End If
            Next j
        Next i
    End Sub
 
Это я хотел сделать кнопку "Найти"
 
А это кнопка "Сортировать"
 
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim Col As System.Windows.Forms.DataGridViewColumn
        Select Case ListBox1.SelectedIndex
            Case 0
                Col = DataGridViewTextBoxColumn2
            Case 1
                Col = DataGridViewTextBoxColumn3
            Case 2
                Col = DataGridViewTextBoxColumn4
            Case 3
                Col = DataGridViewTextBoxColumn5
            Case 4
                Col = DataGridViewTextBoxColumn6
            Case 5
                Col = DataGridViewTextBoxColumn7
        End Select
        If RadioButton1.Checked Then
            RabotnikiDataGridView.Sort(Col, System.ComponentModel.ListSortDirection.Ascending)
        Else
            RabotnikiDataGridView.Sort(Col, System.ComponentModel.ListSortDirection.Descending)
        End If
    End Sub
 
 
P.S. Ошибки скопировать или скринов хватит?)
Link to comment
Share on other sites

c синтаксисом бейсика не знаком, но могу предположить, что ошибка в том что Text  - это не свойство, а метод, и вызывать его нужно соответственно как Теxt().

Или на форме нет нужного текстбокса

Edited by Fobb
Link to comment
Share on other sites

c синтаксисом бейсика не знаком, но могу предположить, что ошибка в том что Text  - это не свойство, а метод, и вызывать его нужно соответственно как Теxt().

Или на форме нет нужного текстбокса

Если после Text скобки,то не помогло.Текстбокс есть 

 

 

Edited by Hidekki
Link to comment
Share on other sites

Никогда не видел Бейсика, но что-то мне подсказывает, что после Value не точка, а запятая.

 

If InStr(RabotnikiDataGridView.Item(i, j).Value,TextBox1.Text) Then

Link to comment
Share on other sites

Никогда не видел Бейсика, но что-то мне подсказывает, что после Value не точка, а запятая.

 

If InStr(RabotnikiDataGridView.Item(i, j).Value,TextBox1.Text) Then

Так тоже не правильно, InStr() принимает только 1 аргумент.

 

Hidekki, попробуй перенести InStr выше Button4_Click. Если не поможет, поставь после TextBox1 скобки, возможно  это метод.
Link to comment
Share on other sites

 

Так тоже не правильно, InStr() принимает только 1 аргумент.

 

Hidekki, попробуй перенести InStr выше Button4_Click. Если не поможет, поставь после TextBox1 скобки, возможно  это метод.

 

Скобки такие надо ()? и как перенести выше?просто написать перед Button4_Click и надо только InStr ?

 

Если что,я  все коды переписываю с книги,но по скринам видно, что все получилось, то есть код написан правильно.Переписал правильно,я проверял несколько раз. И что это?И это "Общий член "Textbox" для типа "String" не найден"?

01-11-2015 23-40-37.png

Link to comment
Share on other sites

Скобки такие надо ()? и как перенести выше?просто написать перед Button4_Click и надо только InStr ?

 

Если что,я  все коды переписываю с книги,но по скринам видно, что все получилось, то есть код написан правильно.Переписал правильно,я проверял несколько раз. И что это?И это "Общий член "Textbox" для типа "String" не найден"?

 

Я тебе уже написал выше. Тебе визуалка прямым текстом говорит, что нет функции InStr, принимающей 1 аргумент.

 

 

Так тоже не правильно, InStr() принимает только 1 аргумент.

Fobb, разве?  Вот определение InStr и ссылка на Мелкомягких.

Public Shared Function InStr(_
   ByVal String1 As String, _
   ByVal String2 As String, _
   Optional ByVal Compare As CompareMethod _
) As Integer
' -or-
Public Shared Function InStr(_
   ByVal Start As Integer, _
   ByVal String1 As String, _
   ByVal String2 As String, _
   Optional ByVal Compare As Microsoft.VisualBasic.CompareMethod _
) As Integer

https://msdn.microsoft.com/ru-ru/library/8460tsh1%28v=vs.90%29.aspx

Link to comment
Share on other sites

Я даже не поленился визуалку запустить.

 

Первый скрин - с точкой. Второй - с запятой. Функция ищет подстроку в строке, какой, блин, один аргумент тут вообще быть может? Автор, я тебе уже дал решение проблемы, дерзай.

post-10323-0-51681800-1446510300_thumb.png

post-10323-0-50519200-1446510304_thumb.png

Link to comment
Share on other sites

Ты прав. Меня ввело в заблуждение то, что на этом скрине http://forum.warspear-online.com/uploads/monthly_11_2015/post-3095-0-50267300-1446409235.png InStr определена с 1 аргументом, что кстати непонятно зачем нужно.

 

Hidekki, а ты бросай эти извращения с бейсиком и переходи на c#. На vb.net сейчас пишут только олдфаги в штатах не осилившие других языков.

Edited by Fobb
Link to comment
Share on other sites

Ты прав. Меня ввело в заблуждение то, что на этом скрине http://forum.warspear-online.com/uploads/monthly_11_2015/post-3095-0-50267300-1446409235.png InStr определена с 1 аргументом, что кстати непонятно зачем нужно.

 

Hidekki, а ты бросай эти извращения с бейсиком и переходи на c#. На vb.net сейчас пишут только олдфаги в штатах не осилившие других языков.

 

Ну я его отчасти понимаю, скорее всего, он этим в универе страдает, нас тоже когда-то заставляли на Паскале кодить, лол.

Link to comment
Share on other sites

Ты прав. Меня ввело в заблуждение то, что на этом скрине http://forum.warspear-online.com/uploads/monthly_11_2015/post-3095-0-50267300-1446409235.png InStr определена с 1 аргументом, что кстати непонятно зачем нужно.

 

Hidekki, а ты бросай эти извращения с бейсиком и переходи на c#. На vb.net сейчас пишут только олдфаги в штатах не осилившие других язык

Та  у меня курсач просто. 

Link to comment
Share on other sites

Я даже не поленился визуалку запустить.

 

Первый скрин - с точкой. Второй - с запятой. Функция ищет подстроку в строке, какой, блин, один аргумент тут вообще быть может? Автор, я тебе уже дал решение проблемы, дерзай.

Спасибо) попробую,когда дома буду.

Link to comment
Share on other sites

Не помогло.Может я не там кавычки ставлю и запятую?

03-11-2015 16-20-46.png03-11-2015 16-23-58.png

Edited by Hidekki
Link to comment
Share on other sites

Не помогло.Может я не там кавычки ставлю и запятую?

attachicon.gif03-11-2015 16-20-46.pngattachicon.gif03-11-2015 16-23-58.png

 

Я же выше отметил, где запятую ставить.

Link to comment
Share on other sites

Лол, у нас в универе сразу с плюсов начали. Мне-то легко, через неделю все лабы сдал, теперь болты пинаю, а однокурсники пыжатся, тяжко им. Хотя я и не вижу чем C++ сложнее, чем тот же VB.NET для решения фигни всякой, типо наших лаб. :)

Link to comment
Share on other sites

Я же выше отметил, где запятую ставить.

Я создал новую форму и твое все переписал и все равно ошибка

03-11-2015 17-04-34.png

Link to comment
Share on other sites

Я создал новую форму и твое все переписал и все равно ошибка

 

Так я же тебе только для примера написал. Ты учись разбираться в функциях. Твоя InStr, насколько я могу судить, возвращает первое вхождение подстроки в строку. Это число. Тип Integer. Ты хочешь проверить условие с помощью if'а. Туда нужно пихать логическую переменную, а не целочисленную. Тип Boolean,. Повторю, я не знаю бейсика, поэтому я тебе хорошего решения здесь не подскажу, но ты можешь сделать как-то так: IF (InStr(твои аргументы, лень переписывать) != 0) Then,,,

Link to comment
Share on other sites

если(непонятно)

{

чешем(репу);

читаем снова;

}

 

:D

 

Поправлю, "снова читаем", а не "читаем снова" ^^

Link to comment
Share on other sites

Напишу здесь чтобы не создавать кучу тем

Помогите решить задачу,пожалуйста.Если с амбера могу подарить что нибудь :blush:

Надо нарисовать алгоритм и написать код

Вот задача:
Разработать программу в мнемокодах ассемблера при регистровой адресации операндов согласно следующим данным:
Операнд 1 - в регистре B;
Операнд 2 - в регистре C;
Операнд 3 - в регистре D;
Найти сумму нечетных операндов, ее записать в регистр E.
 
 
p.s. Программа для Intel 8080,8085
Edited by Hidekki
Link to comment
Share on other sites

 

Напишу здесь чтобы не создавать кучу тем

Помогите решить задачу,пожалуйста.Если с амбера могу подарить что нибудь :blush:

Надо нарисовать алгоритм и написать код

Вот задача:
Разработать программу в мнемокодах ассемблера при регистровой адресации операндов согласно следующим данным:
Операнд 1 - в регистре B;
Операнд 2 - в регистре C;
Операнд 3 - в регистре D;
Найти сумму нечетных операндов, ее записать в регистр E.
 
 
p.s. Программа для Intel 8080,8085

 

 

 

Ассемблер? Могу только удачи пожелать, никогда его особо не любил.

Link to comment
Share on other sites

Ассемблер? Могу только удачи пожелать, никогда его особо не любил.

Спасибо,мне такое же,примерно,сказали несколько преподов и 4 курс ;D

Link to comment
Share on other sites

 

Напишу здесь чтобы не создавать кучу тем

Помогите решить задачу,пожалуйста.Если с амбера могу подарить что нибудь :blush:

Надо нарисовать алгоритм и написать код

Вот задача:
Разработать программу в мнемокодах ассемблера при регистровой адресации операндов согласно следующим данным:
Операнд 1 - в регистре B;
Операнд 2 - в регистре C;
Операнд 3 - в регистре D;
Найти сумму нечетных операндов, ее записать в регистр E.
 
 
p.s. Программа для Intel 8080,8085

 

Помогите кто нибудь,пожалуйста

Link to comment
Share on other sites

Помогите кто нибудь,пожалуйста

 

Я думаю, в таком вопросе помощи лучше просить на тематических форумах, а не на форуме онлайн игры, основной контингент которой - школьники :)

Link to comment
Share on other sites

  • 2 weeks later...

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • Create New...