Re: used car value calculator

Here you can attach your files or example so others can use it, discussions needs to be done at the general board
Post Reply
Yam
Posts: 11
Joined: Mon Apr 23, 2007 11:36 am

Re: used car value calculator

Post: # 163Post Yam
Sun Aug 19, 2007 2:09 pm

[quote author=Yam link=1187277225/0#0 date=1187277225]code:
`Used car calculator
`this is not the actual price value of your car
`it`s just to show you how you can do it

object myform1 as form
   Caption = "Used Cars Value"
   Width = 400
   Height = 225
`    Center `do not work
   Color = 16760962
  object label1 as label
       Caption = "Year Of The Car    = "
       Left = 57
       Top = 24
       Width = 112
       Transparent = 1
  end object
   object label2 as label
       Caption = "   Today  Year          = "
       Left = 49
       Top = 48
       Width = 120
       Transparent = 1
   end object
   object label3 as label
       Caption = "Price you payed   = "
       Left = 57
       Top = 72
       Width = 104
       Transparent = 1
  end object
   object edit1 as edit
       Text = ""
       Left = 175
       Top = 20
       Width = 89
   end object
   object edit2 as edit
       Text = ""
       Left = 175
       Top = 46
       Width = 89
       TabOrder = 1
   end object
   object edit3 as edit
       Text = ""
       Left = 175
       Top = 70
       Width = 89
       TabOrder = 2
     end object
   object edit4 as edit
       Text = ""
       Left = 175
       Top = 100
       Width = 105
       TabOrder = 3
   end object
   object button1 as button
       Caption = "Actuel  Value  = "
       Left = 56
       Top = 100
       Width = 99
       TabOrder = 4
       onclick=butt
   end object
end object

myform1.showmodal

Sub butt()
Dim am as double
Dim pm as double
Dim a as double
Dim p  as double

a = val(edit1.text)`year build
am = val(edit2.text)`actuel year
p = val(edit3.text) `amout payed for
pm = p
if a=am then:pm=p:edit4.text=str$(pm):end if
am=am-1
pm=pm*(75/100) ` first year                  `.75 do not work had to write it like that 75/100
if a=am then:edit4.text=str$(pm):end if
am=am-1
pm=pm*(85/100) ` second year
if a=am then:edit4.text=str$(pm):end if
am=am-1
pm=pm*(90/100) ` third year
if a=am then:edit4.text=str$(pm):end if
WHILE am>a
am=am-1
pm=pm*(90/100) ` all the rest
edit4.text=str$(pm)
wend

end sub[/quote]

Post Reply