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