Newsgroup: it.comp.lang.visual-basic
Titolo: Re: Mi controllate il Linguaggio?

"THE MISTERY" <LO...@LOLLO.LJDSZ> ha scritto nel messaggio
news:qG6pd.397168$
35.17...@news4.tin.it
io farei ....ma non lo fare se no si incazza e ti mette un brutto voto...
un bel test al tuo professore!
se sa la differenza tra VAL e CDBL o CSNG o INT
VAL si sistema sempre ma lo stesso MSDN lo depreca!
Inoltre come si dice sotto VB non va tanto per il sottile e "casta" a destra
e a manca le variabili se non stai attento!
visto che la calcolatrice dovrebbe andare anche a virgola mobile
perchè non fa tutto con i double?...a parte un impercettibile problema di
velocità...perchè ti fa usare single?
o perchè (visto che è una calcolatrice) non Currency???
BAH!
Cmq non obiettare....esegui...il voto prima di tutto!
se ti va come cultura tua...approfondisci con la guida di VB i vari tipi di
variabili e le funzione di conversione dei tipi
CCur CDBL etc etc
-- 
Il Wodkino Nazionale è a : 
www.martek.it
Pagina Vb/Bestiario/Lamer Experience :
http://www.martek.it/go.asp?portamia=2
 Demo classe vb.NET :
WodkaThumb 
www.villaceleste.it
  click su "spippolando e
Programmando"
---
Messaggio scannerizzato e certificato "Virus free" da AVG free edition.
Checked by AVG anti-virus system (
http://www.grisoft.com
).
Version: 6.0.797 / Virus Database: 541 - Release Date: 15/11/2004

Il metodo SetFocus serve per "spostare l'attenzione" su un certo oggetto.
Nel tuo caso, al click sul pulsante uguale viene eseguita l'operazione 
scelta e viene stampato il risultato in Text1.
A quel punto, come dici tu, è anche vero che non serve spostarti da capo 
in text1.
Ma se il prof ti ha detto di farlo credo che sia per motivi di comodità 
per chi deve usare il programma: una volta che hai chiesto il risultato 
dell'operazione potresti avere ancora bisogno di scrivere qualcosa per 
eseguire da capo un'altra operazione. Se non usassi "Text1.SetFocus" 
dovresti andare a mano col mouse e clickare sulla casella di testo per 
inserire il nuovo numero...
Comunque mi pare che per ogni sub legata ai pulsanti delle quattro 
operazioni tu abbia scritto più volte il codice necessario...
-- 
Quando noi ignoranti eravamo di più, tutto era più bello (A. Celentano).
  ___   _   ___ _  _______   _______ ___
|   \ /_\ | _ \ |/ / _ ) \ / /_   _| __|
| |) / _ \|   / ' <| _ \\ V /  | | | _|
|___/_/ \_\_|_\_|\_\___/ |_|   |_| |___|

Ho Creato una calcolatrice con una Text e sei pulsanti con gli operatori + -
/ * = C
Però qualcosa nel linguaggio non mi è chiaro:
Option Explicit
Dim op1 As Single
Dim op2 As Single
Dim operazione As Integer
Private Sub addiziona_Click()
op1 = Val(Text1)
Text1.SetFocus
operazione = 1
op1 = Val(Text1)
Text1.SetFocus
Text1.Text = ""
operazione = 1
End Sub
Private Sub sottrai_Click()
op1 = Val(Text1)
Text1.SetFocus
operazione = 2
op1 = Val(Text1)
Text1.SetFocus
Text1.Text = ""
operazione = 2
End Sub
Private Sub moltiplica_Click()
op1 = Val(Text1)
Text1.SetFocus
operazione = 3
op1 = Val(Text1)
Text1.SetFocus
Text1.Text = ""
operazione = 3
End Sub
Private Sub dividi_Click()
op1 = Val(Text1)
Text1.SetFocus
operazione = 4
op1 = Val(Text1)
Text1.SetFocus
Text1.Text = ""
operazione = 4
End Sub
Private Sub uguale_Click()
op2 = Val(Text1)
Select Case operazione
    Case 1
    Text1 = op1 + op2
    Case 2
    Text1 = op1 - op2
    Case 3
    Text1 = op1 * op2
    Case 4
    Text1 = op1 / op2
                    End Select
Text1.SetFocus
End Sub
Private Sub Cancella_Click()
op1 = 0
op2 = 0
operazione = 1
Text1 = ""
Text1.SetFocus
End Sub
Il mio Prof mi ha detto di inserire anche Text1.setfocus a uguale, però se
lo elimino no succede niente!
Datemi un consiglio sul linguaggio