Dream.In.Code > Programming Help > Visual Basic

Welcome to Dream.In.Code
	Become a VB Expert! Join 149,905 VB Programmers for FREE! Get instant access to thousands of VB experts, tutorials, code snippets, and more! There are 2,210 people online right now. Registration is fast and FREE... Join Now! Chat LIVE With a VB Expert

discount program in vb6

Reply to this topic

Start new topic

discount program in vb6, need help in discounter program

Alexiel	19 Jan, 2008 - 03:26 AM Post #1
New D.I.C Head Joined: 19 Jan, 2008 Posts: 6	CODE Private Sub Command1_Click() Dim one, two, ans, ans2 As Integer one = txt1.Text two = txt2.Text ans = Val(two) / 100 ans2 = Val(one) * Val(ans) lbl1.Caption = ans2 lbl1.Caption = Format(ans2, "P 0.00") End Sub CODE Private Sub Command2_Click() Dim three, four, ans3 As Integer three = lbl1.Caption four = txt1.Text ans3 = Val(four) - Val(three) lbl2.Caption = ans3 lbl2.Caption = Format(ans3, "P 0.00") End Sub i have a problem when I try to use the second command button. instead of subtracting the four and three it just displays four as the result. what did I do wrong? i'll send the program to anyone if interested.
	This Post Was Helpful!


Register for Free to Make These Ads Go Away!

Nayana	RE: Discount Program In Vb6 19 Jan, 2008 - 04:39 AM Post #2
DIC Hawk - 나야나 नयन: Joined: 14 Nov, 2007 Posts: 824 Thanked: 5 times Dream Kudos: 175 My Contributions	Your problem is simple. after Command1 has been clicked, the value of lbl1.Caption is "P xxxx" The P at the front prevents VB from reading the number. To solve this change the line of code where you read the number to skip the P, like so CODE three = mid(lbl1.Caption,2) And then your problem will be fixed. The mid function lets you choose a sub string, with the index starting at 1. used like: mid(string, start index, count) mid("abcdefg", 1) = "abcdefg" mid("abcdefg", 2) = "bcdefg" mid("abcdefg",3,1) = "c" mid("abcdefg",3,2) = "cd"
	This Post Was Helpful!

Alexiel	RE: Discount Program In Vb6 19 Jan, 2008 - 05:04 AM Post #3
New D.I.C Head Joined: 19 Jan, 2008 Posts: 6	thank you Nayana for the answer i was trying to format the result to appear like this P 0.00 thanks again
	This Post Was Helpful!

Nayana	RE: Discount Program In Vb6 19 Jan, 2008 - 05:24 AM Post #4
DIC Hawk - 나야나 नयन: Joined: 14 Nov, 2007 Posts: 824 Thanked: 5 times Dream Kudos: 175 My Contributions	No worries
	This Post Was Helpful!

Fast Reply

Reply to this topic

Start new topic

Display Mode: Standard · Switch to: Linear+ · Switch to: Outline

Track this topic · Email this topic · Print this topic · Subscribe to this forum

Time is now: 1/8/09 01:22PM

Invision Power Board v2.1.7 © 2009 IPS, Inc.

Licensed to: MediaGroup1

Advertising | Terms of Use | Privacy Policy | About Us | Site Map

Forum Index: Programming Help | C and C++ | Visual Basic | Java | VB.NET | C# | ASP.NET | PHP | ColdFusion | Perl and Python | Ruby | Databases | Other Languages | Game Programming | Software Development | Computer Science | Industry News | Programming Tutorials | C++ Tutorials | Visual Basic Tutorials | Java Tutorials | VB.NET Tutorials | C# Tutorials | Linux Tutorials | PHP Tutorials | ColdFusion Tutorials | Windows Tutorials | HTML/JavaScript Tutorials | CSS Tutorials | Flash Tutorials | Web Promotion Tutorials | Photoshop Tutorials | Software Development Tutorials | Database Tutorials | Other Language Tutorials | ASP.NET Tutorials |

Copyright 2001-2008 MediaGroup1 LLC, All Rights Reserved
A MediaGroup1 LLC Production - Version 6.0.2.1.36
Server: secure2

Search^Updated!w00t

Over 509,000 Pages! Advanced Forum Search

Be Social

Live VB Help!

VB Tutorials

Reference Sheets

VB Snippets

DIC Chatroom

Join our IRC Chat

Bye Bye Ads

Monthly Drawing

Top Contributors

Top 10 Kudos This Month