[Vb6]Come posso migliorare sto cod?

[Luc@s]

Public Function Addiziona(n As Integer, m As Integer) As Integer 
Dim ris As Long 
ris = n + m 
Addiziona = ris 
End Function 

Public Function Sottrai(r As Integer, l As Integer) As Integer 
Dim risul As Long 
ris = r - l 
Sottrai = risul 
End Function 

Public Function Moltiplica(n As Integer, m As Integer) As Integer 
Dim ris As Long 
ris = n * m 
Moltiplica = ris 
End Function 

Public Function Dividi(n As Integer, m As Integer) As Integer 
Dim ris As Long 
ris = n / m 
Dividi = ris 
End Function 

Private Sub Chiudi_Click() 
Unload Princ 
End Sub 

Private Sub diviso_Click() 
res.Text = Dividi(primo.Text, secondo.Text) 
End Sub 

Private Sub infos_Click() 
Dim info 
info = MsgBox("Programma by Kleidemos", vbInformation, "Abuot....") 
End Sub 

Private Sub meno_Click() 
res.Text = Sottrai(primo.Text, secondo.Text) 
End Sub 

Private Sub per_Click() 
res.Text = Moltiplica(primo.Text, secondo.Text) 
End Sub 

Private Sub plus_Click() 
res.Text = Addiziona(primo.Text, secondo.Text) 
End Sub

come lo miglioro????????
Vi allego il risultato........anche per suggerimenti stilistico-grafici!

[sebamix]

Public Function Addiziona(n As Integer, m As Integer) As Integer
Addiziona  = (n + m)
End Function

...

"Abuot...."
About...

Poi farei un controllo sui valori delle textbox (che ci siano solo numeri)

[Luc@s]

Originariamente inviato da sebamix

Public Function Addiziona(n As Integer, m As Integer) As Integer
Addiziona  = (n + m)
End Function

...

"Abuot...."
About...

Poi farei un controllo sui valori delle textbox (che ci siano solo numeri)

con degli IsNemeric(expr) [mi pare si chiami cosi, ma nn ne sono sicuro..........lo ho letto stamani alle 6 prima di anna a scola]????
come grafica, com'è?

[sebamix]

IsNumeric()

La grafica non saprei, io ho gusti pessimi per la grafica...

[Luc@s]

Originariamente inviato da sebamix
IsNumeric()

La grafica non saprei, io ho gusti pessimi per la grafica...

infatti c'ero qualsi con la funz!
Intendi tipo

 
If IsNumeric(Addiziona(es1.txt, es2.txt)) == true Then
	'cod
	ElseIf
	'cod
EndIf

[sebamix]

No no, isnumeric è una funzione VB che ti ritorna vero se il parametro che gli passi è un numero, altrimenti falso.

[Luc@s]

quindi cosi va?

 Private Sub diviso_Click()
If IsNumeric(Addiziona(primo.Text, secondo.Text)) = True Then
res.Text = Dividi(primo.Text, secondo.Text)
Else
res.Text = "Non è un numero valido!"
End If
End Sub

[sebamix]

If IsNumeric(primo.text) = True and IsNumeric(secondo.text) = True Then
    res.Text = Addiziona(primo.Text, secondo.Text)
Else
    res.Text = "Non è un numero valido!"
End If

Ecco quello che intendevo io

[Luc@s]

Cosi dovrebbe andare, no?

' La somma di due integer può essere superiore a 32768,
' quindi è meglio restituire un long
Public Function Addiziona(n As Integer, m As Integer) As Long
Dim ris As Long
ris = n + m
Addiziona = ris
End Function
' Non è necessario restituire un long, ma per coerenza...
Public Function Sottrai(r As Integer, l As Integer) As Long
Dim risul As Long
ris = r - l
Sottrai = risul
End Function
' Stesso discorso fatto per la moltiplicazione....
Public Function Moltiplica(n As Integer, m As Integer) As Long
Dim ris As Long
ris = n * m
Moltiplica = ris
End Function
' Così puoi restituire anche risultati con decimali
Public Function Dividi(n As Integer, m As Integer) As Single
Dim ris As Long
ris = n / m
Dividi = ris
End Function
'Cancella dalla Ram il prog
Private Sub Chiudi_Click()
Unload Princ
End Sub

Private Sub diviso_Click()
If IsNumeric(primo.Text) = True And IsNumeric(secondo.Text) = True Then
    res.Text = Dividi(primo.Text, secondo.Text)
Else
    res.Text = "Non è un numero valido!"
End If
End Sub

Private Sub infos_Click()
Dim info
info = MsgBox("Programma by Kleidemos88 { francesca8810@tin.it }", vbInformation, "About....")
End Sub

Private Sub meno_Click()
If IsNumeric(primo.Text) = True And IsNumeric(secondo.Text) = True Then
    res.Text = Sottrai(primo.Text, secondo.Text)
Else
    res.Text = "Non è un numero valido!"
End If
End Sub

Private Sub per_Click()
If IsNumeric(primo.Text) = True And IsNumeric(secondo.Text) = True Then
    res.Text = Moltiplica(primo.Text, secondo.Text)
Else
    res.Text = "Non è un numero valido!"
End If
End Sub

Private Sub plus_Click()
If IsNumeric(primo.Text) = True And IsNumeric(secondo.Text) = True Then
    res.Text = Addiziona(primo.Text, secondo.Text)
Else
    res.Text = "Non è un numero valido!"
End If
End Sub

Private Sub Readme_Click()
Dim info
info = MsgBox("Scrivete i 2 numeri e cliccate sul simbolo interessato", vbInformation, "Readme")
End Sub