Visual Basic - кнопка дисплея не рассчитает процент повышения -- vb.net пол Связанный проблема

Visual Basic - Display button will not calculate raise percentage


-2
vote

проблема

русский

Я пытаюсь получить процент подъема, используя старую зарплату и новую зарплату в визуальных основах ... Я полностью застрял. Любые идеи, где я иду не так?

 <Код> ' Name:         Salary Project Project ' Purpose:      Display raise precentage ' Programmer:   <Sarah Jimenez> on <7/24/2014>  Option Explicit On Option Strict Off Option Infer Off  Public Class frmMain      Private Property txtNewSalary As Object      Private Property txtOldSalary As Object      Private Sub btnisplay_Click(sender As Object, e As EventArgs) Handles btndisplay.Click         ' display raise precentage          ' declare named constants and variables         Dim intOldSalary As Double         Dim intNewSalary As Double         Dim intRaisePercentage As Double         Dim intSalaryDifference As Double          ' calculates salary difference         intSalaryDifference = intNewSalary - intOldSalary          'calculates raise percentage         intRaisePercentage = intSalaryDifference * intOldSalary          ' determine raise percentage         ' message or calculate and display the raise percentage      End Sub     Private Sub btnExit_Click(sender As Object, e As EventArgs) Handles btnExit.Click         Me.Close()      End Sub      Private Sub TextBox3_TextChanged(sender As Object, e As EventArgs) Handles TextBox3.TextChanged         'displays raise percentage     End Sub      Private Sub btnDisplay_Click(sender As Object, e As EventArgs) Handles btnDisplay.Click         'Displays the raise percentage     End Sub End Class   
Английский оригинал

I am trying to get a raise percentage using old salary and new salary in Visual Basics...I am completely stuck. Any ideas where I am going wrong?

' Name:         Salary Project Project ' Purpose:      Display raise precentage ' Programmer:   <Sarah Jimenez> on <7/24/2014>  Option Explicit On Option Strict Off Option Infer Off  Public Class frmMain      Private Property txtNewSalary As Object      Private Property txtOldSalary As Object      Private Sub btnisplay_Click(sender As Object, e As EventArgs) Handles btndisplay.Click         ' display raise precentage          ' declare named constants and variables         Dim intOldSalary As Double         Dim intNewSalary As Double         Dim intRaisePercentage As Double         Dim intSalaryDifference As Double          ' calculates salary difference         intSalaryDifference = intNewSalary - intOldSalary          'calculates raise percentage         intRaisePercentage = intSalaryDifference * intOldSalary          ' determine raise percentage         ' message or calculate and display the raise percentage      End Sub     Private Sub btnExit_Click(sender As Object, e As EventArgs) Handles btnExit.Click         Me.Close()      End Sub      Private Sub TextBox3_TextChanged(sender As Object, e As EventArgs) Handles TextBox3.TextChanged         'displays raise percentage     End Sub      Private Sub btnDisplay_Click(sender As Object, e As EventArgs) Handles btnDisplay.Click         'Displays the raise percentage     End Sub End Class 
</div
  
         
         

Список ответов

0
 
vote

Если вам нужно получить процент, вы можете сделать это так.
DIM ONEP AS INTEGER = Intoldsalary / 100
INTRAISEPERCENTAGE = Intnewsalary / OneP - 100
TextBox3.Text = INTRAISEPERCENTAGE & AMP; «%»

Я не знаю, где вы получаете значения, чтобы я просто добавил их в код.

Я также изменил двойной в целое число

Если вы используете целое число, результат будет круглый процент, такой как 10%
Если вы хотите иметь процент, например, 11,4%, измените все целые числа, чтобы удвоить

 <код> Option Explicit On Option Strict Off Option Infer Off  Public Class frmMain  Private Property txtNewSalary As Object = 1100 Private Property txtOldSalary As Object = 1000   Private Sub btnisplay_Click(sender As Object, e As EventArgs) Handles btndisplay.Click     ' display raise precentage      ' declare named constants and variables     Dim intOldSalary As Integer = txtOldSalary     Dim intNewSalary As Integer = txtNewSalary     Dim intRaisePercentage As Integer     Dim intSalaryDifference As Integer      ' calculates salary difference     intSalaryDifference = intNewSalary - intOldSalary      'calculates raise percentage      Dim OneP As Integer = intOldSalary / 100     intRaisePercentage = intNewSalary / OneP - 100     TextBox3.Text = intRaisePercentage & "%"     'intRaisePercentage = intSalaryDifference * intOldSalary      ' determine raise percentage     ' message or calculate and d End Sub Private Sub btnExit_Click(sender As Object, e As EventArgs) Handles btnExit.Click     Me.Close()  End Sub  Private Sub TextBox3_TextChanged(sender As Object, e As EventArgs) Handles TextBox3.TextChanged     'displays raise percentage End Sub  Private Sub btnDisplay_Click(sender As Object, e As EventArgs) Handles btnDisplay.Click     'Displays the raise percentage  End Sub End Class   
 

If you need to get the percentage you could do it like this.
Dim OneP As Integer = intOldSalary / 100
intRaisePercentage = intNewSalary / OneP - 100
TextBox3.Text = intRaisePercentage & "%"

I don't know where you get the values from so i just add them in the code.

I also changed the double to Integer

If you use Integer The result will be a round percentage Like 10%
If you want to have a percentage like 11.4% change all the Integers to Double

Option Explicit On Option Strict Off Option Infer Off  Public Class frmMain  Private Property txtNewSalary As Object = 1100 Private Property txtOldSalary As Object = 1000   Private Sub btnisplay_Click(sender As Object, e As EventArgs) Handles btndisplay.Click     ' display raise precentage      ' declare named constants and variables     Dim intOldSalary As Integer = txtOldSalary     Dim intNewSalary As Integer = txtNewSalary     Dim intRaisePercentage As Integer     Dim intSalaryDifference As Integer      ' calculates salary difference     intSalaryDifference = intNewSalary - intOldSalary      'calculates raise percentage      Dim OneP As Integer = intOldSalary / 100     intRaisePercentage = intNewSalary / OneP - 100     TextBox3.Text = intRaisePercentage & "%"     'intRaisePercentage = intSalaryDifference * intOldSalary      ' determine raise percentage     ' message or calculate and d End Sub Private Sub btnExit_Click(sender As Object, e As EventArgs) Handles btnExit.Click     Me.Close()  End Sub  Private Sub TextBox3_TextChanged(sender As Object, e As EventArgs) Handles TextBox3.TextChanged     'displays raise percentage End Sub  Private Sub btnDisplay_Click(sender As Object, e As EventArgs) Handles btnDisplay.Click     'Displays the raise percentage  End Sub End Class 
</div
 
 
0
 
vote

В следующей строке ваш расчет неверный

 <код> ' calculates salary difference intSalaryDifference = intNewSalary - intOldSalary  'Incorrect Calculation 'calculates raise percentage intRaisePercentage = intSalaryDifference * intOldSalary   

Исправьте ваш расчет, как это

 <код> intRaisePercentage = (intSalaryDifference * 100) / intOldSalary   

и используйте <код> Deciaml datatype вместо Double . Двойной не будет показывать фактические десятичные значения. Используйте Double только тогда, когда вы пытаетесь хранить очень большую научную ценность. <Код> ie. 1254366.698 x Pi

 

In following line your calculation is incorrect

' calculates salary difference intSalaryDifference = intNewSalary - intOldSalary  'Incorrect Calculation 'calculates raise percentage intRaisePercentage = intSalaryDifference * intOldSalary 

Correct your calculation like this

intRaisePercentage = (intSalaryDifference * 100) / intOldSalary 

And use Deciaml datatype instead of Double. Double will not show actual decimal values. Use Double only when you are trying to store very big scientific value. ie. 1254366.698 x Pi

</div
 
 

Связанный проблема

2  Обращайтесь с событиями для динамического (время выполнения) - vb.net  ( Handle events for dynamic run time controls vb net ) 
У меня есть элемент управления WebBrowser, который создается и добавляется в форму во время выполнения. Как подключить этот элемент управления подпрограммой...

0  Ошибка, генерирующая XML из XSD (с помощью xsd.exe) vb.net  ( Error generating xml from an xsd using xsd exe vb net ) 
Хорошо, посмотрите, что я пытаюсь сделать, это построить XML через XSD для этого, я использую класс, который я построен с инструментом xsd.exe (voucher_build_...

0  Можно ли программно получить общую ссылку Dropbox, не отправляя пользователя на страницу входа в Dropbox?  ( Is it possible to programmatically get a shared dropbox link without sending the ) 
Я разрабатываю веб-приложение в VB.NET 4.5 и с помощью третьей стороны: <Код> Dropnet . Я задаюсь вопросом, возможно ли получить общую ссылку из Dropbox- прог...

2  Веб-страница ASP.NET в устройство подключения к порту USB (COM) сервера  ( Asp net web page to device connect to servers usb com port ) 
Я работаю над способом отправлять команды на доску Arduino с веб-сайта. Доска Arduino подключается к компьютеру через порт USB (COM-порт). Мне удалось подкл...

0  Предварительные изображения в приложении Windows RT  ( Preloading images in windows rt app ) 
У меня есть приложение для хранения Windows, работающее на Windows RT, который включает в себя список изображений. Из них довольно много, поэтому при загрузке...

2  Замените оператор импорта и загрузите DLL в код для использования объекта?  ( Replace imports statement and load dll in code to use object ) 
У меня в настоящее время есть приложения, которые используют бесплатную библиотеку регистрации NLOG (DLL), которую я ссылаюсь в моем проекте VB.NET (Импорт оп...

-1  Как получить ячейку из панели макета стола VB.Net  ( How do i get the cell from a table layout panel vb net ) 
Как получить, какую ячейку пользователь нажал, если он не имеет контроля в ячейке. То, что мне действительно нужно, для изображения появляются в месте ячейки,...

0  Как я могу прочитать, что является URL-адресом назначения, когда требуется перенаправление?  ( How can i read what the destination url is when a redirect is requested ) 
Я использую <код> MasterPage с панелью динамической меню по всей странице. Если пользователь запросил перенаправить обратно на страницу входа в систему (HOME...

0  Как прекратить вставку записей в таблице SQL, когда предел достигнут  ( How to stop inserting records in sql table when a limit is reached ) 
Я использую vb.net и sql server 2005. Моя проблема в том, что я хочу дать пользователю сообщение, если ограничение делегата достиг этого курса. Видишь, у ...

3  Как использовать свойство тега с формами и кодом в VB 2012?  ( How do i use the tag property with forms and code in vb 2012 ) 
Я пишу программу, используя базу данных для клиентов и техников. Основная форма (CUSTORCTINCIDENTS) имеет настроенную систему, которая открывает другую форму ...

2  Почему я получаю переменную не нашли ошибки?  ( Why am i getting variable not found errors ) 
Я получаю незаконченные переменные ошибки с моим кодом, и я не знаю, почему! Переменные объявлены выше, но при использовании они не найдены! Ошибка по ошибке ...

1  Не может получить доступ к существующим константам проекта  ( Cannot access referenced project constants ) 
У меня есть проблема с использованием модуля в нескольких проектах в том же решении (регулярный проект и тестовый проект для модульных тестов). Я пытаюсь след...

3  Печать в принтере PDF программно  ( Printing to a pdf printer programmatically ) 
Я пытаюсь программно распечатать существующий файл в PDF в Visual Basic 2008. Наши текущие соответствующие активы: Visual Studio 2008 Professional Adobe Acr...

2  Cryptography.insecurealGorithm  ( Cryptography insecurealgorithm ) 
<код> Dim hashMD5 As New MD5CryptoServiceProvider() У меня есть эта строка кодов, и она обнаруживает как уязвимость <Код> Cryptography.InsecureAlgorithm ...

0  У FileHelpers есть классы, которые могут поддерживать неограниченную длину записи данных?  ( Does filehelpers have classes which can support unlimited data record length ) 
<код> <FixedLengthRecord(FixedMode.AllowVariableLength)> Public Class FileRecord <FieldFixedLength(1)> <FieldTrim(TrimMode.Both), FieldOptional()> ...

Связанный проблема

2  Обращайтесь с событиями для динамического (время выполнения) - vb.net 
0  Ошибка, генерирующая XML из XSD (с помощью xsd.exe) vb.net 
0  Можно ли программно получить общую ссылку Dropbox, не отправляя пользователя на страницу входа в Dropbox? 
2  Веб-страница ASP.NET в устройство подключения к порту USB (COM) сервера 
0  Предварительные изображения в приложении Windows RT 
2  Замените оператор импорта и загрузите DLL в код для использования объекта? 
-1  Как получить ячейку из панели макета стола VB.Net 
0  Как я могу прочитать, что является URL-адресом назначения, когда требуется перенаправление? 
0  Как прекратить вставку записей в таблице SQL, когда предел достигнут 
3  Как использовать свойство тега с формами и кодом в VB 2012? 
2  Почему я получаю переменную не нашли ошибки? 
1  Не может получить доступ к существующим константам проекта 
3  Печать в принтере PDF программно 
2  Cryptography.insecurealGorithm 
0  У FileHelpers есть классы, которые могут поддерживать неограниченную длину записи данных?