Сервис онлайн-записи на собственном Telegram-боте

Тот, кто работает в сфере услуг, знает — без ведения записи клиентов никуда. Мало того, что нужно видеть свое расписание, но и напоминать клиентам о визитах тоже. Нашли самый бюджетный и оптимальный вариант: сервис VisitTime.
Для новых пользователей первый месяц бесплатно.

Чат-бот для мастеров и специалистов, который упрощает ведение записей:

— Сам записывает клиентов и напоминает им о визите;
— Персонализирует скидки, чаевые, кэшбэк и предоплаты;
— Увеличивает доходимость и помогает больше зарабатывать;

Начать пользоваться сервисом

Как продвинуть сайт на первые места?

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

Ускорение продвижения

Если вам трудно попасть на первые места в поиске самостоятельно, попробуйте технологию Буст, она ускоряет продвижение в десятки раз, а первые результаты появляются уже в течение первых 7 дней. Если ни один запрос у вас не продвинется в Топ10 за месяц, то в SeoHammer за бустер вернут деньги.

Начать продвижение сайта

Исходный код

ФЕДЕРАЛЬНОЕ АГЕНТСТВО СВЯЗИ

Федеральное государственное бюджетное образовательное учреждение

высшего профессионального образования

Московский Технический Университет Связи и Информатики

Исходный код

Option Strict On

Option Explicit On

Imports System.IO

Public Class Form1

Dim l As Integer

Public all(4), out(), bib() As String

'Процедура построчного чтения сведений о студентах из тек. файла, для подсчета числа студентов

Sub readfile(ByVal filename As String, ByRef out() As String)

'создание потока для чтения из текстового файла

Dim f = New StreamReader(filename)

Dim a As Integer

a = 0 'количество строк в файле

Try

Do While Not (f.EndOfStream) 'пока не достигнут конец потока

ReDim Preserve out(a + 1)

out(a + 1) = f.ReadLine().Trim 'чтение строки из файла в line

a = a + 1

Loop

f.Close() 'закрытие потока

Catch ex As Exception

MsgBox(" Невозможно прочитать данные из файла")

End Try

End Sub

Sub sort(ByVal income() As String, ByRef out() As String)

Dim b As Integer

Dim a(), c As String

ReDim out(0)

For b = 1 To income.GetUpperBound(0) Step 1

If income(b).Length > 1 Then

a = income(b).Trim.Split(CChar("; "))

If a(0).Length > 0 Then

ReDim Preserve out(out.Length)

out(out.Length - 2) = a(0)

End If

End If

Next

c = " "

For b = 0 To bib.GetUpperBound(0) - 1 Step 1

If bib(b).Length> 0 and c.IndexOf(bib(b))< 0 Then c=c+bib(b) +" ###"

Next

a = c.Split(CChar(" ###".Trim))

For b = 0 To a.GetUpperBound(0) - 1 Step 1

If a(b).Length > 0 Then

ListBox1.Items.Add(a(b))

Form2.ComboBox1.Items.Add(a(b))

End If

Next

End Sub

Private Sub Heands_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Heands.Click

Form2.Show()

End Sub

Private Sub OpenFile_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpenFile.Click

OpenFileDialog.ShowDialog()

End Sub

Private Sub OpenFileDialog_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog.FileOk

readfile(OpenFileDialog.FileName, out)

sort(out, bib)

End Sub

Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged

Dim y(), z(0), output As String

Dim a, b As Integer

ListBox2.Items.Clear()

For a = 1 To out.GetUpperBound(0) - 1 Step 1

If out(a).Length > 1 Then

y = out(a).Trim.Split(CChar("; "))

If y(0) = ListBox1.SelectedItem.ToString Then

output = y(2) + " (" + y(1) + ")"

b = (70 - output.Length)

output = output + Space(b)

output = output + " - " + y(3)

ListBox2.Items.Add(output)

End If

End If

Next

End Sub

End Class

Public Class Form2

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

ReDim Preserve Form1.out(Form1.out.GetUpperBound(0) + 1)

Form1.out.SetValue(ComboBox1.SelectedItem.ToString + "; " + TextBox1.Text + "; " + TextBox2.Text + "; " + TextBox3.Text, Form1.out.GetUpperBound(0)-1)

Me.Close()

End Sub

End Class