stefano1993
stefano1993 - Sapiens Sapiens - 1574 Punti
Rispondi Cita Salva
ciao a ttttt cm va??? io sto maliximo nn ci riesco + a studia in qst momento + di ogni altro vi kiedo 1 mano:specchio

mi potete aiutare a fare il codice di questo programma visual basic!!!!!!!!

ecco il questito

Calcola la somma effettivamente spesa in un negozio di abbigliamento tenendo conto di: 1 per spese nferiori a 50£ sconto del 10%
2 per spese inferiori a 100£ sconto del 20%
3 per spese superiori a 100£ sconto del 30%

realizatelo nel modo + facile possibile....

grz1000
Aghi90
Rispondi Cita Salva
ops...ho letto solo adesso il thread...ti serve ancora??
in ogni caso puoi risolverlo così:
bè crei una text dove inserisci il totale della spesa. poi crei un bottone per calcolare il probabile sconto e dopo aver dichiarato come costanti i vari sconti (const sconto1=0.10; const sconto2=0.20; const sconto3=0.30) e le variabili (dim totale, totalescontato as integer)in questo bottone scrivi il codice(che verrà poi visualizzato nella text "totalesconto";):


totale =val (texttotale)
if texttotale<=50 then
totalesconto = totale - (totale* sconto1)
'restituisci valore alla text
texttotalesconto = totalesconto
end if
if texttotale>50 and texttoale<=100 then
totalesconto = totale - (totale* sconto2)
texttotalesconto = totalesconto
end if
if texttotale>100 then
totalesconto = totale - (totale* sconto3)
texttotalesconto = totalesconto
end if


questo è il codice che ti potrebbe servire...e più semplice di così non si può!!:hi
stefano1993
stefano1993 - Sapiens Sapiens - 1574 Punti
Rispondi Cita Salva
:(:(NON FUNZIONA FANNE UNO UN PO' + COMPLESSO E SPECIFICA TT I NOMI XFAVORE
TI PREGO GRZ1000:O_o:O_o8):hi:hi:hi:hi:hi
Aghi90
Rispondi Cita Salva
questo è il programma(il codice è uguale a quello che ti ho scritto se non mi sbaglio)...così è semplice, l'ho reso più complesso inserendo la text "sconto" dove viene visualizzata la percentuale di sconto che viene fatta. questo programma si poteva fare anche con option button o list(così da renderlo un pochetto più complesso) però non sapevo se le avevi fatte quindi ho preferito lasciar stare!...ci sono decine di modi diversi per risolvere questo programma!...dimmi se ti va bene così!!ciau!!:hi

codice:

Const sconto10 = 0.1
Const sconto20 = 0.2
Const sconto30 = 0.3
Dim totale, totalescontato As Integer
Private Sub cmdcalcola_Click()
totale = Val(txttotale)
If totale <= 50 Then
txtsconto = "10%"
totalescontato = totale - (totale * sconto10)
txttotalescontato = totalescontato
End If
If totale > 50 And totale <= 100 Then
txtsconto = "20%"
totalescontato = totale - (totale * sconto20)
txttotalescontato = totalescontato
End If
If totale > 100 Then
txtsconto = "30%"
totalescontato = totale - (totale * sconto30)
txttotalescontato = totalescontato
End If
End Sub

Private Sub cmdesci_Click()
End
End Sub

Private Sub cmdpulisci_Click()
txttotale = ""
txtsconto = ""
txttotalescontato = ""
End Sub


questo è il form:


proprietà:
bottoni: cmdcalcola, cmdpulisci, cmdesci
1^ text: txttotale (variabile totale)
2^text: txtsconto
3^ text: txttotalescontato (variabile totalescontato)
Come guadagno Punti nel Forum? Leggi la guida completa
In evidenza
Classifica Mensile
Vincitori di novembre
Vincitori di novembre

Come partecipare? | Classifica Community

Community Live

Partecipa alla Community e scala la classifica

Vai al Forum | Invia appunti | Vai alla classifica

Registrati via email