r:info progettazione calcolatrice con visual basic 2008


Rispondi
    Rispondi citando

dkc » Gio Set 02, 2010 4:04 pm

Public Class Form1
Dim risultato As Integer
Dim operatore As String
Dim calcolatrice As Integer


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If calcolatrice = 0 Then
MsgBox("ACCESSO NEGATO", MsgBoxStyle.Critical, "ERRORE")
Exit Sub

End If
TextBox1.Text = TextBox1.Text & "1"
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If calcolatrice = 0 Then
MsgBox("ACCESSO NEGATO", MsgBoxStyle.Critical, "ERRORE")
Exit Sub

End If
TextBox1.Text = TextBox1.Text & "2"
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
If calcolatrice = 0 Then
MsgBox("ACCESSO NEGATO", MsgBoxStyle.Critical, "ERRORE")
Exit Sub

End If
TextBox1.Text = TextBox1.Text & "3"
End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
If calcolatrice = 0 Then
MsgBox("ACCESSO NEGATO", MsgBoxStyle.Critical, "ERRORE")
Exit Sub

End If
TextBox1.Text = TextBox1.Text & "4"
End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
If calcolatrice = 0 Then
MsgBox("ACCESSO NEGATO", MsgBoxStyle.Critical, "ERRORE")
Exit Sub

End If
TextBox1.Text = TextBox1.Text & "5"
End Sub

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
If calcolatrice = 0 Then
MsgBox("ACCESSO NEGATO", MsgBoxStyle.Critical, "ERRORE")
Exit Sub

End If
TextBox1.Text = TextBox1.Text & "6"

End Sub

Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
If calcolatrice = 0 Then
MsgBox("ACCESSO NEGATO", MsgBoxStyle.Critical, "ERRORE")
Exit Sub

End If
TextBox1.Text = TextBox1.Text & "7"

End Sub

Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
If calcolatrice = 0 Then
MsgBox("ACCESSO NEGATO", MsgBoxStyle.Critical, "ERRORE")
Exit Sub

End If
TextBox1.Text = TextBox1.Text & "8"
End Sub

Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
If calcolatrice = 0 Then
MsgBox("ACCESSO NEGATO", MsgBoxStyle.Critical, "ERRORE")
Exit Sub

End If
TextBox1.Text = TextBox1.Text & "9"
End Sub

Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
If calcolatrice = 0 Then
MsgBox("ACCESSO NEGATO", MsgBoxStyle.Critical, "ERRORE")
Exit Sub

End If
TextBox1.Text = TextBox1.Text & "0"
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
risultato = 0
operatore = ""
calcolatrice = 0


End Sub

Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
If calcolatrice = 0 Then
MsgBox("ACCESSO NEGATO", MsgBoxStyle.Critical, "ERRORE")
Exit Sub

End If


If operatore = "+" Then
risultato = risultato + Val(TextBox1.Text)
ElseIf operatore = "-" Then
risultato = risultato - Val(TextBox1.Text)
ElseIf operatore = "*" Then
risultato = risultato * Val(TextBox1.Text)
ElseIf operatore = "/" Then
risultato = risultato / Val(TextBox1.Text)
Else
risultato = Val(TextBox1.Text)

End If
TextBox1.Text = ""
operatore = "+"
End Sub

Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
If calcolatrice = 0 Then
MsgBox("ACCESSO NEGATO", MsgBoxStyle.Critical, "ERRORE")
Exit Sub

End If
If operatore = "+" Then
risultato = risultato + Val(TextBox1.Text)
ElseIf operatore = "-" Then
risultato = risultato - Val(TextBox1.Text)
ElseIf operatore = "*" Then
risultato = risultato * Val(TextBox1.Text)
ElseIf operatore = "/" Then
risultato = risultato / Val(TextBox1.Text)
Else
risultato = Val(TextBox1.Text)

End If
TextBox1.Text = ""
operatore = "-"
End Sub

Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click
If calcolatrice = 0 Then
MsgBox("ACCESSO NEGATO", MsgBoxStyle.Critical, "ERRORE")
Exit Sub

End If
If operatore = "+" Then
risultato = risultato + Val(TextBox1.Text)
ElseIf operatore = "-" Then
risultato = risultato - Val(TextBox1.Text)
ElseIf operatore = "*" Then
risultato = risultato * Val(TextBox1.Text)
ElseIf operatore = "/" Then
risultato = risultato / Val(TextBox1.Text)
Else
risultato = Val(TextBox1.Text)

End If
TextBox1.Text = ""
operatore = "*"
End Sub

Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click
If calcolatrice = 0 Then
MsgBox("ACCESSO NEGATO", MsgBoxStyle.Critical, "ERRORE")
Exit Sub

End If
If operatore = "+" Then
risultato = risultato + Val(TextBox1.Text)
ElseIf operatore = "-" Then
risultato = risultato - Val(TextBox1.Text)
ElseIf operatore = "*" Then
risultato = risultato * Val(TextBox1.Text)
ElseIf operatore = "/" Then
risultato = risultato / Val(TextBox1.Text)
Else
risultato = Val(TextBox1.Text)

End If
TextBox1.Text = ""
operatore = "/"
End Sub

Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click
If operatore = "+" Then
risultato = risultato + Val(TextBox1.Text)
ElseIf operatore = "-" Then
risultato = risultato - Val(TextBox1.Text)
ElseIf operatore = "*" Then
risultato = risultato * Val(TextBox1.Text)
ElseIf operatore = "/" Then
risultato = risultato / Val(TextBox1.Text)
Else
risultato = Val(TextBox1.Text)

End If
TextBox1.Text = ""
TextBox1.Text = risultato
End Sub

Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click
operatore = ""
risultato = 0
TextBox1.Text = ""
End Sub

Private Sub Button17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button17.Click
If TextBox1.Text = "provola" Then
calcolatrice = 1
TextBox1.Text = ""
Button17.BackColor = Color.Green
End If
End Sub

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

End Sub
End Class

dkc
User Newbie
User Newbie
 
Messaggi: 33
Registrato: 27/08/10 09:42
    Invia messaggio privato Profilo  

    Rispondi citando

Uriel_Science » Gio Set 02, 2010 4:34 pm

potresti postare anche il file con la dichiarazione degli oggetti nel form?
Così mi risulta difficile capire quale sia il tasto di "="....

_________________
www.uriel1988.altervista.org


Uriel_Science
Programmatore
Programmatore
 
Messaggi: 285
Registrato: 05/01/09 11:56
    Invia messaggio privato Profilo  

    Rispondi citando

dkc » Gio Set 02, 2010 5:17 pm

questi file cosa sarebbero?scusa la domanda ma son un pò imbranato sul campo...
raga sempre se è concesso vi lascio il mio contatto di msn claudio_628@hotmail.com grazie a tutti!

dkc
User Newbie
User Newbie
 
Messaggi: 33
Registrato: 27/08/10 09:42
    Invia messaggio privato Profilo  

    Rispondi citando

dkc » Gio Set 02, 2010 6:10 pm

ciao raga ecco il megaupload tutto il progetto della calcolatrice all'interno ci sono tutti i file!!!
fatemi sapere grazie mille!!

http://www.megaupload.com/?d=N6UUQ228

dkc
User Newbie
User Newbie
 
Messaggi: 33
Registrato: 27/08/10 09:42
    Invia messaggio privato Profilo  

    Rispondi citando

Uriel_Science » Gio Set 02, 2010 10:30 pm

Ciao dkc...
allora ho messo su megaupload la modifica che dovevi apportare alla calcolatrice per nn ricevere piu un Runtime Exception...
Questa sono le istruzioni che ho aggiunto all'evento della pressione del tasto "="
Codice: < >

Try
     risultato = risultato / Val(TextBox1.Text)
Catch ex As System.ArithmeticException
     MessageBox.Show("Funzione non Permessa")
End Try

Qui trovi il progetto modificato: http://www.megaupload.com/?d=4BWB8JTP
spero di esserti stato utile...
Un consiglio.... prova a studiare un po di teoria prima di cimentarti nella programmazione... ti servirà molto durante la tua esperienza in questo campo...

bye bye! Wink

_________________
www.uriel1988.altervista.org


Uriel_Science
Programmatore
Programmatore
 
Messaggi: 285
Registrato: 05/01/09 11:56
    Invia messaggio privato Profilo  

    Rispondi citando

dkc » Gio Set 02, 2010 10:48 pm

grazie mille!!!
vorrei capire seriamente come si fa a risolvere questi bug e dove cmq sia hai inserito questa modifica,ma cosa devo fare per eventualmente mettere la radice quasdrata piu i tasti di memorizzazione numeri?grazie mille!scusami se rispondo solo ora ma non mi sento e ho ancora febbre!!!

dkc
User Newbie
User Newbie
 
Messaggi: 33
Registrato: 27/08/10 09:42
    Invia messaggio privato Profilo  

    Rispondi citando

Uriel_Science » Ven Set 03, 2010 8:06 am

dkc ha scritto:cosa devo fare per eventualmente mettere la radice quasdrata piu i tasti di memorizzazione numeri?


Per quanto riguarda la tua richiesta ti consiglio vivamente di leggere la documentazione di MSDN!
Ad ogni modo ho consultato io la documentazione ed ho trovato questa funzione:
Codice: < >
Public Shared Function Sqrt ( d As Double ) As Double

Come vedi dal prototipo della funzione SQRT(SQuareRooT = Radice Quadrata) accetta come parametro di ingresso una variabile di tipo Double(come saprai puoi effettuare anche un passaggio di una variabile Intera)

Quindi per esempio:
Codice: < >
Dim radice As Integer
radice = 25
Dim risultato As Double
risultato = Math.Sqrt(radice)
MessageBox.Show("Il risultato della radice quadrata è: " & risultato)


Per quanto riguarda la memorizzazione dei risultati ti consiglio di utilizzare una variabile statica all'interno del costruttore della classe.

bye bye Wink

_________________
www.uriel1988.altervista.org


Uriel_Science
Programmatore
Programmatore
 
Messaggi: 285
Registrato: 05/01/09 11:56
    Invia messaggio privato Profilo  

    Rispondi citando

Uriel_Science » Ven Set 03, 2010 8:25 am

Uriel_Science ha scritto:Salve dkc,
per prima cosa tengo a precisare che su questo forum si usa prima presentarsi e poi chiedere informazioni(vedi regole del forum).

Vedo che nn è stato ancora fatto... ti consiglio di presentarti sul forum altrimenti sarò costretto a non aiutarti più.

Grazie.

_________________
www.uriel1988.altervista.org


Uriel_Science
Programmatore
Programmatore
 
Messaggi: 285
Registrato: 05/01/09 11:56
    Invia messaggio privato Profilo  

    Rispondi citando

dkc » Ven Set 03, 2010 10:59 am

grazie a te e a tutti gli altri utenti per l'aiuto che mi state dando,mi son presentato poco fa,raga so di non esser ancora programamtore anche se ad esser sincero è stata sempre la mia passione anche programmare,
come calcolatrice secondo voi è discreta o è buona?ora dev creare il tasto della radice quadrata ma con quale simbolo la metto?i vaolri sono tutti quelli interni da voi scirri?grazie mille!
ps per quanto riguarda invece il tasto di memorizzazione m+ e m- ??

dkc
User Newbie
User Newbie
 
Messaggi: 33
Registrato: 27/08/10 09:42
    Invia messaggio privato Profilo  

    Rispondi citando

dkc » Ven Set 03, 2010 12:56 pm

ragazzi come posso fare per il simbolo della radice quadrata?e dell'm+ e m-?grazie!

dkc
User Newbie
User Newbie
 
Messaggi: 33
Registrato: 27/08/10 09:42
    Invia messaggio privato Profilo  


Rispondi

Programmazione

Non puoi inserire nuovi argomenti
Non puoi rispondere a nessun argomento
Non puoi modificare i tuoi messaggi
Non puoi cancellare i tuoi messaggi
Non puoi votare nei sondaggi