Ir para conteúdo
Fórum Script Brasil

Pesquisar na Comunidade

Mostrando resultados para as tags ''calculo de troco''.

  • Pesquisar por Tags

    Digite tags separadas por vírgulas
  • Pesquisar por Autor

Tipo de Conteúdo


Fóruns

  • Programação & Desenvolvimento
    • ASP
    • PHP
    • .NET
    • Java
    • C, C++
    • Delphi, Kylix
    • Lógica de Programação
    • Mobile
    • Visual Basic
    • Outras Linguagens de Programação
  • WEB
    • HTML, XHTML, CSS
    • Ajax, JavaScript, XML, DOM
    • Editores
  • Arte & Design
    • Corel Draw
    • Fireworks
    • Flash & ActionScript
    • Photoshop
    • Outros Programas de Arte e Design
  • Sistemas Operacionais
    • Microsoft Windows
    • GNU/Linux
    • Outros Sistemas Operacionais
  • Softwares, Hardwares e Redes
    • Microsoft Office
    • Softwares Livres
    • Outros Softwares
    • Hardware
    • Redes
  • Banco de Dados
    • Access
    • MySQL
    • PostgreSQL
    • SQL Server
    • Demais Bancos
  • Segurança e Malwares
    • Segurança
    • Remoção De Malwares
  • Empregos
    • Vagas Efetivas
    • Vagas para Estágios
    • Oportunidades para Freelances
  • Negócios & Oportunidades
    • Classificados & Serviços
    • Eventos
  • Geral
    • Avaliações de Trabalhos
    • Links
    • Outros Assuntos
    • Entretenimento
  • Script Brasil
    • Novidades e Anúncios Script Brasil
    • Mercado Livre / Mercado Sócios
    • Sugestões e Críticas
    • Apresentações

Encontrar resultados em...

Encontrar resultados que...


Data de Criação

  • Início

    FIM


Data de Atualização

  • Início

    FIM


Filtrar pelo número de...

Data de Registro

  • Início

    FIM


Grupo


AIM


MSN


Website URL


ICQ


Yahoo


Jabber


Skype


Location


Interests

Encontrado 1 registro

  1. estou fazendo um programa frente caixa porém na hora de receber o calculo de valores dar errado o total e no dinheiro do cliente o calculo do troco sai inteiro já coloquei decimal e outras tags mais mesmo assim não sai certo o codico abaixo para exemplo Imports System.IO Imports System.Security.Cryptography Imports System.Text Public Class frmPayment #Region "Controlbox" Private Sub btnClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClose.Click Me.Close() LstOrder.Items.Clear() txtTotal.Clear() txtDinheiro.Text = "0,00" txtTroco.Text = "0,00" End Sub #End Region Public Shared Function GetUniqueKey(ByVal maxSize As Integer) As String Dim chars As Char() = New Char(91) {} chars = "123456789".ToCharArray() Dim data As Byte() = New Byte(0) {} Dim crypto As New RNGCryptoServiceProvider() crypto.GetNonZeroBytes(data) data = New Byte(maxSize - 1) {} crypto.GetNonZeroBytes(data) Dim result As New StringBuilder(maxSize) For Each b As Byte In data result.Append(chars(b Mod (chars.Length))) Next Return result.ToString() End Function Private Sub txtCash_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtDinheiro.TextChanged txtTroco.Text = Format(Val(txtDinheiro.Text) - Val(txtTotal.Text), "#,##0.00") End Sub Private Sub BtnConcluido_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnConcluido.Click If Val(txtTotal.Text) > Val(txtDinheiro.Text) Then MessageBox.Show("Informe um valor maior ou igual ao valor total.", "Valor inválido", MessageBoxButtons.OK, MessageBoxIcon.Error) Else Dim prodname As String = "" 'If frmMenu.prod.StartsWith(",") = True Then ' prodname = frmMenu.prod.Remove(0, 1) 'End If For i = 0 To Me.LstOrder.Items.Count - 1 prodname = prodname & "," & LstOrder.Items(i).ToString.Replace("& vbcrlf", "") Next i If prodname.StartsWith(",") = True Then prodname = prodname.Remove(0, 1) End If Dim trpath As String = Application.StartupPath & "\Record\Registro.txt" File.AppendAllText(trpath, ReceitaNo.Text & " | " & Format(Date.Now, "dd/MM/yyyy") & " | " & prodname.Trim & " | " & txtTotal.Text & " | " & Format(Val(txtDinheiro.Text), "#,###.00") & " | " & txtTroco.Text & vbCrLf) With frmReceipt For i = 0 To Me.LstOrder.Items.Count - 1 .LstOrder.Items.Add(LstOrder.Items(i)) Next i .ReceiptNo.Text = Me.ReceitaNo.Text .lblTotal.Text = Me.txtTotal.Text .lblCash.Text = Me.txtDinheiro.Text .lblChange.Text = Me.txtTroco.Text .ShowDialog() End With prodname = "" btnClose_Click(sender, e) frmMenu.BtnClear_Click(sender, e) frmMenu.dtgRecord.Rows.Clear() frmMenu.Filter_Record() End If End Sub Private Sub frmPayment_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load ReceitaNo.Text = "BURGER-" & GetUniqueKey(6) End Sub Private Sub LstOrder_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LstOrder.SelectedIndexChanged End Sub Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click End Sub Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click End Sub Private Sub txtTotal_TextChanged(sender As Object, e As EventArgs) Handles txtTotal.TextChanged End Sub End Class
×
×
  • Criar Novo...