kobezzz
16-01-2006, 17:23
ho fatto questo semplice programmino per la scuola ma non riesco a capire dove sbaglio:
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim prezzo, sconto, kg, acc As Double
Dim risposta As String
acc = 0
Do
prezzo = Val(InputBox("ins prezzo", "prezzo"))
kg = Val(InputBox("ins kg", "kg"))
sconto = Val(InputBox("ins sconto", "kg"))
prezzo = prezzo * kg
If kg > 20 Then
prezzo = prezzo - (prezzo * sconto / 100)
End If
acc = acc + prezzo
text1.text = CStr(prezzo)
risposta = InputBox("ins risp(s/n)", "risposta")
Loop Until risposta = "N"
text2.text = CStr(acc)
End Sub
End Class
alla fine mi da errore:
name text1 , 2 not declared? perche mi da errore? con vbasic 6.0 non me lo dava? qualcuno mi sa spiegare
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim prezzo, sconto, kg, acc As Double
Dim risposta As String
acc = 0
Do
prezzo = Val(InputBox("ins prezzo", "prezzo"))
kg = Val(InputBox("ins kg", "kg"))
sconto = Val(InputBox("ins sconto", "kg"))
prezzo = prezzo * kg
If kg > 20 Then
prezzo = prezzo - (prezzo * sconto / 100)
End If
acc = acc + prezzo
text1.text = CStr(prezzo)
risposta = InputBox("ins risp(s/n)", "risposta")
Loop Until risposta = "N"
text2.text = CStr(acc)
End Sub
End Class
alla fine mi da errore:
name text1 , 2 not declared? perche mi da errore? con vbasic 6.0 non me lo dava? qualcuno mi sa spiegare