Работа с массивами - презентация, доклад, проект скачать

Нажмите для полного просмотра!

Содержание ▲

Вы можете ознакомиться и скачать презентацию на тему Работа с массивами. Доклад-сообщение содержит 10 слайдов. Презентации для любого класса можно скачать бесплатно. Если материал и наш сайт презентаций Mypresentation Вам понравились – поделитесь им с друзьями с помощью социальных кнопок и добавьте в закладки в своем браузере.

Слайды и текст этой презентации

Слайд 1

Описание слайда:

Работа с массивами

Слайд 2

Описание слайда:

Свойства DataGridView ColumnCount - количество столбцов ColumnHeadersVisible -отображается ли строка заголовка столбца Columns -коллекция, содержащая все столбцы в элементе управления CurrentCell- возвращает активную ячейку CurrentRow -возвращает строку, содержащую текущую ячейку. DataSource -источник данных, данные которого отображает DataMember -имя списка или таблицы в источнике данных.

Слайд 3

Описание слайда:

Свойства DataGridView NewRowIndex -Получает индекс строки для новых записей. RowCount - число строк, отображаемых в элементе Rows- коллекция, содержащая все строки в элементе управления SortedColumn- столбец, по которому выполняется сортировка SortOrder. - как сортируются элементы (Ascending, Descending, None) Это свойство используется для указания, типа сортировки, появляется когда столбец, определенный свойством SortedColumn имеет значение свойства SortMode=Automatic.

Слайд 4

Описание слайда:

Заполнение DataGridView Private Sub Form3_Load(sender As Object, e As EventArgs) Handles MyBase.Load Dim i As Integer Dg1.RowCount = 5 Dg1.ColumnCount = 4 For i = 0 To 4 Dg1.Columns(i).HeaderText = Str(i + 1) Next End Sub

Слайд 5

Описание слайда:

Заполнение DataGridView Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click For i = 0 To 4 For j = 0 To 3 Dg1.Rows(i).Cells(j).Value = Str(Int(Rnd() * 10)) Next j, i End Sub

Слайд 6

Описание слайда:

Заполнение DataGridView Private Sub Button2_Click(sender As Object, e As… Dim R As New Random Dim Matrix(10, 10) As Integer Dim Dt As New DataTable For X As Integer = 0 To 9 Dt.Columns.Add("X" & X + 1) For Y As Integer = 0 To 9 If Dt.Rows.Count 10 Then Dt.Rows.Add() Matrix(Y, X) = R.Next(-100, 101) Dt(Y)(X) = Matrix(Y, X) Next Next DataGridView1.DataSource = Dt End Sub

Слайд 7

Описание слайда:

Обработка строк Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click Dim s As String s = T1.Text Dim a As Array a = Split(s) For i = 0 To UBound(a) T1.Text += vbCrLf + a(i) Next End Sub

Слайд 8

Описание слайда:

Работа со списком Private Sub ComboBox1_KeyDown(ByVal sender As Object.. If e.KeyCode = Keys.Enter Then If Not ComboBox1.Items.Contains(ComboBox1.Text) Then ComboBox1.Items.Add(ComboBox1.Text) MessageBox.Show("Новый элемент добавлен в список") ComboBox1.DroppedDown = True Else MessageBox.Show("Такой элемент уже существует") End If End If TextBox3.Text = ComboBox1.Text + vbCrLf + ComboBox2.Text + vbCrLf + ComboBox3.Text End Sub

Слайд 9

Описание слайда:

Календарь ldate.Text = Choose(k, DateTimePicker1.Value.ToLongDateString, Date TimePicker1.Value.ToShortDateString) LTime.Text = Choose(k, DateTimePicker1.Value.ToLongTimeString, DateTimePicker1.Value.ToShortTimeString) MonthCalendar1.MinDate = Today

Слайд 10

Описание слайда:

Построение графиков функций If btn_dec.Checked Then For x = fmin To fmax Step stepper y = Math.Tanh(x) graph.DrawEllipse(pen1, x * 70, y * 70, 1, 1) Next x End If If btn_pol.Checked Then For t = fmin To fmax Step stepper r = 3 * Math.Cos(t) - Math.Cos(3 * t) x = r * Math.Cos(t) y = r * Math.Sin(t) graph.DrawEllipse(pen1, x * 108, y * 108, 1, 1) Next t End If

Теги Работа массивами

Похожие презентации