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"

 TextBox@.Text = "@/666666"

&n If 

If ComboBox.Text = "'I$" Then

 TextBox1.Text = "KIA 'I$"

 TextBox.Text = "?ia"

 TextBox2.Text = "'I$"

 TextBox@.Text = "9/666666"

&n If 

If ComboBox.Text = "SP$'TA&" Then

 TextBox1.Text = "KIA SP$'TA&"

 TextBox.Text = "?ia"

 TextBox2.Text = "SP$'TA&"

 TextBox@.Text = "1/6666666"

&n If 

If ComboBox.Text = "C&'AT$" Then

 TextBox1.Text = "KIA C&'AT$"

 TextBox.Text = "?ia"

 TextBox2.Text = "C&'AT$"

 TextBox@.Text = "//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#"

 TextBox@.Text = "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+"

 TextBox@.Text = "/666666"

&n If 

If ComboBox.Text = "'+ SP,*&'" Then

 TextBox1.Text = "A*I '+ SP,*&'"

 TextBox.Text = "A*I"

 TextBox2.Text = "'+ S,*&'"

 TextBox@.Text = "/666666"

&n If 

If ComboBox.Text = "-APAP&' 'S/" Then

 TextBox1.Text = "A*I -APAP&' 'S/"

 TextBox.Text = "A*I"

 TextBox2.Text = "-APAP&' 'S/"

 TextBox@.Text = "6666666"

&n If 

If ComboBox.Text = "CA0I$#&TA /" Then

 TextBox1.Text = "A*I CA0I$#&TA /"

 TextBox.Text = "A*I"

 TextBox2.Text = "CA0I$#&TA /"

 TextBox@.Text = "16666666"

&n If 

If ComboBox.Text = "2" Then

 TextBox1.Text = "A*I 2"

 TextBox.Text = "A*I"

 TextBox2.Text = "2"

 TextBox@.Text = "+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"

 TextBox@.Text = "+666666"&n If 

If ComboBox.Text = "0STA# CASIC$" Then

 TextBox1.Text = "3$'* 0STA# CASIC$"

 TextBox.Text = "3$'*"

 TextBox2.Text = "0STA# CASIC$"

 TextBox@.Text = "666666"

&n If 

If ComboBox.Text = "0STA#" Then

 TextBox1.Text = "3$'* 0STA#"

 TextBox.Text = "3$'*"

 TextBox2.Text = "0STA# CASIC$"

 TextBox@.Text = "9666666"

&n If 

If ComboBox.Text = "'APT$'" Then

 TextBox1.Text = "3$'* 'APT$'"

 TextBox.Text = "3$'*"

 TextBox2.Text = "'APT$'"

 TextBox@.Text = "666666"

&n If 

If ComboBox.Text = "3I&STA" Then

 TextBox1.Text = "3$'* 3I&STA"

 TextBox.Text = "3$'*"

 TextBox2.Text = "3I&STA"

 TextBox@.Text = "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"

 TextBox@.Text = "1666666"

&n If 

If ComboBox.Text = "SK,I#&" Then TextBox1.Text = "#ISSA# SK,I#&"

 TextBox.Text = "#ISSA#"

 TextBox2.Text = "SK,I#&"

 TextBox@.Text = "166666666"

&n If 

If ComboBox.Text = "5K&" Then

 TextBox1.Text = "#ISSA# 5K&"

 TextBox.Text = "#ISSA#"

 TextBox2.Text = "5K&"

 TextBox@.Text = "16+666666"

&n If 

If ComboBox.Text = "2/67" Then

 TextBox1.Text = "#ISSA# 2/67"

 TextBox.Text = "#ISSA#"

 TextBox2.Text = "2/67"

 TextBox@.Text = "16666666"

&n If 

If ComboBox.Text = "CA0I$#&TA" Then

 TextBox1.Text = "#ISSA# CA0I$#&TA"

 TextBox.Text = "#ISSA#"

 TextBox2.Text = "CA0I$#&TA"

 TextBox@.Text = "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"

 TextBox@.Text = "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+"

 TextBox@.Text = "66666666"

&n If 

If ComboBox.Text = "89" Then

 TextBox1.Text = "B0- 89"

 TextBox.Text = "B0-"

 TextBox2.Text = "89"

 TextBox@.Text = "+666666"

&n If 

If ComboBox.Text = "I+ SP,*&'" Then

 TextBox1.Text = "B0- I+ SP,*&'"

 TextBox.Text = "B0-"

 TextBox2.Text = "I+ SP,*&'"

 TextBox@.Text = "+66666"

&n If 

If ComboBox.Text = "CA0I$#&TA" Then

 TextBox1.Text = "B0- CA0I$#&TA"

 TextBox.Text = "B0-"

 TextBox2.Text = "CA0I$#&TA"

 TextBox@.Text = "++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"

 TextBox@.Text = "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 = ""

 TextBox@.Text = ""

 TextBox/.Text = ""

 TextBox9.Text = ""

 TextBox.Text = ""

 TextBox+.Text = ""

 TextBox.Text = ""

 TextBox1.Set3o:u

 TextBox.Set3o:u

 TextBox2.Set3o:u

 TextBox@.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!(TextBox@.Text) 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 = ""

 TextBox@.Text = ""

 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"

 TextBox@.Text = "+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

 TextBox@.Text = "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"

 TextBox@.Text = "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!(TextBox@.Text) 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 = ""

 TextBox@.Text = ""

 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()

abe!1@.Ba:?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