VBNet_Archive/projetoLoja05
1
0
Fork 0
generated from VBNet_Archive/ProjetoTrabalho
Code Issues Pull Requests Projects Releases Wiki Activity

first commit

Browse Source
This commit is contained in:
rasz 2021-11-19 22:43:13 -03:00
commit 0e7bfd27d0
30 changed files with 3640 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
README.md Normal file
View File

@ -0,0 +1,4 @@
# Oldest VB.Net project
# Authors F. Raszeja
for archival purposes only

25
projetoLoja05.sln Executable file
View File

@ -0,0 +1,25 @@

Microsoft Visual Studio Solution File, Format Version 12.00
# Visual Studio 15
VisualStudioVersion = 15.0.27130.2010
MinimumVisualStudioVersion = 10.0.40219.1
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "projetoLoja05", "projetoLoja05\projetoLoja05.vbproj", "{33CF386E-4F39-431D-B742-A2DFBF420FEF}"
EndProject
Global
GlobalSection(SolutionConfigurationPlatforms) = preSolution
Debug|Any CPU = Debug|Any CPU
Release|Any CPU = Release|Any CPU
EndGlobalSection
GlobalSection(ProjectConfigurationPlatforms) = postSolution
{33CF386E-4F39-431D-B742-A2DFBF420FEF}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
{33CF386E-4F39-431D-B742-A2DFBF420FEF}.Debug|Any CPU.Build.0 = Debug|Any CPU
{33CF386E-4F39-431D-B742-A2DFBF420FEF}.Release|Any CPU.ActiveCfg = Release|Any CPU
{33CF386E-4F39-431D-B742-A2DFBF420FEF}.Release|Any CPU.Build.0 = Release|Any CPU
EndGlobalSection
GlobalSection(SolutionProperties) = preSolution
HideSolutionNode = FALSE
EndGlobalSection
GlobalSection(ExtensibilityGlobals) = postSolution
SolutionGuid = {DE26A597-8912-49E2-A62D-24BDF4C1BF37}
EndGlobalSection
EndGlobal

6
projetoLoja05/App.config Executable file
View File

@ -0,0 +1,6 @@
<?xml version="1.0" encoding="utf-8" ?>
<configuration>
<startup>
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.6.1" />
</startup>
</configuration>

174
projetoLoja05/FPrincipal.Designer.vb generated Executable file
View File

@ -0,0 +1,174 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class FPrincipal
Inherits System.Windows.Forms.Form
'Descartar substituições de formulário para limpar a lista de componentes.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Exigido pelo Windows Form Designer
Private components As System.ComponentModel.IContainer
'OBSERVAÇÃO: o procedimento a seguir é exigido pelo Windows Form Designer
'Pode ser modificado usando o Windows Form Designer.
'Não o modifique usando o editor de códigos.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(FPrincipal))
Me.MenuStrip1 = New System.Windows.Forms.MenuStrip()
Me.ProdutosToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.VendaToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.SairToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.Button1 = New System.Windows.Forms.Button()
Me.Button2 = New System.Windows.Forms.Button()
Me.Button3 = New System.Windows.Forms.Button()
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
Me.Label9 = New System.Windows.Forms.Label()
Me.MenuStrip1.SuspendLayout()
Me.Panel1.SuspendLayout()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'MenuStrip1
'
Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ProdutosToolStripMenuItem, Me.VendaToolStripMenuItem, Me.SairToolStripMenuItem})
Me.MenuStrip1.Location = New System.Drawing.Point(0, 0)
Me.MenuStrip1.Name = "MenuStrip1"
Me.MenuStrip1.Size = New System.Drawing.Size(674, 24)
Me.MenuStrip1.TabIndex = 0
Me.MenuStrip1.Text = "MenuStrip1"
'
'ProdutosToolStripMenuItem
'
Me.ProdutosToolStripMenuItem.Image = CType(resources.GetObject("ProdutosToolStripMenuItem.Image"), System.Drawing.Image)
Me.ProdutosToolStripMenuItem.Name = "ProdutosToolStripMenuItem"
Me.ProdutosToolStripMenuItem.Size = New System.Drawing.Size(83, 20)
Me.ProdutosToolStripMenuItem.Text = "Produtos"
'
'VendaToolStripMenuItem
'
Me.VendaToolStripMenuItem.Image = CType(resources.GetObject("VendaToolStripMenuItem.Image"), System.Drawing.Image)
Me.VendaToolStripMenuItem.Name = "VendaToolStripMenuItem"
Me.VendaToolStripMenuItem.Size = New System.Drawing.Size(67, 20)
Me.VendaToolStripMenuItem.Text = "Venda"
'
'SairToolStripMenuItem
'
Me.SairToolStripMenuItem.Image = CType(resources.GetObject("SairToolStripMenuItem.Image"), System.Drawing.Image)
Me.SairToolStripMenuItem.Name = "SairToolStripMenuItem"
Me.SairToolStripMenuItem.Size = New System.Drawing.Size(54, 20)
Me.SairToolStripMenuItem.Text = "Sair"
'
'Panel1
'
Me.Panel1.BackColor = System.Drawing.SystemColors.ControlLight
Me.Panel1.Controls.Add(Me.Button2)
Me.Panel1.Controls.Add(Me.Button1)
Me.Panel1.Controls.Add(Me.Button3)
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Left
Me.Panel1.Location = New System.Drawing.Point(0, 24)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(175, 332)
Me.Panel1.TabIndex = 1
'
'Button1
'
Me.Button1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None
Me.Button1.Image = CType(resources.GetObject("Button1.Image"), System.Drawing.Image)
Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button1.Location = New System.Drawing.Point(12, 15)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(151, 66)
Me.Button1.TabIndex = 0
Me.Button1.Text = "PRODUTOS"
Me.Button1.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button1.UseVisualStyleBackColor = True
'
'Button2
'
Me.Button2.Image = CType(resources.GetObject("Button2.Image"), System.Drawing.Image)
Me.Button2.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button2.Location = New System.Drawing.Point(12, 97)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(151, 66)
Me.Button2.TabIndex = 1
Me.Button2.Text = "VENDA"
Me.Button2.UseVisualStyleBackColor = True
'
'Button3
'
Me.Button3.Image = CType(resources.GetObject("Button3.Image"), System.Drawing.Image)
Me.Button3.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button3.Location = New System.Drawing.Point(12, 179)
Me.Button3.Name = "Button3"
Me.Button3.Size = New System.Drawing.Size(151, 66)
Me.Button3.TabIndex = 2
Me.Button3.Text = "SAIR"
Me.Button3.UseVisualStyleBackColor = True
'
'PictureBox1
'
Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image)
Me.PictureBox1.Location = New System.Drawing.Point(190, 27)
Me.PictureBox1.Name = "PictureBox1"
Me.PictureBox1.Size = New System.Drawing.Size(472, 317)
Me.PictureBox1.TabIndex = 3
Me.PictureBox1.TabStop = False
'
'Label9
'
Me.Label9.AutoSize = True
Me.Label9.BackColor = System.Drawing.Color.Transparent
Me.Label9.Font = New System.Drawing.Font("Adobe Gothic Std B", 21.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(128, Byte))
Me.Label9.Location = New System.Drawing.Point(196, 33)
Me.Label9.Name = "Label9"
Me.Label9.Size = New System.Drawing.Size(251, 72)
Me.Label9.TabIndex = 9
Me.Label9.Text = "Sistema Loja One " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Power Telecom"
'
'FPrincipal
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(9.0!, 20.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.WhiteSmoke
Me.ClientSize = New System.Drawing.Size(674, 356)
Me.Controls.Add(Me.Label9)
Me.Controls.Add(Me.PictureBox1)
Me.Controls.Add(Me.Panel1)
Me.Controls.Add(Me.MenuStrip1)
Me.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWindow
Me.MainMenuStrip = Me.MenuStrip1
Me.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.Name = "FPrincipal"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "FPrincipal"
Me.MenuStrip1.ResumeLayout(False)
Me.MenuStrip1.PerformLayout()
Me.Panel1.ResumeLayout(False)
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents MenuStrip1 As MenuStrip
Friend WithEvents ProdutosToolStripMenuItem As ToolStripMenuItem
Friend WithEvents VendaToolStripMenuItem As ToolStripMenuItem
Friend WithEvents SairToolStripMenuItem As ToolStripMenuItem
Friend WithEvents Panel1 As Panel
Friend WithEvents Button3 As Button
Friend WithEvents Button2 As Button
Friend WithEvents Button1 As Button
Friend WithEvents PictureBox1 As PictureBox
Friend WithEvents Label9 As Label
End Class

1731
projetoLoja05/FPrincipal.resx Executable file
View File

File diff suppressed because it is too large Load Diff

25
projetoLoja05/FPrincipal.vb Executable file
View File

@ -0,0 +1,25 @@
Public Class FPrincipal
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
FProduto.Show()
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
FVenda.Show()
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
End
End Sub
Private Sub ProdutosToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ProdutosToolStripMenuItem.Click
FProduto.Show()
End Sub
Private Sub VendaToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VendaToolStripMenuItem.Click
FVenda.Show()
End Sub
Private Sub SairToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SairToolStripMenuItem.Click
End
End Sub
End Class

159
projetoLoja05/FProduto.Designer.vb generated Executable file
View File

@ -0,0 +1,159 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class FProduto
Inherits System.Windows.Forms.Form
'Descartar substituições de formulário para limpar a lista de componentes.
<System.Diagnostics.DebuggerNonUserCode()>
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Exigido pelo Windows Form Designer
Private components As System.ComponentModel.IContainer
'OBSERVAÇÃO: o procedimento a seguir é exigido pelo Windows Form Designer
'Pode ser modificado usando o Windows Form Designer.
'Não o modifique usando o editor de códigos.
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Me.Label1 = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.Label3 = New System.Windows.Forms.Label()
Me.Label4 = New System.Windows.Forms.Label()
Me.TextBox1 = New System.Windows.Forms.TextBox()
Me.Button1 = New System.Windows.Forms.Button()
Me.Button2 = New System.Windows.Forms.Button()
Me.Button3 = New System.Windows.Forms.Button()
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.BackColor = System.Drawing.Color.Transparent
Me.Label1.Font = New System.Drawing.Font("Adobe Gothic Std B", 26.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label1.Location = New System.Drawing.Point(26, 31)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(552, 44)
Me.Label1.TabIndex = 0
Me.Label1.Text = "Sistema Loja One Power Telecom"
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.BackColor = System.Drawing.Color.Transparent
Me.Label2.Location = New System.Drawing.Point(30, 110)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(195, 20)
Me.Label2.TabIndex = 1
Me.Label2.Text = "Digite 1 para Computador:"
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.BackColor = System.Drawing.Color.Transparent
Me.Label3.Location = New System.Drawing.Point(30, 195)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(172, 20)
Me.Label3.TabIndex = 2
Me.Label3.Text = "Digite 3 para Cartucho:"
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.BackColor = System.Drawing.Color.Transparent
Me.Label4.Location = New System.Drawing.Point(30, 153)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(187, 20)
Me.Label4.TabIndex = 3
Me.Label4.Text = "Digite 2 para Impressora:"
'
'TextBox1
'
Me.TextBox1.Location = New System.Drawing.Point(34, 228)
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Size = New System.Drawing.Size(100, 26)
Me.TextBox1.TabIndex = 4
'
'Button1
'
Me.Button1.Location = New System.Drawing.Point(34, 271)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(75, 38)
Me.Button1.TabIndex = 5
Me.Button1.Text = "Buscar"
Me.Button1.UseVisualStyleBackColor = True
'
'Button2
'
Me.Button2.Location = New System.Drawing.Point(34, 315)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(75, 38)
Me.Button2.TabIndex = 6
Me.Button2.Text = "Compra"
Me.Button2.UseVisualStyleBackColor = True
'
'Button3
'
Me.Button3.Location = New System.Drawing.Point(129, 315)
Me.Button3.Name = "Button3"
Me.Button3.Size = New System.Drawing.Size(73, 38)
Me.Button3.TabIndex = 7
Me.Button3.Text = "Sair"
Me.Button3.UseVisualStyleBackColor = True
'
'PictureBox1
'
Me.PictureBox1.Location = New System.Drawing.Point(231, 110)
Me.PictureBox1.Name = "PictureBox1"
Me.PictureBox1.Size = New System.Drawing.Size(347, 243)
Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.PictureBox1.TabIndex = 8
Me.PictureBox1.TabStop = False
'
'FProduto
'
Me.AcceptButton = Me.Button1
Me.AutoScaleDimensions = New System.Drawing.SizeF(9.0!, 20.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.WhiteSmoke
Me.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
Me.ClientSize = New System.Drawing.Size(599, 416)
Me.Controls.Add(Me.PictureBox1)
Me.Controls.Add(Me.Button3)
Me.Controls.Add(Me.Button2)
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.TextBox1)
Me.Controls.Add(Me.Label4)
Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.Label1)
Me.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWindow
Me.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.Name = "FProduto"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "Consulta Produtos"
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents Label1 As Label
Friend WithEvents Label2 As Label
Friend WithEvents Label3 As Label
Friend WithEvents Label4 As Label
Friend WithEvents TextBox1 As TextBox
Friend WithEvents Button1 As Button
Friend WithEvents Button2 As Button
Friend WithEvents Button3 As Button
Friend WithEvents PictureBox1 As PictureBox
End Class

120
projetoLoja05/FProduto.resx Executable file
View File

@ -0,0 +1,120 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
</root>

29
projetoLoja05/FProduto.vb Executable file
View File

@ -0,0 +1,29 @@
Public Class FProduto
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
'Botão Buscar -> exibe uma imagem do produto selecionado.
Select Case TextBox1.Text()
Case 1
'Caso escolha computador, irá fazer a PictureBox visível e mostrará a imagem "computador.png".
PictureBox1.Load("C:\projetoLoja05\projetoLoja05\img\produtos\computador.png")
PictureBox1.Visible = True
Case 2
'A mesma coisa acontece aqui e no caso cartucho, somente mudando a imagem à exibir.
PictureBox1.Load("C:\projetoLoja05\projetoLoja05\img\produtos\impressora.png")
PictureBox1.Visible = True
Case 3
PictureBox1.Load("C:\projetoLoja05\projetoLoja05\img\produtos\cartucho.png")
PictureBox1.Visible = True
End Select
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
'Apertando o botão "Sair", executa End, que encerra o programa.
Me.Hide()
FPrincipal.Show()
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
'Apertando o botão "Compra", abre o Form para venda de produto.
FVenda.Show()
End Sub
End Class

262
projetoLoja05/FVenda.Designer.vb generated Executable file
View File

@ -0,0 +1,262 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class FVenda
Inherits System.Windows.Forms.Form
'Descartar substituições de formulário para limpar a lista de componentes.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Exigido pelo Windows Form Designer
Private components As System.ComponentModel.IContainer
'OBSERVAÇÃO: o procedimento a seguir é exigido pelo Windows Form Designer
'Pode ser modificado usando o Windows Form Designer.
'Não o modifique usando o editor de códigos.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(FVenda))
Me.Label1 = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.Button1 = New System.Windows.Forms.Button()
Me.Button2 = New System.Windows.Forms.Button()
Me.ComboBox1 = New System.Windows.Forms.ComboBox()
Me.ComboBox2 = New System.Windows.Forms.ComboBox()
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
Me.Label8 = New System.Windows.Forms.Label()
Me.Label7 = New System.Windows.Forms.Label()
Me.Label6 = New System.Windows.Forms.Label()
Me.Label5 = New System.Windows.Forms.Label()
Me.Label4 = New System.Windows.Forms.Label()
Me.Label3 = New System.Windows.Forms.Label()
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
Me.Label9 = New System.Windows.Forms.Label()
Me.PictureBox2 = New System.Windows.Forms.PictureBox()
Me.GroupBox1.SuspendLayout()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.BackColor = System.Drawing.Color.Transparent
Me.Label1.Location = New System.Drawing.Point(14, 108)
Me.Label1.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(139, 20)
Me.Label1.TabIndex = 0
Me.Label1.Text = "Escolha o Produto"
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.BackColor = System.Drawing.Color.Transparent
Me.Label2.Location = New System.Drawing.Point(14, 172)
Me.Label2.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(237, 20)
Me.Label2.TabIndex = 1
Me.Label2.Text = "Escolha a Forma de Pagamento"
'
'Button1
'
Me.Button1.ForeColor = System.Drawing.SystemColors.ActiveCaptionText
Me.Button1.Location = New System.Drawing.Point(104, 242)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(75, 44)
Me.Button1.TabIndex = 2
Me.Button1.Text = "Voltar"
Me.Button1.UseVisualStyleBackColor = True
'
'Button2
'
Me.Button2.ForeColor = System.Drawing.SystemColors.ActiveCaptionText
Me.Button2.Location = New System.Drawing.Point(18, 242)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(80, 44)
Me.Button2.TabIndex = 3
Me.Button2.Text = "Finalizar"
Me.Button2.UseVisualStyleBackColor = True
'
'ComboBox1
'
Me.ComboBox1.FormattingEnabled = True
Me.ComboBox1.Items.AddRange(New Object() {"Computador", "Impressora", "Cartucho"})
Me.ComboBox1.Location = New System.Drawing.Point(18, 131)
Me.ComboBox1.Name = "ComboBox1"
Me.ComboBox1.Size = New System.Drawing.Size(311, 28)
Me.ComboBox1.TabIndex = 4
'
'ComboBox2
'
Me.ComboBox2.FormattingEnabled = True
Me.ComboBox2.Items.AddRange(New Object() {"1 x Sem Juros", "2 x Sem Juros", "3 x Sem Juros", "4 x Com Juros", "5 x Com Juros", "6 x Com Juros", "7 x Com Juros"})
Me.ComboBox2.Location = New System.Drawing.Point(18, 195)
Me.ComboBox2.Name = "ComboBox2"
Me.ComboBox2.Size = New System.Drawing.Size(311, 28)
Me.ComboBox2.TabIndex = 5
'
'GroupBox1
'
Me.GroupBox1.BackColor = System.Drawing.Color.Transparent
Me.GroupBox1.Controls.Add(Me.Label8)
Me.GroupBox1.Controls.Add(Me.Label7)
Me.GroupBox1.Controls.Add(Me.Label6)
Me.GroupBox1.Controls.Add(Me.Label5)
Me.GroupBox1.Controls.Add(Me.Label4)
Me.GroupBox1.Controls.Add(Me.Label3)
Me.GroupBox1.ForeColor = System.Drawing.SystemColors.ActiveCaptionText
Me.GroupBox1.Location = New System.Drawing.Point(18, 323)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(588, 175)
Me.GroupBox1.TabIndex = 6
Me.GroupBox1.TabStop = False
Me.GroupBox1.Text = "Condições de Pagamento"
'
'Label8
'
Me.Label8.AutoSize = True
Me.Label8.Location = New System.Drawing.Point(277, 132)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(57, 20)
Me.Label8.TabIndex = 13
Me.Label8.Text = "Label8"
'
'Label7
'
Me.Label7.AutoSize = True
Me.Label7.Location = New System.Drawing.Point(277, 86)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(57, 20)
Me.Label7.TabIndex = 12
Me.Label7.Text = "Label7"
'
'Label6
'
Me.Label6.AutoSize = True
Me.Label6.Location = New System.Drawing.Point(277, 39)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(57, 20)
Me.Label6.TabIndex = 11
Me.Label6.Text = "Label6"
'
'Label5
'
Me.Label5.AutoSize = True
Me.Label5.Location = New System.Drawing.Point(22, 39)
Me.Label5.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(103, 20)
Me.Label5.TabIndex = 10
Me.Label5.Text = "Preço à vista:"
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.Location = New System.Drawing.Point(22, 132)
Me.Label4.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(106, 20)
Me.Label4.TabIndex = 9
Me.Label4.Text = "Total a Prazo:"
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Location = New System.Drawing.Point(22, 86)
Me.Label3.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(129, 20)
Me.Label3.TabIndex = 8
Me.Label3.Text = "Valor da Parcela:"
'
'PictureBox1
'
Me.PictureBox1.BackColor = System.Drawing.Color.Transparent
Me.PictureBox1.Location = New System.Drawing.Point(367, 108)
Me.PictureBox1.Name = "PictureBox1"
Me.PictureBox1.Size = New System.Drawing.Size(239, 198)
Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.PictureBox1.TabIndex = 7
Me.PictureBox1.TabStop = False
'
'Label9
'
Me.Label9.AutoSize = True
Me.Label9.BackColor = System.Drawing.Color.Transparent
Me.Label9.Font = New System.Drawing.Font("Adobe Gothic Std B", 21.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(128, Byte))
Me.Label9.Location = New System.Drawing.Point(12, 9)
Me.Label9.Name = "Label9"
Me.Label9.Size = New System.Drawing.Size(251, 72)
Me.Label9.TabIndex = 8
Me.Label9.Text = "Sistema Loja One " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Power Telecom"
'
'PictureBox2
'
Me.PictureBox2.BackColor = System.Drawing.Color.Transparent
Me.PictureBox2.BackgroundImage = CType(resources.GetObject("PictureBox2.BackgroundImage"), System.Drawing.Image)
Me.PictureBox2.Location = New System.Drawing.Point(225, 9)
Me.PictureBox2.Name = "PictureBox2"
Me.PictureBox2.Size = New System.Drawing.Size(399, 508)
Me.PictureBox2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.PictureBox2.TabIndex = 9
Me.PictureBox2.TabStop = False
'
'FVenda
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(9.0!, 20.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.AutoSize = True
Me.BackColor = System.Drawing.Color.WhiteSmoke
Me.ClientSize = New System.Drawing.Size(630, 522)
Me.Controls.Add(Me.GroupBox1)
Me.Controls.Add(Me.ComboBox2)
Me.Controls.Add(Me.ComboBox1)
Me.Controls.Add(Me.Button2)
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.Label9)
Me.Controls.Add(Me.PictureBox1)
Me.Controls.Add(Me.PictureBox2)
Me.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.ForeColor = System.Drawing.SystemColors.ActiveCaptionText
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWindow
Me.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.Name = "FVenda"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "Venda Produtos"
Me.GroupBox1.ResumeLayout(False)
Me.GroupBox1.PerformLayout()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents Label1 As Label
Friend WithEvents Label2 As Label
Friend WithEvents Button1 As Button
Friend WithEvents Button2 As Button
Friend WithEvents ComboBox1 As ComboBox
Friend WithEvents ComboBox2 As ComboBox
Friend WithEvents GroupBox1 As GroupBox
Friend WithEvents PictureBox1 As PictureBox
Friend WithEvents Label8 As Label
Friend WithEvents Label7 As Label
Friend WithEvents Label6 As Label
Friend WithEvents Label5 As Label
Friend WithEvents Label4 As Label
Friend WithEvents Label3 As Label
Friend WithEvents Label9 As Label
Friend WithEvents PictureBox2 As PictureBox
End Class

334
projetoLoja05/FVenda.resx Executable file
View File

@ -0,0 +1,334 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="PictureBox2.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAgAAAAIACAYAAAD0eNT6AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADdcAAA3XAUIom3gAAAAZdEVYdFNvZnR3YXJlAHd3dy5pbmtzY2FwZS5vcmeb7jwa
AAAwQ0lEQVR4Xu3dCYxud3nf8WHzwtosFNuyQouaKAox6mIUqtK0jREEcIiUFpGGRpVIVZImadrQhjbB
YXNiozZCCcKmdlqkFooilL0pUZdQjGlN3EaBkFLsQiObpaxN7Nhg1j7P3Ptezzv3d2be/3v+/+c5///5
fqWPBNd3zjvnPPesM/POAe3chebZ5g3mHeYOc6/5CgAghR+D7zS3mJvM1eYiQ1SlS82N5h6j/gECAJbD
LwpuNpcbor3yq8hrzX1G/SMDACzX/eZ6c7Eh2rlLzG1G/aMCAPTjdnOZITq1K8zdRv1DAgD058PGj+1E
kz3B3GXUPyAAQL/8xs6f7hKd1wXmVqP+4QAA+udf2uWnBOi8rjHqHwwAYBz+zd1E5/JH//xMPwCMz3+y
y3+8m+iwG4z6hwIAGI+/twvR4Tv88SY/ALAefsz3Yz+tPH97X/UPBAAwLj/208rz9/ZX/zgAAOPyYz+t
PP/FPuofBwBgXH7sp5Xnv9VP/eMAAIzLj/208vjxPwBYHz/208rjAgAA1ocLAOJLAACwQnwJgPgmQABY
Ib4JkPgxQABYIX4MkHgjIABYId4IiHgrYABYGd4KmM7FLwMCgPXglwHRufh1wACwDvw6YDqva4z6xwIA
GMe1hmirC8ytRv2DAQD07zZzkSE6L/9SwF1G/cMBAPTrbnOJIZrsCuP/UNQ/IABAfz5s/NhOdGp+leiP
itQ/JABAP243lxminfOvE/k3i/h3jKp/VACA5brfXG8uNkR75T8u4j8zypsFAcDy+Y9032wuN0RV8neN
8reO9PeP9l8i4b9JivcOAIA8fgy+09xibjJXG77Ln4iIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiI
iIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiGjP/qr5CgBglfwcQCvtvxj1jwIAMD4/B9AK
4+4fAMBTgBXG3T8AgKcAK4u7fwDABk8BVhR3/wCADZ4CrCTu/gEAx/EUYAVx9w8AOI6nAIPH3T8AYApP
AQaOu38AwBSeAgwad/8AgNPwFGDAuPsHAJyGpwCDxd0/AGBXPAUYKO7+AQC74inAIHH3DwAoxVOAAeLu
HwBQiqcAncfdPwBgXzwF6Dju/gEA++IpQKdx9w8AmIunAB3G3T8AYC6eAnQWd/8AgFp4CtBR3P0DAGrh
KUAncfcPAKiNpwAdxN0/AKA2ngIsPO7+T/cZc435DvNk87Xm2eZnzP8y6mNG8v/MK8zzzDebrzHfbv65
WcP632leaXz+l551tXm5+YBRH9O7j5gbzDPNJcb/3fux4h+Z/2vUx4zqDvNa8xzj+/43Gv/3/2Pm40Z9
DB7EU4AFx93/tC+YnzVfbaZ6uPlnRn1873z9f874CX+qkdf/y8bn/0gz1cXGTw7+d9UyeuQzf5iZyreH
n/w+a9THj8Tn/wgz1WPN9eZzRn08eAqw2Lj7P9nfNbv2XeZ+o5bTqzWvv5/Qn2t2ze8Oe78I8Au+7ze7
9gIz0oXPUX5C/26za74t1HJwBk8BFhh3/9N+3pTmj4nVsnq09vX3u/rS/GPUsnrxKlPaTxq1rN69xpTm
XxJTywJPARYXd//T3m8uNKU9ynzUqGX2ZO3r71/X90f7pfnH9Po9Af59Lo8z+zTajcQnzT7bwr8cdrtR
ywRPARYVd//TSh79He9HjVpmT9a+/v7Nffvm3yyplrl0LzP79lQz0pcCftzsm39zoFomeAqwmLj7n/b7
5qFm355h1HJ7sfb1d/4d/vvmH6uWuXT+3f5zeotRy+3RnPl7/82o5YKnAIuIu/9pc+5+vScZtdxerH39
nf+Y3775x6plLt1TzJx87g8YtezefJOZE08BpvEUIDnu/qfNvfv1Hm3Usnuw9vXfmJta5tLNuejZ1Ps3
QW483syNpwDTeAqQGHf/0+be/XpXGbXsHqx9/Tfmppa5dHO/BOD5+0X8oVHL74m/4dXceAowjacASXH3
P63G3a93nVHLX7q1r/9Rc1PLXLrXmxq91Kjl96TWtuApwDSeAiTE3f+0Gne/3nuMWv7SrX39j5qbWubS
3W0eYuZ2kbnLqNfoxYdMjYthngJM4ylAcNz9T6t199vrDr/29T9ubmqZPXihqdHfNmr5Pal1QcxTgGk8
BQiMu/9pa9/ZOdhtm5taZg/+wOzzBlDH84vJ3p8EcVHcHk8BguLufxp3/xzojpubWmYvXmJq9Cyjlt8T
Lozb4ylAQNz9T+Puv04jHeTmppbZC39L4K8yNfqPRr1GL7g4bo+nAI3j7n8ad/8c4JS5qWX2xH+9c43+
nOn9LYK5QG6PpwAN4+5/Gnf/dRrt4DY3tcye+K/CfaKp0b8x6jV6wUVyezwFaBR3/9O4++fANmVuapm9
8RN3jfxCwi8o1Gv0ggvl9ngK0CDu/qdx91+nEQ9qc1PL7I0/uvdH+DXyLymo1+gFF8vt8RSgctz9T+Pu
nwPaSeamltkj/ya+Gvk3Ffo3F6rX6AUXzO3xFKBi3P1P4+6/TqMezOamltkr/3G+GvmPF6rl94KL5vZ4
ClAp7v6ncffPgew0c1PL7JW/oU+Nfy/+BkP+RkPqNXrBhXN7PAWoEHf/07j7r9PIB7G5qWX2zN/at0b+
VsNq+b3g4rk9ngLMjLv/adz9cwDbxdzUMnvmv9zHf8nP3PyXDf2OUa/RCy6g2+MpwIy4+5/G3X+dRj94
zU0ts3f+a35rdJVRy+8FF9Ht8RRgz7j7n8bdPweuXc1NLbN3f2i+xtTobUa9Ri+4kG6PpwB7xN3/NO7+
67SGg9bc1DJH8FpTo6eYLxn1Gj3gYro9ngIUxt3/NO7+OWCVmJta5ggeME8yNXqjUa/RCy6o2+MpQEHc
/U/j7r9OazlYzU0tcxRvMTW63HzWqNfoARfV7fEUYMe4+5/G3T8HqlJzU8schb9F8FNNja4z6jV6wYV1
ezwF2CHu/qdx91+nNR2k5qaWOZK3mxo9znzKqNfoARfX7fEU4JS4+5/G3T8HqH3MTS1zNM81NfoRo5bf
Cy6w2+MpwAlx9z+Nu/86re3gNDe1zNG8zzzMzO0C80GjXqMHXGS3x1OAibj7n8bdPwemfc1NLXNE32dq
9AKjlt8LLrTb4ymAiLv/adz912mNB6W5qWWO6CPmkWZu/hbBv23Ua/SAi+32eApwLO7+p3H3zwFpjrmp
ZY7qJ0yNej+eccHdHk8BjsTd/zTu/uu01oPR3NQyR3WPebyp0a8b9Ro94KK7PZ4CnI27/2nc/XMgmmtu
apkje52p0ZPNF416jR5w4d0eTwEs7v6ncfdfpzUfhOamljmyz5uvNzW62ajX6AEX3+2t/ikAd//TuPvn
AFTD3NQyR/dWU6PLzH1GvUYPuABvb9VPAbj7n8bdf53WfvCZm1rmGjzN1OjVRi2/B1yEt7fapwDc/U/j
7p8DTy1zU8tcg3eaGj3GfMKo1+gBF+LtrfIpAHf/07j7rxMHnfmpZa7Fd5oa/aBRy+8BF+Ptre4pAHf/
07j754BT09zUMtfi/ebhZm6PMHcY9Ro94IK8vVU9BeDufxp3/3XiYHPG3NQy1+TFpkZ/3ajl94CL8vZW
8xSAu/9p3P1zoKltbmqZa/Ix8yhTo54vSrkwb28VTwG4+5/G3X+dOMg8aG5qmWvzclOjpxu1/B5wcd7e
8E8BuPufxt0/B5gW5qaWuTb3mieYGv2yUa/RAy7Q2xv6KQB3/9O4+68TB5dtc1PLXKMbTY2+0XzBqNdY
Oi7S2xv2KQB3/9O4++fA0src1DLXyE/afvKukV9MqNfoARfq7Q35FIC7/2nc/deJg8r55qaWuVb++L5G
/uUE/7KCeo2l42K9veGeAnD3P427fw4oLc1NLXPN/Bv5auTfWKiW3wMu2Nsb6ikAd//TuPuvEwcTbW5q
mWvm/85q5D9a6D9iqF5j6bhob2+YpwDc/U/j7p8DSWtzU8tcO39Tnxr5mwyp5feAC/f2hngKwN3/NO7+
68RBZNrc1DLXzt/W19/ed27+NsP+dsPqNZaOi/f2un8KwN3/NO7+OYBEmJtaJs78gp8a+S8cUsvvARfw
7XX9FIC7/2nc/deJg8fJ5qaWiTO/4td/1W+N/FcPq9dYOi7i2+v2KQB3/9O4++fAEWVuapk449WmRk8z
avk94EK+vS6fAnD3P427/zpx0Djd3NQyccZ95jJTo7ca9RpLx8V8e909BeDufxp3/xwwIs1NLRMPutnU
6OvN5416jaXjgr69rp4CcPc/jbv/OnGw2M3c1DLxoC+aJ5savc6o11g6Lurb6+YpAHf/07j750ARbW5q
mdj266ZGjzf3GPUaS8eFfXtdPAXg7n8ad/914iCxu7mpZeJ8tQ7OP2HU8peOi/v2Fv8UgLv/adz9c4DI
MDe1TJzvt81DzNweaT5i1GssHRf47S36KQB3/9O4+68TB4cyc1PLhPYCU6PvM2r5S8dFfnuLfQrA3f80
7v45MGSZm1omtA+aC8zcHmbeZ9RrLB0X+u0t8ikAd//TuPuvEweFcnNTy8S0HzE1eq5Ry186LvbbW9xT
AO7+p33IrHmHWPv6Z5ubWiamfco8ztTofxr1GktX64L/PUYtHwt7CsDd/7TXmxr1eve79vXPNje1TJzs
OlOj1xi1/KWr9RTAt6NaPhb0FIC7/5M9z8yt57vfta9/trmpZeJknzWXm7k93ajl96DGU4CrjFo2zljE
UwDu/k/mb+4xt57vfte+/tnmppaJ073RzO2rjFp2D2o8BXi0UcvGGelPAbj7P903mTn1fve79vXPdqnZ
N/9YtUyc7kvmKWZO32DUsnsx9ynAk4xaLh6U+hSAu//TXW3m1Pvd79rXP9uc7e8fq5aJ3bzNzOlbjVpu
L+Y+BXiGUcvFg9KeAnD3v5sfN/s2wt3v2tc/28vNvr3CqGVid/517H17iVHL7MmcpwA/atQysS3lKQB3
/7v5pNnnx4L8ytnfXlQtsydrX/9sHzAXm9L8Y/xj1TKxu98x+9wF+/b/mFHL7In/KOMjTGmPMh81apnY
Fv4UgLv/Mv7jPKW91Khl9Wif9f8nRi0L5V5rSvOPUctCOf8FP6WNcPe/8WpT2iuNWha00KcA3P2X+Zwp
eRT2TPOAUcvq0drXP9uXjb+z3K49x/jHqGWh3BeN/5vetRca/1FCtawe+fqX/Pv7G+Z+o5YFLewpAHf/
+/tZc9LjMH9U+A+N7zDq43v3c2bN65/JT+j+789/29xU/tjZ7/w5+dfn/6b/qTnpywH+2wR/yqiP752v
v39N/6T192MDT572F/IUgLv/ee40N5rvMV9n/oT588bfQ/x/G/UxI1n7+mfz7e+PV7/D+I/5Of9uf/+G
P77m397/Mf7lvSuN/5y///v/s+YfmzVsf39rcF/XbzFfbfwY4McCPyb4v031MdhN86cA3P0DALBMTZ8C
cPcPAMAyNXsKwN0/AADL1uQpAHf/AAAsW/WnANz9AwDQh6pPAbj7BwCgD9WeAnD3DwBAX6o8BeDuHwCA
vsx+CsDdPwAAfZr1FIC7fwAA+rT3UwDu/gEA6NteTwG4+wcAoG/FTwG4+wcAYAxFTwG4+wcAYAw7PwXg
7h8AgLHs9BSAu38AAMZy6lMA7v4BABjTiU8BuPsHAGBMk08BuPsHAGBs8ikAd/8AAIztvKcA3P0DALAO
W08BuPsHAGAdzj0F4O4fAIB1OXwKwN0/AADrct73AhARERERERERERERERERERERERERERERERERERER
EREREREREREREREREREREREREREREREREREREREREREREdGZvgIAAFZH/iEAABib/EMAADA2+YcAAGBs
8g8BAMDY5B8CAICxyT8EAABjk38IAADGJv8QAACMTf4hAAAYm/xDAAAwNvmHAABgbPIPAQDA2OQfAgCA
sck/BAAAY5N/CAAAxnbwx8f+AOvhs2f+6/XAWeq/YXw+e/b/9fLZH3zoyB9gXXz2zH+9PnmW+m8Yn8+e
/X+9fPYHtx35A6yLz575rxcXgOvms2f/Xy+f/cGvHfkDrIvPnvmv1++epf4bxuezZ/9fL5/9wc8f+QOs
i8+e+a/XO89S/w3j89mz/6+Xz/7gp4/8AdbFZ8/81+s3zlL/DePz2bP/r5fP/uAfHPkDrIvPnvmv15vP
Uv8N4/PZs/+vl8/+4HuO/AHWxWfP/NfrVWep/4bx+ezZ/9fLZ3/wjCN/gHXx2TP/9XrhWeq/YXw+e/b/
9fLZHzzlyB9gXXz2zH+9rjxL/TeMz2fP/r9ePvuDS478AdbFZ8/81+uxZ6n/hvH57Nn/18tnf9jHjPoL
GJfPfBPzX5+Pmk3+v9XfwbiOzp/9f32OHv/5TuAV8plvYv7r83azyf+3+jsY19H5s/+vz9Hj/8GLjPpL
GJfPfBPzX5/XmE3+v9XfwbiOzp/9f32OHv8P/pRRfwnj8plvYv7r8yyzyf+3+jsY19H5s/+vz9Hj/2Ef
NOovYjw+6+Mx//X4vHmU2eT/2/9M/V2M5/j8Pfb/9VDH/4ObjPrLGI/P+njMfz3eZY7nf6b+Lsaj5s/+
vx7q+H/w3Ub9ZYzHZ3085r8e15rj+Z+pv4vxvNocj/1/PdTx/+BPmi8b9QEYh8/YZ3085r8e32aO53+m
/i7Go+bP/r8OU8f/w95r1AdhHD7jqZj/+D5tLjDH8z/z/6Y+BuOYmr/H/j++k47/B6816oMwDp/xVMx/
fK83U/l/Ux+DcdxgpmL/H99Jx/+DbzXqgzAOn/FUzH98TzNT+X9TH4NxnDR/9v/xnXT8P+y/G/WB6J/P
9rSY/7g+YE7L/476WPRvl/mz/49rl+P/wd806oPRP5/taTH/cb3MnJb/HfWx6N8u82f/H9cux/+Dh5u7
jFoA+uUz9dmeFvMfk3/37xPNafnf4bvBx7Pr/Nn/x7Tr8f+wlxi1EPTLZ7przH88v2R2zf+uWgb6VTJ/
9v/xlBz/D39P9B8ZtSD0x2fpM9015j+eK82u+d9Vy0C/SubP/j+W0uP/YT9j1MLQH59lacx/HL9pSvOP
UctCf/aZP/v/OPY5/h98nfmCUQtEP3yGPsvSmP84/rIpzT9GLQv92Wf+7P9j2Pf4f9hbjFoo+uEz3Dfm
379bzL75x6ploh9z5s/+3785x//DrxvxHcH98tmVfO3veMy/f1eZffOPVctEP+bMn/2/b3OP/4fdaNTC
sXw+u7kx/3691czNl6GWjeWrMf83GLVsLF+N4//BY8wfGPUCWC6fmc9ubsy/T/eay83cfBm+LPUaWK5a
82f/71Ot4/9h/hiJR0H98FnNefR3PObfn6Kf+z0lfi68PzXnz/7fl9rH/8N4FNyPKo9+jsX8+/F7Zud3
/dohX5YvU70Wlqf2/D2+FNCPFsd/HgV1ouqjnyMx/z741f/TTe18mdwFLl+r+bP/96HV8f8wHgUtW5NH
P0di/st3nWnVTxv1mliOlvNn/1+21sf/w3gUvFxNHv0ci/kv17tM7Ue/R3uYeadRr418refv8aWA5Yo4
/vMoaKGaPvo5EvNfps+Yvd/xqyD/zvJPGfU5IE/U/Nn/lynq+H+Yv7Xk54z6RBDPZ7HP233uG/Nfnu80
UT3H8Ch4WSLnz/6/LNHH/8P8HxzvFZ3PZxC5829i/svxWhPd9UZ9LoiXMX/2/2XIOv4f9r2GO4E8vu19
Blkx/3y/aPxr89E9xPBe8fmy5u+x/+fKPv4f9sNGfXJoz7d9dsw/z2+ZC01WF5j/YNTnhvay5++x/+dZ
wvH/sJ806hNEO77NlxLzj/c/TNg3/ZzQo83tRn2OaGcp8/fY/+Mt6fh/mH8dSn2iqC/ja36nxfzj3GEe
b5aSfy4fMOpzRX1Lm7/H/h9nicf/w68J/iujPmHU49vYt/XSYv4x/EQb8eNepfnnxEVAe0udP/t/jKUe
/w/zb0bxb0pRnzjmy/yGn11i/m35o/al3fkd7WvNu4363DHf0ufP/t/W0o//h/kn+BqjVgD78226+OFb
zL8N/2Y7/3r70nuUeZtR64D99TJ/9v82ejn+n+u7zB8ZtTLYnW9D35a9xfzr8R+38++476VHmH9t1Lqg
XG/z99j/6+j1+H/YN5j3GbViOJ1vO9+Gvcb85/Gf8/U33Fns1/xOyD/nVxl+Tnx/Pc/fY/+fp/fj/2H+
SPDfGrWCmObbzLdd7zH//fj77ftb7vbeM80njFpHTBtl/uz/+xnl+H+uv28+b9TK4kG+jXxbjRbz353/
xj3/pTujdJl5h1HrivONNn+P/X83ox7/D/tL5iNGrTjObBvfRqPG/E/mj3z9d+539c0+O+br9FOGLwlM
G3n+Hvv/yUY//h/2BOM/y/glozbCGvm28G3i22b0mL/mX+8L/41eCT3d/J5R22DN1jJ/9v/zren4f65v
Nv/OqA2yJr4NfFusLeZ/xh+bHzMPN2vJ1/Ul5l6jtsmarHH+Hvv/GWs9/p/rr5g1vnmIr7Ov+9pb6/zd
L5slvqtbVP517rcatW3WYO3z9zj+02HPN3catbFG4uvo60rbrWX+7r+abzd0pqvMLUZtqxEx//Pj+E+H
byDyg+bjRm28nvk6+br5OpJu5Pm7/2T+miGdfw38N43adiNg/ifH8Z8O87e8/HvmVtPzdw375+7r4OvS
w9t4LqVR5u/88/818y2GdutK80um99k75l8ex3861xPNS817jNrIS+Sfq3/O/rnTvHqcv/NHff47u/+0
of3y2b/M9PhbBpl/nTj+07mebPxniT9k1IbP5J+Tf27+OVKbljx/92lzg/mLhur2NPN649tYbfslYP5t
4/hP5/Kd7HVGDSOSfw7s8PEtYf7+rl3vMteabzO9/cKWHvNt7Nv61cYfr2a+uxzzz4vjPx2mhhKJclMz
aeWj5u3GfzXns8xQ79XdaT4D/30D15nfMi3faY75Ly81p0iUnBpKJMpNzaTEA+aTxh/h+dfu3mn+vfFf
xuF3mX/LPNU81lAfPcb8BfNC47+R8M3mN4zP9neNz9pn7rNn/n2n9ulIlJwaSiTKTc2kBBH1m9qnI1Fy
aiiRKDc1kxJE1G9qn45EyamhRKLc1ExKEFG/qX06EiWnhhKJclMzKUFE/ab26UiUnBpKJMpNzaQEEfWb
2qcjUXJqKJEoNzWTEkTUb2qfjkTJqaFEotzUTEoQUb+pfToSJaeGEolyUzMpQUT9pvbpSJScGkokyk3N
pAQR9ZvapyNRcmookSg3NZMSRNRvap+ORMmpoUSi3NRMShBRv6l9OhIlp4YSiXJTMylBRP2m9ulIlJwa
SiTKTc2kBBH1m9qnI1FyaiiRKDc1kxJE1G9qn45EyamhRKLc1ExKEFG/qX06EiWnhhKJclMzKUFE/ab2
6UiUnBpKJMpNzaQEEfWb2qcjUXJqKJEoNzWTEkTUb2qfjkTJqaFEotzUTEoQUb+pfToSJaeGEolyUzMp
QUT9pvbpSJScGkokyk3NpAQR9ZvapyNRcmookSg3NZMSRNRvap+ORMmpoUSi3NRMShBRv6l9OhIlp4YS
iXJTMylBRP2m9ulIlJwaSiTKTc2kBBH1m9qnI1FyaiiRKDc1kxJE1G9qn45EyamhRKLc1ExKEFG/qX06
EiWnhhKJclMzKUFE/ab26UiUnBpKJMpNzaQEEfWb2qcjUXJqKJEoNzWTEjR+f8a8yTzy8P/1kX+u/jn7
507TqX06EiWnhhKJclMzKUFj5yfQu43P+j+bHi4C/HP0z9U/Z//cuQiY7ui+nIGSU0OJRLmpmZSgcTt6
8t9Y+kXA0ZP/BhcB0x3dThkoOTWUSJSbmkkJGjN18t9Y6kWAOvlvcBGgU9sqEiWnhhKJclMzKUHjddLJ
f2NpFwEnnfw3uAg4P7WdIlFyaiiRKDc1kxI0Vruc/DeWchGwy8l/g4uA7dQ2ikTJqaFEotzUTErQOJWc
/DeyLwJKTv4bXAQ8mNo+kSg5NZRIlJuaSQkao31O/htZFwH7nPw3uAg4k9o2kSg5NZRIlJuaSQnqvzkn
/43oi4A5J/8NLgL0dolEyamhRKLc1ExKUN/VOPlvRF0E1Dj5b6z9IkBtk0iUnBpKJMpNzaQE9VvNk/9G
64uAmif/jTVfBKjtEYmSU0OJRLmpmZSgPmtx8t/4YdOiFif/jV80a0xti0iUnBpKJMpNzaQE9VfLk/8N
5iGmdi1P/reZx5k1prZHJEpODSUS5aZmUoL6ipP/tjWf/D21TSJRcmookSg3NZMS1E+c/Let/eTvqe0S
iZJTQ4lEuamZlKA+4uS/jZP/mdS2iUTJqaFEotzUTErQ8uPkv42T/4Op7ROJklNDiUS5qZmUoGXHyX8b
J//t1DaKRMmpoUSi3NRMStBy4+S/jZP/+antFImSU0OJtJYuNM82bzDvMHeYe8+609xibjJXm4tMVGom
JWiZcfLfxslfp7ZVJEpODSXS6F1qbjT3GLX+il8U3GwuN61Tr1+Clhcn/22c/KdT2ysSJaeGEmnU/C7+
WnOfUeu9i/vN9eZi0yr1uiVoWXHy38bJ/+TUNotEyamhRBqxS4wfeNT67uN2c5lpkXq9ErScOPlv4+R/
emq7RaLk1FAijdYVpsVB+MPGl1079VolaBlx8t/GyX+31LaLRMmpoUQaqSeYu4xazxr8AO9PF2qmXqcE
5cfJfxsn/91T2y8SJaeGEmmULjC3GrWONfnBreZPCajXKEG5cfLfxsm/LLUNI1FyaiiRRukao9avBf/m
wlqp5ZegvDj5b+PkX57ajpEoOTWUSCPkj/79R/fU+rXgP1ngP15YI7X8EpQTJ/9tnPz3S23LSJScGkqk
EfIDplq3lvy9BWqkll2C4uPkv42T//6p7RmJklNDidR7/g5/JW/yU4u/pr/23NSyS1BsnPy3cfKfl9qm
kSg5NZRIvedv76vWK4K/9tzUcktQXJz8t3Hyn5/arpEoOTWUSL3n7+2v1iuCv/bc1HJLUEyc/Ldx8q+T
2raRKDk1lEi957/YR61XBH/tuanllqD2cfLfxsm/Xmr7RqLk1FAi9Z7/Vj+1XhH8teemlluC2sbJfxsn
/7qpbRyJklNDidR7kT/+d5y/9tzUcktQuzj5b+PkXz+1nSNRcmookXrv00atVwR/7bmp5ZagNnHy38bJ
v01qW0ei5NRQIvXeu41arwj+2nNTyy1B9ePkv42Tf7vU9o5EyamhROq9Nxu1XhH8teemlluC6sbJfxsn
/7apbR6JklNDidR7rzBqvSK80sxNLbcE1YuT/zZO/u1T2z0SJaeGEqn3rjJqvSI808xNLbcE1YmT/zZO
/jGpbR+JklNDiTRC7zVq3Vp6v6lxUFfLLkHz4+S/jZN/XGr7R6Lk1FAijdCLjFq3lr7f1EgtuwTNi5P/
Nk7+sakZRKLk1FAijZD/Up6PG7V+LXzG+EG4Rmr5JWj/OPlv4+Qfn5pDJEpODSXSKD3PfNmodazt+aZW
avklaL84+W/j5J+TmkUkSk4NJdJIvdyodazpOlMz9RolqDxO/ts4+eel5hGJklNDiTRSfuD9FaPWs4a3
mYeamqnXKUHl/QujtuVcnPy3+zum1pfKRk3NJBIlp4YSabT8gPMmo9Z1jl8wjza1U69Vgsq7wPyqUdtz
X5z8t/MnZf4a/rlzETDd8ZlEo+TUUCKN2g+YB4xa5xK+jB8yrVKvWYL2q+ZFACf/7TYn/w0uAqY7up0y
UHJqKJFG7kqj1rnEU03L1GuWoP2rcRHAyX+74yf/DS4CdGpbRaLk1FAijZ5a5xKtU69ZguY15yKAk/92
Uyf/DS4Czk9tp0iUnBpKpNFT61yideo1S9D89rkI4OS/3Wkn/w0uArZT2ygSJaeGEmn01DqXaJ16zRJU
p5KLAE7+2+168t/gIuDB1PaJRMmpoUQaPbXOJVqnXrME1WuXiwBO/tuVnvw3uAg4k9o2kSg5NZRIo6fW
uUTr1GuWoLqddBHAyX+7fU/+G1wE6O0SiZJTQ4k0emqdS7ROvWYJqp+6CODkv93ck//G2i8C1DaJRMmp
oUQaPbXOJVqnXrMEtenoRQAn/+1qnfw31nwRoLZHJEpODSXS6Kl1LtE69ZolqF1+EfBiw8n/wWqf/Df8
nTbXmNoWkSg5NZRIo6fWuUTr1GuWoP7i5L/tE+YKs8bU9ohEyamhRBo9tc4lWqdeswT1FSf/bWs++Xtq
m0Si5NRQIo2eWucSrVOvWYL6iZP/trWf/D21XSJRcmookUZPrXOJ1qnXLEF9xMl/Gyf/M6ltE4mSU0OJ
NHpqnUu0Tr1mCVp+nPy3cfJ/MLV9IlFyaiiRRk+tc4nWqdcsQcuOk/82Tv7bqW0UiZJTQ4k0emqdS7RO
vWYJWm6c/Ldx8j8/tZ0iUXJqKJFGT61zidap1yxBy4yT/zZO/jq1rSJRcmookUZPrXOJ1qnXLEHLi5P/
Nk7+06ntFYmSU0OJNHpqnUu0Tr1mCVpWnPy3cfI/ObXNIlFyaiiRRk+tc4nWqdcsQcuJk/82Tv6np7Zb
JEpODSXS6Kl1LtE69ZolaBlx8t/GyX+31LaLRMmpoUQaPbXOJVqnXrME5cfJfxsn/91T2y8SJaeGEmn0
1DqXaJ16zRKUGyf/bZz8y1LbMBIlp4YSafTUOpdonXrNEpQXJ/9tnPzLU9sxEiWnhhJp9NQ6l2ides0S
lBMn/22c/PdLbctIlJwaSqTRU+tconXqNUtQfJz8t3Hy3z+1PSNRcmookUZPrXOJ1qnXLEGxcfLfxsl/
XmqbRqLk1FAijZ5a5xKtU69ZguLi5L+Nk//81HaNRMmpoUQaPbXOJVqnXrMExcTJfxsn/zqpbRuJklND
iTR6ap1LtE69ZglqHyf/bZz866W2byRKTg0l0uipdS7ROvWaJahtnPy3cfKvm9rGkSg5NZRIo6fWuUTr
1GuWoHZx8t/Gyb9+ajtHouTUUCKNnlrnEq1Tr1mC2sTJfxsn/zapbR2JklNDiTR6ap1LtE69ZgmqHyf/
bZz826W2dyRKTg0l0uipdS7ROvWaJahunPy3cfJvm9rmkSg5NZRIo6fWuUTr1GuWoHpx8t/Gyb99artH
ouTUUCKNnlrnEq1Tr1mC6sTJfxsn/5jUto9EyamhRBq5K41a5xJPNS1Tr1mC5sfJfxsn/7jU9o9Eyamh
RBq1HzAPGLXOJXwZP2RapV6zBM2Lk/82Tv6xqRlEouTUUCKNlh/Q32TUus7xC+bRpnbqtUrQ/nHy38bJ
Pz41h0iUnBpKpJF6iPkVo9azhreZh5qaqdcpQfvFyX8bJ/+c1CwiUXJqKJFG6uVGrWNNfgCumXqNElQe
J/9tnPzzUvOIRMmpoUQapeeZLxu1jrU939RKLb8ElfcvjdqWc7U8+X+vUa85Fyf/3NRMIlFyaiiRRuhC
83Gj1q+FTxu/i6yRWn4JKu9yc6dR23NfLU/+3gXmV4167X1x8s9PzSUSJaeGEmmEXmTUurX0YlMjtewS
tF81LwJan/w31bwI4OS/jNRsIlFyaiiRRui9Rq1bS79vaqSWXYL2r8ZFQNTJf1ONiwBO/stJzScSJaeG
Eqn3rjJqvSI8w8xNLbcEzWvORUD0yX/TnIsATv7LSs0oEiWnhhKp915h1HpF8Neem1puCZrfPhcBWSf/
TftcBHDyX15qTpEoOTWUSL33ZqPWK4K/9tzUcktQnUouArJP/ptKLgI4+S8zNatIlJwaSqTee7dR6xXB
X3tuarklqF67XAQs5eS/aZeLAE7+y03NKxIlp4YSqff8R/LUekXw156bWm4JqttJFwFLO/lvOukigJP/
slMzi0TJqaFE6r17jVqvCP7ac1PLLUH1UxcBSz35b1IXAZz8l9/ReWWg5NRQIvXeHUatVwR/7bmp5Zag
Nh29CFj6yX/T0YsATv59dHRfzkDJqaFE6r13GLVeEfy156aWW4La5RcBbzE9nPw3+UXAGw0n/z5S+3Qk
Sk4NJVLvvcGo9Yrgrz03tdwSRNRvap+ORMmpoUTqvWcbtV4R/LXnppZbgoj6Te3TkSg5NZRIvee/COge
o9atJX9Nf+25qWWXIKJ+U/t0JEpODSXSCN1g1Lq1dKOpkVp2CSLqN7VPR6Lk1FAijdATTOSPA95nLjU1
UssvQUT9pvbpSJScGkqkUbrGqPVr4VpTK7X8EkTUb2qfjkTJqaFEGiX/8adbjVrHmvxnwi8ytVKvUYKI
+k3t05EoOTWUSCPlXwq4y6j1rOFuc4mpmXqdEkTUb2qfjkTJqaFEGi1/AxQ/Uat1nePDpsWbq6jXKkFE
/ab26UiUnBpKpBHzu3R/VK/Wdx+3m8tMi9TrlSCiflP7dCRKTg0l0qj51+n9m/X8O/bVeu/ifnO9udi0
Sr1uCSLqN7VPR6Lk1FAijZ7/uJ7/zH7JmwX5jxTebPy94FunXr8EEfWb2qcjUXJqKJHWkr9rn791r79/
v/8SH/9Nfn6id/5b324xN5mrTc3v8j8tNZMSRNRvap+ORMmpoUSi3NRMShBRv6l9OhIlp4YSiXJTMylB
RP2m9ulIlJwaSiTKTc2kBBH1m9qnI1FyaiiRKDc1kxJE1G9qn45EyamhRKLc1ExKEFG/qX06EiWnhhKJ
clMzKUFE/ab26UiUnBpKJMpNzaQEEfWb2qcjUXJqKJEoNzWTEkTUb2qfjkTJqaFEotzUTEoQUb+pfToS
JaeGEolyUzMpQUT9pvbpSJScGkokyk3NpAQR9ZvapyNRcmookSg3NZMSRNRvap+ORMmpoUSi3NRMShBR
v6l9OhIlp4YSiXJTMylBRP2m9ulIlJwaSiTKTc2kBBH1m9qnI1FyaiiRKDc1kxJE1G9qn45EyamhRKLc
1ExKEFG/qX06EiWnhhKJclMzKUFE/ab26UiUnBpKJMpNzaQEEfWb2qcjUXJqKJEoNzWTEkTUb2qfjkTJ
qaFEotzUTEoQUb+pfToSJaeGEolyUzMpQUT9pvbpSJScGkokyk3NpAQR9ZvapyNRcmookSg3NZMSRNRv
ap+ORMmpoUSi3NRMShBRv6l9OhIlp4YSiXJTMylBRP2m9ulIlJwaSiTKTc2kBBH1m9qnI1FyaiiRKDc1
kxJE1G9qn45EyamhRKLc1ExKEFG/qX06EiWnhhKJclMzKUFE/ab26UiUnBpKJMpNzaQEEfWb2qcjUXJq
KJEoNzWTEkTUb2qfjkTJqaFEotzUTEoQUb+pfToSJaeGEolyUzMpQUT9pvbpSJScGkokyk3NpAQR9Zva
pyNRcmookSg3NZMSRNRvap+ORMmpoUSi3NRMShBRv6l9OhIlp4YSiXJTMylBRP2m9ulIlJwaSiTKTc2k
BBH1m9qnI1FyaiiRKDc1kxJE1G9qn45EyamhRKLc1ExKEFG/qX06EiWnhhKJclMzKUFE/ab26UiUnBpK
JMpNzaQEEfWb2qcjUXJqKJEoNzWTEkTUb2qfjkTJqaFEotzUTEoQUb+pfToSJaeGEolyUzMpQUT9pvbp
SJScGkokyk3NpAQR9ZvapyNRcmookSg3NZMSRNRvap+ORMmpoUSi3NRMShBRv6l9OhIlp4YSiXJTMylB
RP2m9ulIlJwaSiTKTc2kBBH1m9qnI1FyaiiRKDc1kxJE1G9qn45EyamhRKLc1ExKEFG/qX06EiWnhhKJ
clMzKUFE/ab26UiUnBpKJMpNzaQEEfWb2qcjUXJqKJEoNzWTEkTUb2qfjkTJqaFEotzUTEoQUb+pfToS
JaeGEolyUzMpQUT9pvbpSJScGkokyk3NpAQR9ZvapyNRcmookSg3NZMSRNRvap+ORMmpoUSi3NRMShBR
v6l9OhIlp4YSiXJTMylBRP2m9ulIlJwaSiTKTc2kBBH1m9qnI1FyaiiRKDc1kxJE1G9qn460mi40zzZv
MO8wd5h7jdooAACgLT8H32luMTeZq81FplqXmhvNPUZ9AgAAYBn8ouBmc7nZO7+KuNbcZ9SLAACAZbrf
XG8uNkVdYm4zaqEAAKAPt5vLzE5dYe42akEAAKAvHzZ+bj+xJ5i7jFoAAADok9/Y+9N92QXmVqM+EAAA
9M2/tC9/SuAaoz4AAACMwb+5fyt/9M/P9AMAMDb/yT7/8f5z3WDUXwQAAGPx9/Y5zN/hjzf5AQBgHfyc
7+f+w7f3VX8BAACMyc/9h+/tr/4jAAAYk5/7D3+xj/qPAABgTH7uP/ytfuo/AgCAMfm5nx//AwBgZfzc
zwUAAAArc3gBwJcAAABYl8MvAfBNgAAArMvhNwHyY4AAAKzL4Y8B8kZAAACsy+EbAfFWwAAArMe5twL2
+GVAAACsw7lfBuTx64ABABjfeb8O2LvGqL8MAADGcK05rwvMrUZ9AAAA6Ntt5iIj8y8F3GXUBwIAgD7d
bS4xJ3aF8b+oFgAAAPryYePn9p3yqwR/VKAWBAAA+nC7ucwU5V8n8G8W8O8YVAsFAADLdL+53lxs9s5/
XMB/ZpA3CwIAYNn8R/pvNpebavm7BvlbB/r7B/svEfDfJMR7BwAAkMPPwXeaW8xN5moz+V3+2x0c/H/M
zhSZOVUOFwAAAABJRU5ErkJggg==
</value>
</data>
</root>

83
projetoLoja05/FVenda.vb Executable file
View File

@ -0,0 +1,83 @@
Public Class FVenda
Dim A As Double
'Definindo variável A (como Decimal) para uso futuro.
' VARIÁVEIS PARA JUROS '
Dim X = 0.03 '4x
Dim Y = 0.05 '5x
Dim Z = 0.07 '6x
Dim W = 0.1 '7x
'X 0.03 = 3%; Y 0.05 = 5%; Z 0.07 = 7%; W 0.1 = 10%
'VALOR/100 = VALOR%'
Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
Select Case ComboBox1.Text
'Caso escolha computador, irá fazer a PictureBox visível e mostrará a imagem "computador.png", além de configurar
'o preço do produto para R$ 2000,00
Case "Computador"
PictureBox1.Load("C:\projetoLoja05\projetoLoja05\img\produtos\computador.png")
PictureBox1.Visible = True
Label6.Text = CStr("2000,00")
'A mesma coisa acontece aqui e no caso cartucho, somente mudando o valor e a imagem à exibir.
Case "Impressora"
PictureBox1.Load("C:\projetoLoja05\projetoLoja05\img\produtos\impressora.png")
PictureBox1.Visible = True
Label6.Text = CStr("1500,00")
Case "Cartucho"
PictureBox1.Load("C:\projetoLoja05\projetoLoja05\img\produtos\cartucho.png")
PictureBox1.Visible = True
Label6.Text = CStr("100,00")
End Select
End Sub
Private Sub ComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox2.SelectedIndexChanged
Select Case ComboBox2.Text
Case "1 x Sem Juros"
'Caso escolher 1 x Sem Juros no ComboBox, o valor da parcela, logicamente será o valor do preço a vista
'E também isso ocorre no total a prazo, pois estará pagando uma vez somente.
Label7.Text = Label6.Text
Label8.Text = Label6.Text
Case "2 x Sem Juros"
Label7.Text = (Label6.Text) / 2
Label8.Text = Label6.Text
Case "3 x Sem Juros"
'Definindo o valor de A (variável definida no começo do código) como o texto dentro de Label6, ou seja, o valor à vista.
A = (Label6.Text) / 3
'A = (valor a vista) / 3
A = Math.Round(A, 2)
'Irá pegar este valor, arrendondá-lo 2 casas após a vírgula (ex: 2000/3 = 666,6666... -> 666,67)
Label7.Text = A
'Então esse valor será transferido para o Label7 (valor de parcela)
Label8.Text = Label6.Text
'Não irá mudar o valor de Label8, pois o valor a prazo não contém juros.
Case "4 x Com Juros"
A = (Label6.Text + (Label6.Text * X)) / 4
'Valor da parcela = (valor a vista + (valor a vista * juro)) / qtd. parcela
A = Math.Round(A, 2)
'Arrendonda p/ 2 casas decimais
Label7.Text = A
'Valor da parcela = A
Label8.Text = (Label6.Text + (Label6.Text * (4 * X))) 'X = 0.03, 3%
'Valor a prazo = Valor a vista + (Valor a vista * (parcelas * juros))
Case "5 x Com Juros"
A = (Label6.Text + (Label6.Text * Y)) / 5
A = Math.Round(A, 2)
Label7.Text = A
Label8.Text = (Label6.Text + (Label6.Text * (5 * Y))) 'Y = 0.05, 5%
Case "6 x Com Juros"
A = (Label6.Text + (Label6.Text * Z)) / 6
A = Math.Round(A, 2)
Label7.Text = A
Label8.Text = (Label6.Text + (Label6.Text * (6 * Z))) 'Z = 0.07, 7%
Case "7 x Com Juros"
A = (Label6.Text + (Label6.Text * W)) / 7
A = Math.Round(A, 2)
Label7.Text = A
Label8.Text = (Label6.Text + (Label6.Text * (7 * W))) 'W = 0.1, 10%
End Select
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Me.Hide()
FPrincipal.Show()
End Sub
End Class

38
projetoLoja05/My Project/Application.Designer.vb generated Executable file
View File

@ -0,0 +1,38 @@
'------------------------------------------------------------------------------
' <auto-generated>
' O código foi gerado por uma ferramenta.
' Versão de Tempo de Execução:4.0.30319.42000
'
' As alterações ao arquivo poderão causar comportamento incorreto e serão perdidas se
' o código for gerado novamente.
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On
Namespace My
'OBSERVAÇÃO: Esse arquivo é gerado automaticamente; não o modifique diretamente. Para fazer alterações,
' ou se você encontrar erros de compilação neste arquivo, vá para o Designer de Projeto
' (vá para Propriedades do Projeto ou clique duas vezes no nó Meu Projeto em
' Gerenciador de Soluções) e faça as alterações na guia Aplicativo.
'
Partial Friend Class MyApplication
<Global.System.Diagnostics.DebuggerStepThroughAttribute()> _
Public Sub New()
MyBase.New(Global.Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows)
Me.IsSingleInstance = false
Me.EnableVisualStyles = true
Me.SaveMySettingsOnExit = true
Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses
End Sub
<Global.System.Diagnostics.DebuggerStepThroughAttribute()> _
Protected Overrides Sub OnCreateMainForm()
Me.MainForm = Global.projetoLoja05.FPrincipal
End Sub
End Class
End Namespace

10
projetoLoja05/My Project/Application.myapp Executable file
View File

@ -0,0 +1,10 @@
<?xml version="1.0" encoding="utf-8"?>
<MyApplicationData xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
<MySubMain>true</MySubMain>
<MainForm>FPrincipal</MainForm>
<SingleInstance>false</SingleInstance>
<ShutdownMode>0</ShutdownMode>
<EnableVisualStyles>true</EnableVisualStyles>
<AuthenticationMode>0</AuthenticationMode>
<SaveMySettingsOnExit>true</SaveMySettingsOnExit>
</MyApplicationData>

35
projetoLoja05/My Project/AssemblyInfo.vb Executable file
View File

@ -0,0 +1,35 @@
Imports System
Imports System.Reflection
Imports System.Runtime.InteropServices
' As informações gerais sobre um assembly são controladas por
' conjunto de atributos. Altere estes valores de atributo para modificar as informações
' associada a um assembly.
' Revise os valores dos atributos do assembly
<Assembly: AssemblyTitle("projetoLoja05")>
<Assembly: AssemblyDescription("")>
<Assembly: AssemblyCompany("")>
<Assembly: AssemblyProduct("projetoLoja05")>
<Assembly: AssemblyCopyright("Copyright © 2018")>
<Assembly: AssemblyTrademark("")>
<Assembly: ComVisible(False)>
'O GUID a seguir será destinado à ID de typelib se este projeto for exposto para COM
<Assembly: Guid("9ccccd7d-1463-40d6-b9c6-f1ae2970848d")>
' As informações da versão de um assembly consistem nos quatro valores a seguir:
'
' Versão Principal
' Versão Secundária
' Número da Versão
' Revisão
'
' É possível especificar todos os valores ou usar como padrão os Números de Build e da Revisão
' utilizando o "*" como mostrado abaixo:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.0.0.0")>
<Assembly: AssemblyFileVersion("1.0.0.0")>

163
projetoLoja05/My Project/Resources.Designer.vb generated Executable file
View File

@ -0,0 +1,163 @@
'------------------------------------------------------------------------------
' <auto-generated>
' O código foi gerado por uma ferramenta.
' Versão de Tempo de Execução:4.0.30319.42000
'
' As alterações ao arquivo poderão causar comportamento incorreto e serão perdidas se
' o código for gerado novamente.
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On
Imports System
Namespace My.Resources
'Essa classe foi gerada automaticamente pela classe StronglyTypedResourceBuilder
'através de uma ferramenta como ResGen ou Visual Studio.
'Para adicionar ou remover um associado, edite o arquivo .ResX e execute ResGen novamente
'com a opção /str, ou recrie o projeto do VS.
'''<summary>
''' Uma classe de recurso de tipo de alta segurança, para pesquisar cadeias de caracteres localizadas etc.
'''</summary>
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "15.0.0.0"), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _
Friend Module Resources
Private resourceMan As Global.System.Resources.ResourceManager
Private resourceCulture As Global.System.Globalization.CultureInfo
'''<summary>
''' Retorna a instância de ResourceManager armazenada em cache usada por essa classe.
'''</summary>
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
Get
If Object.ReferenceEquals(resourceMan, Nothing) Then
Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("projetoLoja05.Resources", GetType(Resources).Assembly)
resourceMan = temp
End If
Return resourceMan
End Get
End Property
'''<summary>
''' Substitui a propriedade CurrentUICulture do thread atual para todas as
''' pesquisas de recursos que usam essa classe de recurso de tipo de alta segurança.
'''</summary>
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Friend Property Culture() As Global.System.Globalization.CultureInfo
Get
Return resourceCulture
End Get
Set
resourceCulture = value
End Set
End Property
'''<summary>
''' Consulta um recurso localizado do tipo System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property _return() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("_return", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Consulta um recurso localizado do tipo System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property cartucho() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("cartucho", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Consulta um recurso localizado do tipo System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property computador() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("computador", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Consulta um recurso localizado do tipo System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property icone() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("icone", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Consulta um recurso localizado do tipo System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property imgprod() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("imgprod", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Consulta um recurso localizado do tipo System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property imgsair() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("imgsair", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Consulta um recurso localizado do tipo System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property imgvenda() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("imgvenda", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Consulta um recurso localizado do tipo System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property impressora() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("impressora", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Consulta um recurso localizado do tipo System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property monitor() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("monitor", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Consulta um recurso localizado do tipo System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property shopping_cart_32() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("shopping_cart_32", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
End Module
End Namespace

151
projetoLoja05/My Project/Resources.resx Executable file
View File

@ -0,0 +1,151 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="cartucho" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\img\produtos\cartucho.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="computador" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\img\produtos\computador.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="icone" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\img\icone.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="imgprod" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\img\imgprod.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="imgsair" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\img\imgsair.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="imgvenda" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\img\imgvenda.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="impressora" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\img\produtos\impressora.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="monitor" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\img\icones\monitor.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="shopping_cart_32" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\img\icones\shopping-cart-32.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="_return" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\img\icones\return.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
</root>

73
projetoLoja05/My Project/Settings.Designer.vb generated Executable file
View File

@ -0,0 +1,73 @@
'------------------------------------------------------------------------------
' <auto-generated>
' This code was generated by a tool.
' Runtime Version:4.0.30319.42000
'
' Changes to this file may cause incorrect behavior and will be lost if
' the code is regenerated.
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On
Namespace My
<Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "11.0.0.0"), _
Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Partial Friend NotInheritable Class MySettings
Inherits Global.System.Configuration.ApplicationSettingsBase
Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings), MySettings)
#Region "My.Settings Auto-Save Functionality"
#If _MyType = "WindowsForms" Then
Private Shared addedHandler As Boolean
Private Shared addedHandlerLockObject As New Object
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs)
If My.Application.SaveMySettingsOnExit Then
My.Settings.Save()
End If
End Sub
#End If
#End Region
Public Shared ReadOnly Property [Default]() As MySettings
Get
#If _MyType = "WindowsForms" Then
If Not addedHandler Then
SyncLock addedHandlerLockObject
If Not addedHandler Then
AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
addedHandler = True
End If
End SyncLock
End If
#End If
Return defaultInstance
End Get
End Property
End Class
End Namespace
Namespace My
<Global.Microsoft.VisualBasic.HideModuleNameAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()> _
Friend Module MySettingsProperty
<Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")> _
Friend ReadOnly Property Settings() As Global.projetoLoja05.My.MySettings
Get
Return Global.projetoLoja05.My.MySettings.Default
End Get
End Property
End Module
End Namespace

7
projetoLoja05/My Project/Settings.settings Executable file
View File

@ -0,0 +1,7 @@
<?xml version='1.0' encoding='utf-8'?>
<SettingsFile xmlns="http://schemas.microsoft.com/VisualStudio/2004/01/settings" CurrentProfile="(Default)" UseMySettingsClassName="true">
<Profiles>
<Profile Name="(Default)" />
</Profiles>
<Settings />
</SettingsFile>

BIN
projetoLoja05/img/icone.png Executable file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 11 KiB

BIN
projetoLoja05/img/icones/monitor.png Executable file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 655 B

BIN
projetoLoja05/img/icones/return.png Executable file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 605 B

BIN
projetoLoja05/img/icones/shopping-cart-32.png Executable file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 755 B

BIN
projetoLoja05/img/imgprod.png Executable file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 4.5 KiB

BIN
projetoLoja05/img/imgsair.png Executable file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 39 KiB

BIN
projetoLoja05/img/imgvenda.png Executable file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 33 KiB

BIN
projetoLoja05/img/produtos/cartucho.png Executable file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 177 KiB

BIN
projetoLoja05/img/produtos/computador.png Executable file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 38 KiB

BIN
projetoLoja05/img/produtos/impressora.png Executable file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 181 KiB

211
projetoLoja05/projetoLoja05.vbproj Executable file
View File

@ -0,0 +1,211 @@
<?xml version="1.0" encoding="utf-8"?>
<Project ToolsVersion="15.0" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<Import Project="$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props" Condition="Exists('$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props')" />
<PropertyGroup>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<ProjectGuid>{33CF386E-4F39-431D-B742-A2DFBF420FEF}</ProjectGuid>
<OutputType>WinExe</OutputType>
<StartupObject>projetoLoja05.My.MyApplication</StartupObject>
<RootNamespace>projetoLoja05</RootNamespace>
<AssemblyName>projetoLoja05</AssemblyName>
<FileAlignment>512</FileAlignment>
<MyType>WindowsForms</MyType>
<TargetFrameworkVersion>v4.6.1</TargetFrameworkVersion>
<AutoGenerateBindingRedirects>true</AutoGenerateBindingRedirects>
<IsWebBootstrapper>false</IsWebBootstrapper>
<PublishUrl>C:\Users\FCR\testecom\</PublishUrl>
<Install>true</Install>
<InstallFrom>Disk</InstallFrom>
<UpdateEnabled>false</UpdateEnabled>
<UpdateMode>Foreground</UpdateMode>
<UpdateInterval>7</UpdateInterval>
<UpdateIntervalUnits>Days</UpdateIntervalUnits>
<UpdatePeriodically>false</UpdatePeriodically>
<UpdateRequired>false</UpdateRequired>
<MapFileExtensions>true</MapFileExtensions>
<ApplicationRevision>2</ApplicationRevision>
<ApplicationVersion>1.0.0.%2a</ApplicationVersion>
<UseApplicationTrust>false</UseApplicationTrust>
<PublishWizardCompleted>true</PublishWizardCompleted>
<BootstrapperEnabled>true</BootstrapperEnabled>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<PlatformTarget>AnyCPU</PlatformTarget>
<DebugSymbols>true</DebugSymbols>
<DebugType>full</DebugType>
<DefineDebug>true</DefineDebug>
<DefineTrace>true</DefineTrace>
<OutputPath>bin\Debug\</OutputPath>
<DocumentationFile>projetoLoja05.xml</DocumentationFile>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<PlatformTarget>AnyCPU</PlatformTarget>
<DebugType>pdbonly</DebugType>
<DefineDebug>false</DefineDebug>
<DefineTrace>true</DefineTrace>
<Optimize>true</Optimize>
<OutputPath>bin\Release\</OutputPath>
<DocumentationFile>projetoLoja05.xml</DocumentationFile>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
</PropertyGroup>
<PropertyGroup>
<OptionExplicit>On</OptionExplicit>
</PropertyGroup>
<PropertyGroup>
<OptionCompare>Binary</OptionCompare>
</PropertyGroup>
<PropertyGroup>
<OptionStrict>Off</OptionStrict>
</PropertyGroup>
<PropertyGroup>
<OptionInfer>On</OptionInfer>
</PropertyGroup>
<PropertyGroup>
<ManifestCertificateThumbprint>53FE506BC95F34497C09FB4B0845EFAE13A5CFD3</ManifestCertificateThumbprint>
</PropertyGroup>
<PropertyGroup>
<ManifestKeyFile>projetoLoja05_TemporaryKey.pfx</ManifestKeyFile>
</PropertyGroup>
<PropertyGroup>
<GenerateManifests>true</GenerateManifests>
</PropertyGroup>
<PropertyGroup>
<SignManifests>true</SignManifests>
</PropertyGroup>
<ItemGroup>
<Reference Include="System" />
<Reference Include="System.Data" />
<Reference Include="System.Deployment" />
<Reference Include="System.Drawing" />
<Reference Include="System.Windows.Forms" />
<Reference Include="System.Xml" />
<Reference Include="System.Core" />
<Reference Include="System.Xml.Linq" />
<Reference Include="System.Data.DataSetExtensions" />
<Reference Include="System.Net.Http" />
</ItemGroup>
<ItemGroup>
<Import Include="Microsoft.VisualBasic" />
<Import Include="System" />
<Import Include="System.Collections" />
<Import Include="System.Collections.Generic" />
<Import Include="System.Data" />
<Import Include="System.Drawing" />
<Import Include="System.Diagnostics" />
<Import Include="System.Windows.Forms" />
<Import Include="System.Linq" />
<Import Include="System.Xml.Linq" />
<Import Include="System.Threading.Tasks" />
</ItemGroup>
<ItemGroup>
<Compile Include="FPrincipal.Designer.vb">
<DependentUpon>FPrincipal.vb</DependentUpon>
</Compile>
<Compile Include="FPrincipal.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="FProduto.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="FProduto.Designer.vb">
<DependentUpon>FProduto.vb</DependentUpon>
<SubType>Form</SubType>
</Compile>
<Compile Include="FVenda.Designer.vb">
<DependentUpon>FVenda.vb</DependentUpon>
</Compile>
<Compile Include="FVenda.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="My Project\AssemblyInfo.vb" />
<Compile Include="My Project\Application.Designer.vb">
<AutoGen>True</AutoGen>
<DependentUpon>Application.myapp</DependentUpon>
</Compile>
<Compile Include="My Project\Resources.Designer.vb">
<AutoGen>True</AutoGen>
<DesignTime>True</DesignTime>
<DependentUpon>Resources.resx</DependentUpon>
</Compile>
<Compile Include="My Project\Settings.Designer.vb">
<AutoGen>True</AutoGen>
<DependentUpon>Settings.settings</DependentUpon>
<DesignTimeSharedInput>True</DesignTimeSharedInput>
</Compile>
</ItemGroup>
<ItemGroup>
<EmbeddedResource Include="FPrincipal.resx">
<DependentUpon>FPrincipal.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="FProduto.resx">
<DependentUpon>FProduto.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="FVenda.resx">
<DependentUpon>FVenda.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="My Project\Resources.resx">
<Generator>VbMyResourcesResXFileCodeGenerator</Generator>
<LastGenOutput>Resources.Designer.vb</LastGenOutput>
<CustomToolNamespace>My.Resources</CustomToolNamespace>
<SubType>Designer</SubType>
</EmbeddedResource>
</ItemGroup>
<ItemGroup>
<None Include="My Project\Application.myapp">
<Generator>MyApplicationCodeGenerator</Generator>
<LastGenOutput>Application.Designer.vb</LastGenOutput>
</None>
<None Include="My Project\Settings.settings">
<Generator>SettingsSingleFileGenerator</Generator>
<CustomToolNamespace>My</CustomToolNamespace>
<LastGenOutput>Settings.Designer.vb</LastGenOutput>
</None>
<None Include="App.config" />
<None Include="projetoLoja05_TemporaryKey.pfx" />
</ItemGroup>
<ItemGroup>
<BootstrapperPackage Include=".NETFramework,Version=v4.6.1">
<Visible>False</Visible>
<ProductName>Microsoft .NET Framework 4.6.1 %28x86 e x64%29</ProductName>
<Install>true</Install>
</BootstrapperPackage>
<BootstrapperPackage Include="Microsoft.Net.Framework.3.5.SP1">
<Visible>False</Visible>
<ProductName>.NET Framework 3.5 SP1</ProductName>
<Install>false</Install>
</BootstrapperPackage>
</ItemGroup>
<ItemGroup>
<None Include="img\icone.png" />
</ItemGroup>
<ItemGroup>
<None Include="img\imgprod.png" />
</ItemGroup>
<ItemGroup>
<None Include="img\imgsair.png" />
</ItemGroup>
<ItemGroup>
<None Include="img\imgvenda.png" />
</ItemGroup>
<ItemGroup>
<None Include="img\icones\monitor.png" />
</ItemGroup>
<ItemGroup>
<None Include="img\icones\return.png" />
</ItemGroup>
<ItemGroup>
<None Include="img\icones\shopping-cart-32.png" />
</ItemGroup>
<ItemGroup>
<None Include="img\produtos\cartucho.png" />
</ItemGroup>
<ItemGroup>
<None Include="img\produtos\computador.png" />
</ItemGroup>
<ItemGroup>
<None Include="img\produtos\impressora.png" />
</ItemGroup>
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
</Project>