VB.net - Генератор случайных фраз (kli4ko)
код программы
Imports System.IO 'подключаем библиотеку Ввода-Вывода
Public Class Form1
Dim r As New Random 'переменная как новое случайное число
Dim N As Integer 'колво строк
Dim to4ka As String 'выбираем знаки препинания
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
'загоняем файлы с различными частями речи в массивы
Dim syw() = IO.File.ReadAllLines("syw.txt", System.Text.Encoding.Default)
Dim glag() = IO.File.ReadAllLines("glag.txt", System.Text.Encoding.Default)
Dim nar() = IO.File.ReadAllLines("nar.txt", System.Text.Encoding.Default)
Dim pril() = IO.File.ReadAllLines("pril.txt", System.Text.Encoding.Default)
'определяем длинну массива
Dim sywS As Integer = syw.Length
Dim glagS As Integer = glag.Length
Dim narS As Integer = nar.Length
Dim prilS As Integer = pril.Length
'слова(элементы) из массива
Dim sywR As String, glagR As String, narR As String, prilR As String
'колво строк
N = NumericUpDown1.Value
'очищаем от предыдущих результатов
TextBox1.Text = ""
'от 1 до N колва строк
For i = 1 To N
Randomize()
'если отключен перенос строк, тогда
'выбираем знаки препинания
If N Mod 2 = 0 Then ' N Mod 2 = 0 - если N четное число
If i Mod 2 <> 0 Then
to4ka = ", "
Else
to4ka = ". "
End If
Else
If i Mod 2 <> 0 Then
to4ka = ". "
Else
to4ka = ", "
End If
End If
'определяем слово как случайный элемент массива
sywR = syw(r.Next(1, (sywS - 1)))
glagR = glag(r.Next(1, (glagS - 1)))
narR = nar(r.Next(1, (narS - 1)))
prilR = pril(r.Next(1, (prilS - 1)))
'выводим строку в текстовое поле. vbCrLf - перенос строки
If CheckBox1.Checked Then
TextBox1.Text += prilR + " " + sywR + " " + glagR + " " + narR + vbCrLf
Else
TextBox1.Text += prilR + " " + sywR + " " + glagR + " " + narR + to4ka
End If
Next
End Sub
End Class
Видео по теме
| 
