8/15/2019 Carros Motos Electrodomesticos
1/35
Private Sub ComboBox1_Change()
If ComboBox1.Text = "KIA" Then
ComboBox.C!ear
ComboBox.AItem "#$%$ C$#C&PT"ComboBox.AItem "'I$"
ComboBox.AItem "SP$'TA&"
ComboBox.AItem "C&'AT$"
ComboBox.AItem "PICA#T$ T#I#"
&n If
If ComboBox1.Text = "A*I" Then
ComboBox.C!ear
ComboBox.AItem "S+"
ComboBox.AItem "'+ SP,*&'"
ComboBox.AItem "-APAP&' 'S/"
ComboBox.AItem "CA0I$#&TA /"
ComboBox.AItem "2"
&n If
If ComboBox1.Text = "3$'*" Then
ComboBox.C!ear
ComboBox.AItem "KA"
ComboBox.AItem "0STA# CASIC$"
ComboBox.AItem "0STA# "
ComboBox.AItem "'APT$'"
ComboBox.AItem "3I&STA"
&n If
If ComboBox1.Text = "#ISSA#" Then
ComboBox.C!ear
8/15/2019 Carros Motos Electrodomesticos
2/35
ComboBox.AItem "0A'C4"
ComboBox.AItem "SK,I#&"
ComboBox.AItem "5K&"
ComboBox.AItem "2/67"ComboBox.AItem "CA0I$#&TA"
&n If
If ComboBox1.Text = "B0-" Then
ComboBox.C!ear
ComboBox.AItem "I+"
ComboBox.AItem "89"
ComboBox.AItem "I+ SP,*&'"
ComboBox.AItem "CA0I$#&TA"
ComboBox.AItem "S&'I& 1"
&n If
If ComboBox1.Text = "0&'C&*&S" Then
ComboBox.C!ear
ComboBox.AItem "B CAS& C"
ComboBox.AItem "S 9/ A0"
ComboBox.AItem "B A0 T"
ComboBox.AItem "B SS A0"
ComboBox.AItem "B SS A0 T2"
&n If
&n Sub
Private Sub ComboBox_Change()
8/15/2019 Carros Motos Electrodomesticos
3/35
If ComboBox.Text = "#$%$ C$#C&PT" Then
Image1.Pi:ture = oaPi:ture("3;g")
&n If
If ComboBox.Text = "SP$'TA&" Then
Image1.Pi:ture = oaPi:ture("3;g")
&n If
If ComboBox.Text = "CA0I$#&TA /" Then
Image1.Pi:ture = oaPi:ture("3;
8/15/2019 Carros Motos Electrodomesticos
4/35
Image1.Pi:ture = oaPi:ture("3;
8/15/2019 Carros Motos Electrodomesticos
5/35
If ComboBox.Text = "I+" Then
Image1.Pi:ture = oaPi:ture("3;g")
&n If
If ComboBox.Text = "CA0I$#&TA" Then
Image1.Pi:ture = oaPi:ture("3;
8/15/2019 Carros Motos Electrodomesticos
6/35
Private Sub ComboBox_C!i:?()
If ComboBox.Text = "#$%$ C$#C&PT" Then
TextBox1.Text = "KIA #$%$ C$#C&PT" TextBox.Text = "?ia"
TextBox2.Text = "novo :on:e>t"
[email protected] = "@/666666"
&n If
If ComboBox.Text = "'I$" Then
TextBox1.Text = "KIA 'I$"
TextBox.Text = "?ia"
TextBox2.Text = "'I$"
[email protected] = "9/666666"
&n If
If ComboBox.Text = "SP$'TA&" Then
TextBox1.Text = "KIA SP$'TA&"
TextBox.Text = "?ia"
TextBox2.Text = "SP$'TA&"
[email protected] = "1/6666666"
&n If
If ComboBox.Text = "C&'AT$" Then
TextBox1.Text = "KIA C&'AT$"
TextBox.Text = "?ia"
TextBox2.Text = "C&'AT$"
[email protected] = "//666666"
&n If
If ComboBox.Text = "PICA#T$ T#I#" Then
TextBox1.Text = "KIA PICA#T$ T#I#"
TextBox.Text = "?ia"
TextBox2.Text = "PICA#T$ T#I#"
[email protected] = "166666666"
8/15/2019 Carros Motos Electrodomesticos
7/35
&n If
If ComboBox.Text = "S+" Then
TextBox1.Text = "A*I S+"
TextBox.Text = "A*I" TextBox2.Text = "S+"
[email protected] = "/666666"
&n If
If ComboBox.Text = "'+ SP,*&'" Then
TextBox1.Text = "A*I '+ SP,*&'"
TextBox.Text = "A*I"
TextBox2.Text = "'+ S,*&'"
[email protected] = "/666666"
&n If
If ComboBox.Text = "-APAP&' 'S/" Then
TextBox1.Text = "A*I -APAP&' 'S/"
TextBox.Text = "A*I"
TextBox2.Text = "-APAP&' 'S/"
[email protected] = "6666666"
&n If
If ComboBox.Text = "CA0I$#&TA /" Then
TextBox1.Text = "A*I CA0I$#&TA /"
TextBox.Text = "A*I"
TextBox2.Text = "CA0I$#&TA /"
[email protected] = "16666666"
&n If
If ComboBox.Text = "2" Then
TextBox1.Text = "A*I 2"
TextBox.Text = "A*I"
TextBox2.Text = "2"
[email protected] = "+666666"
&n If
If ComboBox.Text = "KA" Then
8/15/2019 Carros Motos Electrodomesticos
8/35
TextBox1.Text = "3$'* KA"
TextBox.Text = "3$'*"
TextBox2.Text = "KA"
[email protected] = "+666666"&n If
If ComboBox.Text = "0STA# CASIC$" Then
TextBox1.Text = "3$'* 0STA# CASIC$"
TextBox.Text = "3$'*"
TextBox2.Text = "0STA# CASIC$"
[email protected] = "666666"
&n If
If ComboBox.Text = "0STA#" Then
TextBox1.Text = "3$'* 0STA#"
TextBox.Text = "3$'*"
TextBox2.Text = "0STA# CASIC$"
[email protected] = "9666666"
&n If
If ComboBox.Text = "'APT$'" Then
TextBox1.Text = "3$'* 'APT$'"
TextBox.Text = "3$'*"
TextBox2.Text = "'APT$'"
[email protected] = "666666"
&n If
If ComboBox.Text = "3I&STA" Then
TextBox1.Text = "3$'* 3I&STA"
TextBox.Text = "3$'*"
TextBox2.Text = "3I&STA"
[email protected] = "1666666"
&n If
If ComboBox.Text = "0A'C4" Then
TextBox1.Text = "#ISSA# 0A'C4"
TextBox.Text = "#ISSA#"
8/15/2019 Carros Motos Electrodomesticos
9/35
TextBox2.Text = "0A'C4"
[email protected] = "1666666"
&n If
If ComboBox.Text = "SK,I#&" Then TextBox1.Text = "#ISSA# SK,I#&"
TextBox.Text = "#ISSA#"
TextBox2.Text = "SK,I#&"
[email protected] = "166666666"
&n If
If ComboBox.Text = "5K&" Then
TextBox1.Text = "#ISSA# 5K&"
TextBox.Text = "#ISSA#"
TextBox2.Text = "5K&"
[email protected] = "16+666666"
&n If
If ComboBox.Text = "2/67" Then
TextBox1.Text = "#ISSA# 2/67"
TextBox.Text = "#ISSA#"
TextBox2.Text = "2/67"
[email protected] = "16666666"
&n If
If ComboBox.Text = "CA0I$#&TA" Then
TextBox1.Text = "#ISSA# CA0I$#&TA"
TextBox.Text = "#ISSA#"
TextBox2.Text = "CA0I$#&TA"
[email protected] = "1+6666666"
&n If
If ComboBox.Text = "S&'I& 1" Then
TextBox1.Text = "B0- S&'I& 1"
TextBox.Text = "B0-"
TextBox2.Text = "S&'I& 1"
[email protected] = "16+66666"
8/15/2019 Carros Motos Electrodomesticos
10/35
&n If
If ComboBox.Text = "I+" Then
TextBox1.Text = "B0- I+"
TextBox.Text = "B0-" TextBox2.Text = "I+"
[email protected] = "66666666"
&n If
If ComboBox.Text = "89" Then
TextBox1.Text = "B0- 89"
TextBox.Text = "B0-"
TextBox2.Text = "89"
[email protected] = "+666666"
&n If
If ComboBox.Text = "I+ SP,*&'" Then
TextBox1.Text = "B0- I+ SP,*&'"
TextBox.Text = "B0-"
TextBox2.Text = "I+ SP,*&'"
[email protected] = "+66666"
&n If
If ComboBox.Text = "CA0I$#&TA" Then
TextBox1.Text = "B0- CA0I$#&TA"
TextBox.Text = "B0-"
TextBox2.Text = "CA0I$#&TA"
[email protected] = "++66666"
&n If
If ComboBox.Text = "S 9/ A0" Then
TextBox1.Text = "0&'C&*&S S 9/ A0"
TextBox.Text = "0&'C&*&S"
TextBox2.Text = "S 9/ A0"
[email protected] = "266666"
&n If
If ComboBox.Text = "B A0 T" Then
8/15/2019 Carros Motos Electrodomesticos
11/35
8/15/2019 Carros Motos Electrodomesticos
12/35
Private Sub CommanButton1_C!i:?()
TextBox1.&nab!e = True
TextBox.&nab!e = True
TextBox2.&nab!e = True TextBox@.&nab!e = True
TextBox/.&nab!e = True
TextBox9.&nab!e = True
TextBox.&nab!e = True
TextBox+.&nab!e = True
TextBox.&nab!e = True
TextBox1.Text = ""
TextBox.Text = ""
TextBox2.Text = ""
[email protected] = ""
TextBox/.Text = ""
TextBox9.Text = ""
TextBox.Text = ""
TextBox+.Text = ""
TextBox.Text = ""
TextBox1.Set3o:u
TextBox.Set3o:u
TextBox2.Set3o:u
TextBox/.Set3o:u
TextBox9.Set3o:u
TextBox.Set3o:u
TextBox+.Set3o:u
TextBox.Set3o:u
8/15/2019 Carros Motos Electrodomesticos
13/35
&n Sub
Private Sub CommanButton_C!i:?()er3orm.ShoD
&n Sub
Private Sub TextBox/_Change()
TextBox9.Text = %a!([email protected]) E %a!(TextBox/.Text)
TextBox.Text = %a!(TextBox9.Text) E 6.19
TextBox+.Text = %a!(TextBox.Text) E 6.1
TextBox.Text = %a!(TextBox+.Text) F %a!(TextBox.Text) G %a!(TextBox+.Text)
&n Sub
Private Sub er3orm_A:tivate()
ComboBox1.AItem "KIA"
ComboBox1.AItem "A*I"
ComboBox1.AItem "3$'*"
ComboBox1.AItem "#ISSA#"
ComboBox1.AItem "B0-"
ComboBox1.AItem "0&'C&*&S"
&n Sub
Private Sub er3orm_C!i:?()
ComboBox1.AItem "KIA"
&n Sub
8/15/2019 Carros Motos Electrodomesticos
14/35
MOTOS
Private Sub Che:?Box1_C!i:?()
If abe!11.Ca>tion = "2" Then
TextBox.Text = %a!(TextBox/.Text) E 6./
&n If
&n Sub
Private Sub CommanButton1_C!i:?()
$>tionButton1.%a!ue = 3a!e
$>tionButton.%a!ue = 3a!e
$>tionButton2.%a!ue = 3a!e
$>tionButton@.%a!ue = 3a!e
$>tionButton/.%a!ue = 3a!e
$>tionButton9.%a!ue = 3a!e
$>tionButton.%a!ue = 3a!e
$>tionButton+.%a!ue = 3a!e
$>tionButton.%a!ue = 3a!e
$>tionButton16.%a!ue = 3a!e
Che:?Box1.%a!ue = 3a!e
Image1.Pi:ture = oaPi:ture("") TextBox1.Text = ""
TextBox.Text = ""
TextBox2.Text = ""
[email protected] = ""
TextBox/.Text = ""
TextBox9.Text = ""
TextBox.Text = ""
TextBox+.Text = ""
8/15/2019 Carros Motos Electrodomesticos
15/35
TextBox.Text = ""
abe!11.Ca>tion = ""
&n Sub
Private Sub CommanButton2_C!i:?()
abe!11.Ca>tion = Int(/ E 'n F 1)
&n Sub
Private Sub abe!11_C!i:?()
&n Sub
Private Sub $>tionButton1_C!i:?()
If $>tionButton1.%a!ue = True An $>tionButton9.%a!ue = True Then
Image1.Pi:ture = oaPi:ture("3;
8/15/2019 Carros Motos Electrodomesticos
16/35
If $>tionButton1.%a!ue = True An $>tionButton+.%a!ue = True Then
Image1.Pi:ture = oaPi:ture("3;
8/15/2019 Carros Motos Electrodomesticos
17/35
Image1.Pi:ture = oaPi:ture("3;
8/15/2019 Carros Motos Electrodomesticos
18/35
If $>tionButton@.%a!ue = True An $>tionButton16.%a!ue = True Then
Image1.Pi:ture = oaPi:ture("3;
8/15/2019 Carros Motos Electrodomesticos
19/35
&n If
If $>tionButton.%a!ue = True An $>tionButton.%a!ue = True Then
Image1.Pi:ture = oaPi:ture("3;
8/15/2019 Carros Motos Electrodomesticos
20/35
TextBox1.Text = ",A0A4A 612"
TextBox.Text = ",A0A4A"
TextBox2.Text = "612"
[email protected] = "+666666"&n If
If $>tionButton2.%a!ue = True An $>tionButton+.%a!ue = True Then
Image1.Pi:ture = oaPi:ture("3;
8/15/2019 Carros Motos Electrodomesticos
21/35
Private Sub $>tionButton@_C!i:?()
If $>tionButton@.%a!ue = True An $>tionButton9.%a!ue = True Then
Image1.Pi:ture = oaPi:ture("3;
8/15/2019 Carros Motos Electrodomesticos
22/35
If $>tionButton@.%a!ue = True An $>tionButton16.%a!ue = True Then
Image1.Pi:ture = oaPi:ture("3;
8/15/2019 Carros Motos Electrodomesticos
23/35
[email protected] = "19666666"
&n If
If $>tionButton@.%a!ue = True An $>tionButton.%a!ue = True ThenImage1.Pi:ture = oaPi:ture("3;
8/15/2019 Carros Motos Electrodomesticos
24/35
TextBox.Text = "S7KI"
TextBox2.Text = "61"
[email protected] = "1/666666"
&n If
If $>tionButton2.%a!ue = True An $>tionButton9.%a!ue = True Then
Image1.Pi:ture = oaPi:ture("3;
8/15/2019 Carros Motos Electrodomesticos
25/35
Image1.Pi:ture = oaPi:ture("3;
8/15/2019 Carros Motos Electrodomesticos
26/35
Image1.Pi:ture = oaPi:ture("3;
8/15/2019 Carros Motos Electrodomesticos
27/35
&n If
If $>tionButton@.%a!ue = True An $>tionButton+.%a!ue = True ThenImage1.Pi:ture = oaPi:ture("3;
8/15/2019 Carros Motos Electrodomesticos
28/35
Image1.Pi:ture = oaPi:ture("3;
8/15/2019 Carros Motos Electrodomesticos
29/35
Private Sub TextBox/_Change()
TextBox9.Text = %a!([email protected]) E %a!(TextBox/.Text)
TextBox.Text = %a!(TextBox9.Text) E 6.19
TextBox+.Text = %a!(TextBox.Text) E 6.1 TextBox.Text = %a!(TextBox+.Text) F %a!(TextBox.Text) G %a!(TextBox+.Text)
&n Sub
ELECTRODOMESTICOS
Private Sub Che:?Box1_C!i:?()
If itBox1.Text = "A%A*$'A" Then
TextBox2.Text = "1/66666"
Che:?Box.%a!ue = 3a!e
Che:?Box2.%a!ue = 3a!e
&n If
If itBox1.Text = "#&%&'A" Then
TextBox2.Text = "666666"
Che:?Box.%a!ue = 3a!e
Che:?Box2.%a!ue = 3a!e
&n If
If itBox1.Text = "C$0PTA*$'" Then
TextBox2.Text = "666666"
Che:?Box.%a!ue = 3a!e
Che:?Box2.%a!ue = 3a!e&n If
If itBox1.Text = "0IC'$$#*AS" Then
TextBox2.Text = "1666666"
Che:?Box.%a!ue = 3a!e
Che:?Box2.%a!ue = 3a!e
&n If
8/15/2019 Carros Motos Electrodomesticos
30/35
If itBox1.Text = "T&&%IS$'" Then
TextBox2.Text = "666666"
Che:?Box.%a!ue = 3a!e
Che:?Box2.%a!ue = 3a!e&n If
&n Sub
Private Sub Che:?Box_C!i:?()
If itBox1.Text = "A%A*$'A" Then
TextBox2.Text = "1666666"
Che:?Box1.%a!ue = 3a!e
Che:?Box2.%a!ue = 3a!e
&n If
If itBox1.Text = "#&%&'A" Then
TextBox2.Text = "166666"
Che:?Box1.%a!ue = 3a!e
Che:?Box2.%a!ue = 3a!e
&n If
If itBox1.Text = "C$0PTA*$'" Then
TextBox2.Text = "1/66666"
Che:?Box1.%a!ue = 3a!e
Che:?Box2.%a!ue = 3a!e
&n If
If itBox1.Text = "0IC'$$#*AS" Then
TextBox2.Text = "1666666"
Che:?Box1.%a!ue = 3a!e
Che:?Box2.%a!ue = 3a!e
&n If
8/15/2019 Carros Motos Electrodomesticos
31/35
If itBox1.Text = "T&&%IS$'" Then
TextBox2.Text = "166666"
Che:?Box1.%a!ue = 3a!e
Che:?Box2.%a!ue = 3a!e&n If
&n Sub
Private Sub Che:?Box2_C!i:?()
If itBox1.Text = "A%A*$'A" Then
TextBox2.Text = "66666"
Che:?Box1.%a!ue = 3a!e
Che:?Box.%a!ue = 3a!e
&n If
If itBox1.Text = "#&%&'A" Then
TextBox2.Text = "+/6666"
Che:?Box1.%a!ue = 3a!e
Che:?Box.%a!ue = 3a!e
&n If
If itBox1.Text = "C$0PTA*$'" Then
TextBox2.Text = "+66666"
Che:?Box1.%a!ue = 3a!e
Che:?Box.%a!ue = 3a!e
&n If
If itBox1.Text = "0IC'$$#*AS" Then
TextBox2.Text = "/66666"
Che:?Box1.%a!ue = 3a!e
Che:?Box.%a!ue = 3a!e
&n If
8/15/2019 Carros Motos Electrodomesticos
32/35
If itBox1.Text = "T&&%IS$'" Then
TextBox2.Text = "66666"
Che:?Box1.%a!ue = 3a!e
Che:?Box.%a!ue = 3a!e&n If
&n Sub
Private Sub CommanButton1_C!i:?()
TextBox1.Text = ""
TextBox.Text = ""
TextBox2.Text = ""
[email protected] = ""
TextBox/.Text = ""
TextBox9.Text = ""
TextBox.Text = ""
TextBox+.Text = ""
Image1.Pi:ture = oaPi:ture("")
Che:?Box1.%a!ue = 3a!e
Che:?Box.%a!ue = 3a!e
Che:?Box2.%a!ue = 3a!e
itBox1.C!ear
&n Sub
Private Sub CommanButton_C!i:?()
*im SAI' A BHte
SAI' = 0gBox("*&S&A SAI' *& A APICACI$#"J 2 F @J "SAI'")
If SAI' = 9 Then
&n
&n If
8/15/2019 Carros Motos Electrodomesticos
33/35
&n Sub
Private Sub itBox1_C!i:?()
If itBox1.Text = "A%A*$'A" Then
TextBox1.Text = "A%A*$'A"
TextBox.Text = "-4I'P$$"
TextBox2.Text = "1666666"
Image1.Pi:ture = oaPi:ture("3;
8/15/2019 Carros Motos Electrodomesticos
34/35
abe!12.Ba:?Co!or = BCo!or()
[email protected]:?Co!or = BCo!or(@)
abe!1/.Ba:?Co!or = BCo!or(1/)
&n If
If itBox1.Text = "0IC'$$#*AS" Then
TextBox1.Text = "0IC'$$#*AS"
TextBox.Text = "-4I'P$$"
TextBox2.Text = "1666666"
Image1.Pi:ture = oaPi:ture("3;
8/15/2019 Carros Motos Electrodomesticos
35/35
TextBox9.Text = %a!(TextBox/.Text) E 6.19
TextBox.Text = %a!(TextBox9.Text) E 6.1
TextBox+.Text = %a!(TextBox.Text) F %a!(TextBox9.Text) G %a!(TextBox.Text)
&n Sub
Private Sub er3orm_A:tivate()
itBox1.AItem "A%A*$'A"
itBox1.AItem "#&%&'A"
itBox1.AItem "C$0PTA*$'"
itBox1.AItem "0IC'$$#*AS"
itBox1.AItem "T&&%IS$'"
&n Sub