それで、私はこのプログラムを持っています、それは実際のプログラムの一部ですが、それに対する解決策が見つかりません、私は2つのテキストボックスを持っています、1つは合計を持ち、2番目には割引をしたい%を挿入する必要がありますボタンを使用して合計に対する%を設定します。
これは、button1 を使用してリストボックスに送信し、保存ボタンを使用してテキストファイルに保存し、請求書を渡すときに conta ボタンを押すプログラムです。
私が望むのは、ボタンを押してパネルを開くと、合計テキストボックスから 10% のディスコンを与えることです。
これは私のフォームを印刷するためのリンクです。
これは私のコードです:
System.IO をインポートします
パブリッククラスフォーム1
ディムトータル
Public Sub BtnConta_Click(sender As Object、e As EventArgs) BtnConta.Click を処理します
Dim quoteArray As String() = File.ReadAllLines(“C:\Mesa1.txt”)
各項目を quoteArray の文字列として
Dim パーツ As String() = Strings.Split(Item, “€__”)
10 進数としての寸法数値
If Decimal.TryParse(parts(0), 数値) then
終了の場合
合計 = (合計 + 数値)
次
TxtBoxTotal.Text = 合計
エンドサブ
Private Sub BtnSaveLstBox_Click(sender As Object、e As EventArgs) BtnSaveLstBox.Click を処理します
‘ ListBox 項目を保存するファイル パスを指定します
Dim filePath As String = “C:\Mesa1.txt”
‘ 書き込み用にファイルを開きます
新しい System.IO.StreamWriter(filePath) としてライターを使用する
‘ ListBox 内の各項目をループします
ListBoxConsumo.Items のオブジェクトとして各項目について
‘ 項目をファイルに書き込みます
Writer.WriteLine(item.ToString())
次
使用を終了する
MessageBox.Show(“リストボックスの項目がファイルに保存されました。”)
エンドサブ
プライベート サブ BtnDesconto_Click(sender As Object、e As EventArgs) BtnDesconto.Click を処理します
パネルデスコント.Show()
エンドサブ
Private Sub Button1_Click(sender As Object、e As EventArgs) Button1.Click を処理します
ListBoxConsumo.Items.Add(“€1.45__Bread”)
エンドサブ
Private Sub Button11_Click(sender As Object、e As EventArgs) Button11.Click を処理します
整数としての Dim loc
loc = TextBoxTeclado1.Text.Length
TextBoxTeclado1.Text = TextBoxTeclado1.Text.Remove(loc – 1, 1)
エンドサブ
Private Sub Button13_Click(sender As Object、e As EventArgs) Button13.Click を処理します
ディムパーセンテージm As Double
TextBoxKeypad1.Text = パーセンテージ
IsNumeric(TextBoxTeclado1.Text) の場合
パーセンテージ = CDbl(TextBoxKeypad1.Text)
それ以外
パーセンテージ = 0 ‘ 割引なし
終了の場合
パーセント m < 100 の場合
合計 = 合計 * (100 – パーセンテージ)
それ以外
‘ アイテムは無料です
合計 = 0
終了の場合
メッセージボックス(合計)
エンドサブ
Private Sub BtnSair_Click(sender As Object、e As EventArgs) BtnSair.Click を処理します
パネルデスコント.Hide()
エンドサブ
Private Sub Button2_Click(sender As Object、e As EventArgs) Button2.Click を処理します
TextBoxTeclado1.Text = 1
エンドサブ
Private Sub Button3_Click(sender As Object、e As EventArgs) Button3.Click を処理します
TextBoxTeclado1.Text = 2
エンドサブ
Private Sub Button4_Click(sender As Object、e As EventArgs) Button4.Click を処理します
TextBoxTeclado1.Text = 3
エンドサブ
Private Sub Button5_Click(sender As Object、e As EventArgs) Button5.Click を処理します
TextBoxTeclado1.Text = 4
エンドサブ
Private Sub Button6_Click(sender As Object、e As EventArgs) Button6.Click を処理します
TextBoxTeclado1.Text = 5
エンドサブ
Private Sub Button7_Click(sender As Object、e As EventArgs) Button7.Click を処理します
TextBoxTeclado1.Text = 6
エンドサブ
Private Sub Button8_Click(sender As Object、e As EventArgs) Button8.Click を処理します
TextBoxTeclado1.Text = 7
エンドサブ
Private Sub Button9_Click(sender As Object、e As EventArgs) Button9.Click を処理します
TextBoxTeclado1.Text = 8
エンドサブ
Private Sub Button10_Click(sender As Object、e As EventArgs) Button10.Click を処理します
TextBoxTeclado1.Text = 9
エンドサブ
Private Sub Button12_Click(sender As Object、e As EventArgs) Button12.Click を処理します
TextBoxTeclado1.Text = 0
エンドサブ
Private Sub Form1_Load(sender As Object、e As EventArgs) MyBase.Load を処理します
‘ コンテンツをロードするファイルパスを指定します
Dim filePath As String = “C:\Mesa1.txt”
‘ ファイルが存在するかどうかを確認します
File.Exists(filePath) の場合
‘ ファイルからすべての行を読み取ります
Dim Lines() As String = File.ReadAllLines(filePath)
‘ ListBox 内の既存の項目をクリアします
ListBoxConsumo.Items.Clear()
‘ 各行をListBoxに追加します
各行ごとに行内の文字列として
ListBoxConsumo.Items.Add(行)
次
終了の場合
エンドサブ
終了クラス
私が試したこと：
私は試した
Dim percentagem As Double If IsNumeric(TextBoxTeclado1.Text) Then percentagem = CDbl(TextBoxTeclado1.Text) Else percentagem = 0 ' No discount End If If percentagem < 100 Then Total = Total * (100 - percentagem) Else ' Item is free Total = 0 End If MsgBox(Total)
コメント