Public Class Form1
Dim Sol As New SecondOrderParser()
Dim Fol As New FirstOrderParser()
Dim General As Parser
Private CurrentFile As String = ""
Private Sub btnCompose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCompose.Click
If Not String.IsNullOrEmpty(General.LoadedFileName) Then
txtSentence.Text = General.CreateSentence(nudWordsNumber.Value)
Else
MessageBox.Show("Nessun file caricato!", Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
End If
End Sub
Private Sub btnLoad_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLoad.Click
Dim Open As New OpenFileDialog
Open.Filter = "File di testo|*.txt"
If Open.ShowDialog = Windows.Forms.DialogResult.OK Then
CurrentFile = Open.FileName
If General.LoadedFileName = CurrentFile Then
MessageBox.Show("Questo testo è già stato caricato!", Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
Exit Sub
End If
General.Clear()
General.Parse(Open.FileName)
lblStatus.Text = "Parsing completato"
btnCompose.Enabled = True
End If
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
General = Sol
End Sub
Private Sub rdbFirst_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rdbFirst.CheckedChanged
If rdbFirst.Checked Then
General = Fol
Else
General = Sol
End If
If General.LoadedFileName <> CurrentFile Then
lblStatus.Text = "Dopo lo scambio di parser, caricare nuovamente il file"
btnCompose.Enabled = False
ElseIf Not String.IsNullOrEmpty(General.LoadedFileName) Then
lblStatus.Text = "Parsing già eseguito"
btnCompose.Enabled = True
End If
End Sub
End Class