-1

私は、ユーザーが曲の情報を見たり、曲の抜粋を再生したり、選択した曲を購入したりできるプログラムを作成しています。

そして、ユーザーが [購入] ボタンをクリックして、指定された曲を購入できるようにします。

チェックアウト時:

曲を購入していない場合、ユーザーはチェックアウトできませんが、プログラムを終了することはできます。

ユーザーが消費税率を入力できるように、InputBox を使用します。ユーザーが値を入力しているため、入力に対してデータ検証を実行する必要があります。

ユーザーが InputBox の [キャンセル] ボタンをクリックして、チェックアウト プロセスをキャンセルできるようにします。

入力ボックスが表示されているときは、テキスト ボックスにフォーカスがあり、間違った税額が追加された場合は、間違った値がクリアされ、テキスト ボックスが再びフォーカスされる必要があります。

Write/Writeline を使用して、PurchaseOrder.txt という名前の発注書テキスト ファイルを作成します。このファイルには、ファイルの作成日と、購入の項目別リスト、小計、税、および合計が含まれます。

選択した曲の「購入」ボタンをクリックし、 「チェックアウト」ボタンをクリックすると、「アイテムを注文していません」というエラーが表示されます。以下のコードの cmdCheckOut_Click サブルーチンを参照してください。そこにエラーが発生していると思います。

コードは次のとおりです。

Public Structure musicInfo
    <VBFixedString(30)> Public title As String
    <VBFixedString(20)> Public artist As String
    <VBFixedString(20)> Public genre As String
    <VBFixedString(10)> Public duration As String
    Public year As Integer
    Public price As Double
    <VBFixedString(15)> Public songFileName As String
End Structure

Public Const NoOfTunes = 5
Public songs(NoOfTunes - 1) As musicInfo

Option Explicit On
Imports System.IO
Public Class frmTunes
Public index As Integer
Public purchaseCount As Integer
Public purchasePrice(10) As Decimal
Public purchaseTitle(10) As String


Private Sub frmTunes_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    Dim i As Integer

    FileOpen(1, "music.dat", OpenMode.Random, , , Len(songs(0)))
    For i = 0 To NoOfTunes - 1
        FileGet(1, songs(i))
    Next
    FileClose(1)

    cmdPrevious.Visible = False

    DisplaySong(0)
End Sub

Sub DisplaySong(ByVal i As Int32)
    lblTitle.Text = songs(i).title
    lblArtist.Text = songs(i).artist
    lblGenre.Text = songs(i).genre
    lblDuration.Text = songs(i).duration
    lblYear.Text = Convert.ToString(songs(i).year)
    lblPrice.Text = Convert.ToString(songs(i).price)
End Sub

Private Sub cmdStop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdStop.Click
    My.Computer.Audio.Stop()
End Sub

Private Sub cmdPurchase_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdPurchase.Click
    purchaseTitle(purchaseCount) = lblTitle.Text
    purchasePrice(purchaseCount) = Convert.ToDecimal(lblPrice.Text)
    purchaseCount = (purchaseCount + 1)
End Sub

Private Sub cmdPrevious_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdPrevious.Click
    index = (index - 1)
    If (index < 4) Then
        cmdNext.Visible = True
    End If
    If (index = 0) Then
        cmdPrevious.Visible = False
    End If
    DisplaySong(index)
End Sub

Private Sub cmdNext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdNext.Click
    index = (index + 1)
    If (index = NoOfTunes - 1) Then
        cmdNext.Visible = False
    End If
    If (index > 0) Then
        cmdPrevious.Visible = True
    End If
    DisplaySong(index)
End Sub

Private Sub cmdPlay_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdPlay.Click
    My.Computer.Audio.Play(songs(index).songFileName)
End Sub

Private Sub cmdCheckOut_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdCheckOut.Click
    Dim decimal1 As Decimal
    Dim decimal3 As Decimal
    Dim decimal4 As Decimal
    Dim str1 As String = ""
    If (Not purchaseCount) Then
        MsgBox("You have not ordered any items!", MsgBoxStyle.Exclamation, "Order Error")
    Else
        Do While ((IsNumeric(str1) Or (Decimal.Compare(decimal3, Decimal.Zero) < 0)) Or (Decimal.Compare(decimal3, (10D)) > 0))
            str1 = InputBox("Enter your tax rate as a % between and including 0 - 10:", "Tax Rate", "", -1, -1)
            If (str1 <> "") Then
                If (Not IsNumeric(str1)) Then
                    MsgBox("You must enter a numeric tax rate", MsgBoxStyle.Exclamation, "Tax Rate Error")
                Else
                    Dim dec3 As Decimal = Convert.ToDecimal(str1)
                    If ((Decimal.Compare(decimal3, Decimal.Zero) < 0) Or (Decimal.Compare(decimal3, (10D)) > 0)) Then
                        MsgBox("You must enter a tax rate between and including 0% - 10%", MsgBoxStyle.Exclamation, "Tax Rate Error")
                    End If
                End If
            End If
        Loop
        Dim StreamWriter As StreamWriter = File.CreateText("PurchaseOrder.txt")
        StreamWriter.WriteLine("For Purchases dated: " & DateTime.Now.ToLongDateString())
        StreamWriter.WriteLine()
        Dim num2 As Integer = (purchaseCount - 1)
        Dim num1 As Integer = 0
        Do While (num1 <= num2)
            StreamWriter.Write(Strings.FormatCurrency(CType(Me.purchasePrice(num1), Decimal) & "     "))
            StreamWriter.WriteLine(Me.purchaseTitle(num1))
            Dim dec1 As Decimal = Decimal.Add(Nothing, Me.purchasePrice(num1))
            num1 = (num1 + 1)

        Loop
        StreamWriter.WriteLine("------")
        StreamWriter.WriteLine(Strings.FormatCurrency(CType(decimal1, Decimal) & "  Subtotal"))
        Dim decimal2 As Decimal = New Decimal(((Convert.ToDouble(decimal3) * 0.01) * Convert.ToDouble(decimal1)))
        StreamWriter.WriteLine(Strings.FormatCurrency(CType(decimal2, Decimal) & "  Tax"))
        StreamWriter.WriteLine("------")
        Dim dec4 As Decimal = Decimal.Add(decimal1, decimal2)
        StreamWriter.WriteLine(Strings.FormatCurrency(CType(decimal4, Decimal) & "  Total"))
        MsgBox("Purchase Order has been created", MsgBoxStyle.OkOnly)
        StreamWriter.Close()
        Me.Close()
    End If
End Sub
 End Class
4

1 に答える 1

5

Notあなたが思っていることをしません。VB.Net では、Not 演算子は非ブール値に対してビット単位の反転を実行します。その場合purchaseCount = 1、Not purchaseCount = 0xFFFFFFFE = -2これは に変換されTrueます。false に変換される 0 の整数値のみ。

If (Not purchaseCount)テストを次のように変更しますIf (purchaseCount = 0)

于 2013-11-06T20:03:25.520 に答える