Sedy 12 Posted November 1, 2015 Posted November 1, 2015 (edited) Подскажите,что надо исправить? И еще подчеркнуто "Col" тоже не пойму почему... Edited November 1, 2015 by Hidekki Quote
Sedy 12 Posted November 2, 2015 Author Posted November 2, 2015 Код скринами. Ты гениален. Сегодня днем скину нормально Quote
Sedy 12 Posted November 2, 2015 Author Posted November 2, 2015 Код скринами. Ты гениален. Вот код 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. Ошибки скопировать или скринов хватит?) Quote
Fobb 3 Posted November 2, 2015 Posted November 2, 2015 (edited) c синтаксисом бейсика не знаком, но могу предположить, что ошибка в том что Text - это не свойство, а метод, и вызывать его нужно соответственно как Теxt(). Или на форме нет нужного текстбокса Edited November 2, 2015 by Fobb Quote
Sedy 12 Posted November 2, 2015 Author Posted November 2, 2015 (edited) c синтаксисом бейсика не знаком, но могу предположить, что ошибка в том что Text - это не свойство, а метод, и вызывать его нужно соответственно как Теxt(). Или на форме нет нужного текстбокса Если после Text скобки,то не помогло.Текстбокс есть Edited November 2, 2015 by Hidekki Quote
Geralt of Rivia 70 Posted November 2, 2015 Posted November 2, 2015 Никогда не видел Бейсика, но что-то мне подсказывает, что после Value не точка, а запятая. If InStr(RabotnikiDataGridView.Item(i, j).Value,TextBox1.Text) Then Quote
Fobb 3 Posted November 2, 2015 Posted November 2, 2015 Никогда не видел Бейсика, но что-то мне подсказывает, что после Value не точка, а запятая. If InStr(RabotnikiDataGridView.Item(i, j).Value,TextBox1.Text) Then Так тоже не правильно, InStr() принимает только 1 аргумент. Hidekki, попробуй перенести InStr выше Button4_Click. Если не поможет, поставь после TextBox1 скобки, возможно это метод. Quote
Sedy 12 Posted November 2, 2015 Author Posted November 2, 2015 Так тоже не правильно, InStr() принимает только 1 аргумент. Hidekki, попробуй перенести InStr выше Button4_Click. Если не поможет, поставь после TextBox1 скобки, возможно это метод. Скобки такие надо ()? и как перенести выше?просто написать перед Button4_Click и надо только InStr ? Если что,я все коды переписываю с книги,но по скринам видно, что все получилось, то есть код написан правильно.Переписал правильно,я проверял несколько раз. И что это?И это "Общий член "Textbox" для типа "String" не найден"? Quote
Geralt of Rivia 70 Posted November 3, 2015 Posted November 3, 2015 Скобки такие надо ()? и как перенести выше?просто написать перед 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 Quote
Geralt of Rivia 70 Posted November 3, 2015 Posted November 3, 2015 Я даже не поленился визуалку запустить. Первый скрин - с точкой. Второй - с запятой. Функция ищет подстроку в строке, какой, блин, один аргумент тут вообще быть может? Автор, я тебе уже дал решение проблемы, дерзай. Warrlor 1 Quote
Fobb 3 Posted November 3, 2015 Posted November 3, 2015 (edited) Ты прав. Меня ввело в заблуждение то, что на этом скрине 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 Quote
Geralt of Rivia 70 Posted November 3, 2015 Posted November 3, 2015 Ты прав. Меня ввело в заблуждение то, что на этом скрине http://forum.warspear-online.com/uploads/monthly_11_2015/post-3095-0-50267300-1446409235.png InStr определена с 1 аргументом, что кстати непонятно зачем нужно. Hidekki, а ты бросай эти извращения с бейсиком и переходи на c#. На vb.net сейчас пишут только олдфаги в штатах не осилившие других языков. Ну я его отчасти понимаю, скорее всего, он этим в универе страдает, нас тоже когда-то заставляли на Паскале кодить, лол. Quote
Sedy 12 Posted November 3, 2015 Author Posted November 3, 2015 Ты прав. Меня ввело в заблуждение то, что на этом скрине http://forum.warspear-online.com/uploads/monthly_11_2015/post-3095-0-50267300-1446409235.png InStr определена с 1 аргументом, что кстати непонятно зачем нужно. Hidekki, а ты бросай эти извращения с бейсиком и переходи на c#. На vb.net сейчас пишут только олдфаги в штатах не осилившие других язык Та у меня курсач просто. Djpalxd 1 Quote
Sedy 12 Posted November 3, 2015 Author Posted November 3, 2015 Я даже не поленился визуалку запустить. Первый скрин - с точкой. Второй - с запятой. Функция ищет подстроку в строке, какой, блин, один аргумент тут вообще быть может? Автор, я тебе уже дал решение проблемы, дерзай. Спасибо) попробую,когда дома буду. Quote
Sedy 12 Posted November 3, 2015 Author Posted November 3, 2015 (edited) Не помогло.Может я не там кавычки ставлю и запятую? Edited November 3, 2015 by Hidekki Quote
Geralt of Rivia 70 Posted November 3, 2015 Posted November 3, 2015 Не помогло.Может я не там кавычки ставлю и запятую? 03-11-2015 16-20-46.png03-11-2015 16-23-58.png Я же выше отметил, где запятую ставить. Quote
Betasmile 37 Posted November 3, 2015 Posted November 3, 2015 Лол, у нас в универе сразу с плюсов начали. Мне-то легко, через неделю все лабы сдал, теперь болты пинаю, а однокурсники пыжатся, тяжко им. Хотя я и не вижу чем C++ сложнее, чем тот же VB.NET для решения фигни всякой, типо наших лаб. Quote
Sedy 12 Posted November 3, 2015 Author Posted November 3, 2015 Я же выше отметил, где запятую ставить. Я создал новую форму и твое все переписал и все равно ошибка Quote
Geralt of Rivia 70 Posted November 3, 2015 Posted November 3, 2015 Я создал новую форму и твое все переписал и все равно ошибка Так я же тебе только для примера написал. Ты учись разбираться в функциях. Твоя InStr, насколько я могу судить, возвращает первое вхождение подстроки в строку. Это число. Тип Integer. Ты хочешь проверить условие с помощью if'а. Туда нужно пихать логическую переменную, а не целочисленную. Тип Boolean,. Повторю, я не знаю бейсика, поэтому я тебе хорошего решения здесь не подскажу, но ты можешь сделать как-то так: IF (InStr(твои аргументы, лень переписывать) != 0) Then,,, Quote
64-core CPU 814 Posted November 5, 2015 Posted November 5, 2015 если(непонятно) { чешем(репу); читаем снова; } Quote
Geralt of Rivia 70 Posted November 5, 2015 Posted November 5, 2015 если(непонятно) { чешем(репу); читаем снова; } Поправлю, "снова читаем", а не "читаем снова" ^^ Quote
Sedy 12 Posted November 5, 2015 Author Posted November 5, 2015 (edited) Напишу здесь чтобы не создавать кучу тем Помогите решить задачу,пожалуйста.Если с амбера могу подарить что нибудь Надо нарисовать алгоритм и написать код Вот задача: Разработать программу в мнемокодах ассемблера при регистровой адресации операндов согласно следующим данным: Операнд 1 - в регистре B; Операнд 2 - в регистре C; Операнд 3 - в регистре D; Найти сумму нечетных операндов, ее записать в регистр E. p.s. Программа для Intel 8080,8085 Edited November 5, 2015 by Hidekki Quote
Geralt of Rivia 70 Posted November 6, 2015 Posted November 6, 2015 Напишу здесь чтобы не создавать кучу тем Помогите решить задачу,пожалуйста.Если с амбера могу подарить что нибудь Надо нарисовать алгоритм и написать код Вот задача: Разработать программу в мнемокодах ассемблера при регистровой адресации операндов согласно следующим данным: Операнд 1 - в регистре B; Операнд 2 - в регистре C; Операнд 3 - в регистре D; Найти сумму нечетных операндов, ее записать в регистр E. p.s. Программа для Intel 8080,8085 Ассемблер? Могу только удачи пожелать, никогда его особо не любил. Quote
Sedy 12 Posted November 6, 2015 Author Posted November 6, 2015 Ассемблер? Могу только удачи пожелать, никогда его особо не любил. Спасибо,мне такое же,примерно,сказали несколько преподов и 4 курс Quote
Sedy 12 Posted November 7, 2015 Author Posted November 7, 2015 Напишу здесь чтобы не создавать кучу тем Помогите решить задачу,пожалуйста.Если с амбера могу подарить что нибудь Надо нарисовать алгоритм и написать код Вот задача: Разработать программу в мнемокодах ассемблера при регистровой адресации операндов согласно следующим данным: Операнд 1 - в регистре B; Операнд 2 - в регистре C; Операнд 3 - в регистре D; Найти сумму нечетных операндов, ее записать в регистр E. p.s. Программа для Intel 8080,8085 Помогите кто нибудь,пожалуйста Quote
Geralt of Rivia 70 Posted November 9, 2015 Posted November 9, 2015 Помогите кто нибудь,пожалуйста Я думаю, в таком вопросе помощи лучше просить на тематических форумах, а не на форуме онлайн игры, основной контингент которой - школьники Quote
Betasmile 37 Posted November 21, 2015 Posted November 21, 2015 На 1с 8 кто-нибудь пишет? Вот ты и спалился. Quote
Recommended Posts
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.