'this is the beggining of the app'
Public Class Form1
ReadOnly problemaHeader As New Label()
ReadOnly categoriaHeader As New Label()
ReadOnly causaHeader As New Label()
Dim images(2) As Bitmap
Dim pos As Integer = 0
Private imagensPorOpcao As New Dictionary(Of String, Image()) From {
{"Desinstale/Instale a aplicação ou atualize para a versão mais recente", {My.Resources.registo1, My.Resources.registo2}}}
Public Sub New()
InitializeComponent()
Me.DoubleBuffered = True
End Sub
Private Sub APPLIANCE_Load(sender As Object, e As EventArgs) Handles MyBase.Load
categoriaHeader.Visible = False
Me.Controls.Add(categoriaHeader)
problemaHeader.Visible = False
Me.Controls.Add(problemaHeader)
causaHeader.Visible = False
Me.Controls.Add(causaHeader)
DESCRICAO.BackColor = Color.White
PICS.Image = images(pos)
images(0) = CA.My.Resources.registo1
images(1) = CA.My.Resources.registo2
APPLIANCE.Items.Clear()
CATEGORIA.Items.Clear()
PROBLEMA.Items.Clear()
APPLIANCE.Items.AddRange({"Máquina de Lavar Roupa", "Máquina de Secar Roupa", "Máquina de Lavar Louça", "Frio", "Placa", "Forno", "Microondas", "Exaustor", "Hoover Jazmine HF9"})
End Sub
Private Sub BTN_PREVIOUS_Click(sender As Object, e As EventArgs) Handles BTN_PREVIOUS.Click
pos = pos - 1
If pos >= 0 Then
PICS.Image = images(pos)
Else
pos = 0
End If
End Sub
Private Sub BTN_NEXT_Click(sender As Object, e As EventArgs) Handles BTN_NEXT.Click
pos = pos + 1
If pos < images.Length - 1 Then
PICS.Image = images(pos)
Else pos = images.Length
End If
End Sub
Private Sub CATEGORIA_SelectedIndexChanged(sender As Object, e As EventArgs) Handles APPLIANCE.SelectedIndexChanged
If APPLIANCE.SelectedIndex <> -1 Then
categoriaHeader.Location = New Point(CATEGORIA.Location.X, CATEGORIA.Location.Y - categoriaHeader.Height - 1)
categoriaHeader.Visible = True
categoriaHeader.Font = New Font(categoriaHeader.Font.FontFamily, 12, FontStyle.Bold)
categoriaHeader.Text = "Selecione a categoria"
categoriaHeader.AutoSize = True
categoriaHeader.BackColor = Color.FromArgb(0, 91, 170)
categoriaHeader.ForeColor = Color.White
Else
problemaHeader.Visible = False
End If
CATEGORIA.Items.Clear()
PROBLEMA.Items.Clear()
If APPLIANCE.SelectedItem = "Máquina de Lavar Roupa" Then
CATEGORIA.Items.AddRange({"Conectividade", "Display", "Erros", "Entrada e saída de água", "Fuga de água", "Programação e funcionamento", "Gaveta de detergente", "Lavagem e Tempos", "Porta", "Tambor", "Ruído"})
ElseIf APPLIANCE.SelectedItem = "Máquina de Secar Roupa" Then
CATEGORIA.Items.AddRange({"Conectividade", "Erros", "Porta", "Programação e funcionamento", "Secagem", "Tempo"})
ElseIf APPLIANCE.SelectedItem = "Máquina de Lavar Louça" Then
'it goes on until'
If APPLIANCE.SelectedItem = "" Then
CATEGORIA.Visible = False
Else
CATEGORIA.Visible = True
End If
End Sub
'the next one'
Private Sub PROBLEMA_SelectedIndexChanged(sender As Object, e As EventArgs) Handles CATEGORIA.SelectedIndexChanged, APPLIANCE.SelectedIndexChanged
If CATEGORIA.SelectedIndex <> -1 Then
problemaHeader.Location = New Point(PROBLEMA.Location.X, PROBLEMA.Location.Y - problemaHeader.Height - 1)
problemaHeader.Visible = True
problemaHeader.Font = New Font(problemaHeader.Font.FontFamily, 12, FontStyle.Bold)
problemaHeader.Text = "Selecione a anomalia"
problemaHeader.AutoSize = True
problemaHeader.BackColor = Color.FromArgb(0, 91, 170)
problemaHeader.ForeColor = Color.White
Else
problemaHeader.Visible = False
End If
PROBLEMA.Items.Clear()
If APPLIANCE.SelectedItem = "Máquina de Lavar Roupa" And CATEGORIA.SelectedItem = "Conectividade" Then
PROBLEMA.Items.AddRange({"Usuário não consegue registar o equipamento na APP", "Nº de série não aceite", "Nº de série já em uso / Usuário quer alterar email", "Wi-Fi não conecta", "Bluetooth não conecta", "Máquina de Lavar Roupa apresenta Offline"})
ElseIf APPLIANCE.SelectedItem = "Máquina de Lavar Roupa" And CATEGORIA.SelectedItem = "Display" Then
PROBLEMA.Items.AddRange({"Os botões não aceitam os comandos", "O visor não liga", "O visor altera a informação por si só", "A máquina não inicia"})
'closing the same way'
If CATEGORIA.SelectedItem = "" Then
PROBLEMA.Visible = False
Else
PROBLEMA.Visible = True
End If
End Sub
'next one'
Private Sub CAUSA_SelectedIndexChanged_1(sender As Object, e As EventArgs) Handles PROBLEMA.SelectedIndexChanged, CATEGORIA.SelectedIndexChanged, APPLIANCE.SelectedIndexChanged
CAUSA.Items.Clear()
If APPLIANCE.SelectedItem = "Máquina de Lavar Roupa" And CATEGORIA.SelectedItem = "Conectividade" And PROBLEMA.SelectedItem = "Usuário não consegue registar o equipamento na APP" Then
CAUSA.Items.AddRange({"Desinstale/Instale a aplicação ou atualize para a versão mais recente", "Limpe a cache da aplicação nas configurações do telemóvel"})
ElseIf APPLIANCE.SelectedItem = "Máquina de Lavar Roupa" And CATEGORIA.SelectedItem = "Conectividade" And PROBLEMA.SelectedItem = "Nº de série não aceite" Then
CAUSA.Items.AddRange({"Verifique se o equipamento tem funcionalidade de conectividade", "Verifique se usuário está a escolher o tipo de equipamento correto", "Verifique se o usuário está a usar a aplicação correta", "Verifique se o código QR está a ser lido corretamente"})
ElseIf APPLIANCE.SelectedItem = "Máquina de Lavar Roupa" And CATEGORIA.SelectedItem = "Conectividade" And PROBLEMA.SelectedItem = "Nº de série já em uso / Usuário quer alterar email" Then
CAUSA.Items.AddRange({"Solicite a remoção do nº de série"})
'ending as'
If PROBLEMA.SelectedItem = "" Then
CAUSA.Visible = False
Else
CAUSA.Visible = True
End If
End Sub
'next one'
Private Sub DESCRICAO_SelectedIndexChanged_1(sender As Object, e As EventArgs) Handles CAUSA.SelectedIndexChanged, PROBLEMA.SelectedIndexChanged, CATEGORIA.SelectedIndexChanged, APPLIANCE.SelectedIndexChanged
If PROBLEMA.SelectedIndex <> -1 Then
causaHeader.Location = New Point(CAUSA.Location.X, CAUSA.Location.Y - causaHeader.Height - 1)
causaHeader.Visible = True
causaHeader.Font = New Font(causaHeader.Font.FontFamily, 12, FontStyle.Bold)
causaHeader.Text = "Selecione a solução"
causaHeader.AutoSize = True
causaHeader.BackColor = Color.FromArgb(0, 91, 170)
causaHeader.ForeColor = Color.White
Else
causaHeader.Visible = False
End If
DESCRICAO.ReadOnly = True
If APPLIANCE.SelectedItem = "Máquina de Lavar Roupa" And CATEGORIA.SelectedItem = "Conectividade" And PROBLEMA.SelectedItem = "Usuário não consegue registar o equipamento na APP" And CAUSA.SelectedItem = "Desinstale/Instale a aplicação ou atualize para a versão mais recente" Then
DESCRICAO.Visible = True
DESCRICAO.Text = "Para conectar seu dispositivo móvel à aplicação, considere os seguintes aspectos:
'ending with'
Else
DESCRICAO.Visible = False
End If