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

[Sedy 12]

Подскажите,что надо исправить?

 

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

Edited November 1, 2015 by Hidekki

[Betasmile 37]

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

[Sedy 12]

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

Сегодня днем скину нормально

[Sedy 12]

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

Вот код

 

    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. Ошибки скопировать или скринов хватит?)

[Fobb 3]

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

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

Edited November 2, 2015 by Fobb

[Sedy 12]

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

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

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

 

 

Edited November 2, 2015 by Hidekki

[Geralt of Rivia 70]

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

 

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

[Fobb 3]

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

 

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

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

 

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

[Sedy 12]

 

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

 

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

 

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

 

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

[Geralt of Rivia 70]

Скобки такие надо ()? и как перенести выше?просто написать перед 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

[Geralt of Rivia 70]

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

 

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

[Fobb 3]

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

 

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

Edited November 3, 2015 by Fobb

[Geralt of Rivia 70]

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

 

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

 

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

[Sedy 12]

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

 

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

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

[Sedy 12]

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

 

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

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

[Sedy 12]

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

Edited November 3, 2015 by Hidekki

[Geralt of Rivia 70]

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

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

 

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

[Betasmile 37]

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

[Sedy 12]

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

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

[Geralt of Rivia 70]

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

 

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

[64-core CPU 814]

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

{

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

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

}

 

[Geralt of Rivia 70]

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

{

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

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

}

 

 

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

[Sedy 12]

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

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

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

Вот задача:

Разработать программу в мнемокодах ассемблера при регистровой адресации операндов согласно следующим данным:

Операнд 1 - в регистре B;

Операнд 2 - в регистре C;

Операнд 3 - в регистре D;

Найти сумму нечетных операндов, ее записать в регистр E.

 

 

p.s. Программа для Intel 8080,8085

Edited November 5, 2015 by Hidekki

[Geralt of Rivia 70]

 

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

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

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

Вот задача:

Разработать программу в мнемокодах ассемблера при регистровой адресации операндов согласно следующим данным:

Операнд 1 - в регистре B;

Операнд 2 - в регистре C;

Операнд 3 - в регистре D;

Найти сумму нечетных операндов, ее записать в регистр E.

 

 

p.s. Программа для Intel 8080,8085

 

 

 

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

[Sedy 12]

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

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

[Sedy 12]

 

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

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

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

Вот задача:

Разработать программу в мнемокодах ассемблера при регистровой адресации операндов согласно следующим данным:

Операнд 1 - в регистре B;

Операнд 2 - в регистре C;

Операнд 3 - в регистре D;

Найти сумму нечетных операндов, ее записать в регистр E.

 

 

p.s. Программа для Intel 8080,8085

 

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

[Geralt of Rivia 70]

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

 

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

[Cnix 21]

На 1с 8 кто-нибудь пишет?

[Betasmile 37]

На 1с 8 кто-нибудь пишет?

Вот ты и спалился.