Apro la sezione: Visual Basic

[DareDevil86]

Come si mettono i file sul forum?? si può vero??

[Gendo Ikari]

Io di Visual Basic conosco un po', se vi serve qualche dritta di base ve la posso dare volentieri.

[er patata]

il visual basic è un linguaggio di programmazione ad oggetti, che quindi non è compatibile con nessun interprete che funzioni con codice testuale

[falk]

Inviato da DareDevil86
Come si mettono i file sul forum?? si può vero??

No, solo Gorman può allegarli.

[er patata]

Inviato da DareDevil86
Come si mettono i file sul forum?? si può vero??

devi avere un tuo spazio web...quindi fai su quello spazio l'upload dei file....


x gendo: eh magari.... se puoi insegnarci le fondamenta del linguaggio...

[DareDevil86]

Beh io l'ho studiato per un anno intero e ne so...

[Gendo Ikari]

Ok, vedrò cosa posso fare.

[er patata]

Inviato da Gendo Ikari
Ok, vedrò cosa posso fare.

beh grazie...

[DareDevil86]

Con questo potete fare una calcolatrice ben fatta.... Se qualcuno vuole la foto per vedere come si fà, mi mandi una mail...

Dim er As Label
Dim x As Double
Dim N As Long
Dim nome, cognome As String

Private Sub A_KeyPress(KeyAscii As Integer)
If KeyAscii = 8 Then
Exit Sub
End If
If Chr(KeyAscii) < "0" Or Chr(KeyAscii) > 9 Then
KeyAscii = 0
Beep
End If
End Sub

Private Sub B_KeyPress(KeyAscii As Integer)
If KeyAscii = 8 Then
Exit Sub
End If
If Chr(KeyAscii) < "0" Or Chr(KeyAscii) > 9 Then
KeyAscii = 0
Beep
End If
End Sub


Private Sub Command1_Click()
On Error GoTo er
C.Text = Val(A.Text) + Val(B.Text)
er:
If Err.Number <> 0 Then
MsgBox " occhio c'è un errore", 16, "Errore"
Err = 0
C.Text = ""
End If
End Sub

Private Function reciproco(N As Double) As Double
On Error GoTo er
If N = 0 Then
reciproco = 1E+308
Else
reciproco = 1 / N
End If
er:
If Err.Number <> 0 Then
MsgBox " occhio c'è un errore", 16, "Errore"
Err = 0
C.Text = ""
End If
End Function

Private Sub Command10_Click()
On Error GoTo er
x = Val(A.Text)
C.Text = CStr(reciproco(x))
er:
If Err.Number <> 0 Then
MsgBox " occhio c'è un errore", 16, "Errore"
Err = 0
C.Text = ""
End If
End Sub

Private Sub Command11_Click()
A.Text = ""
B.Text = ""
C.Text = ""
End Sub


Private Function fattoriale(x As Long) As Double
If x = 0 Then
fattoriale = 1
Else
fattoriale = x * fattoriale(x - 1)
End If
End Function

Private Sub Command12_Click()
N = Val(A.Text)
C.Text = CStr(fattoriale(N))
End Sub

Private Sub Command13_Click()
A.Text = 3.14159265358979
End Sub

Private Function logdec(x As Double) As Double
If x = 0 Then
logdec = -1E+308
Else
logdec = Log(x) / Log(10)
End If
End Function

Private Sub Command14_Click()
x = Val(A.Text)
C.Text = CStr(logdec(x))
End Sub

Private Sub Command15_Click()
A.Text = ""
C.Text = ""
B.Visible = True
End Sub

Private Sub Command2_Click()
On Error GoTo er
C.Text = Val(A.Text) - Val(B.Text)
er:
If Err.Number <> 0 Then
MsgBox " occhio c'è un errore", 16, "Errore"
Err = 0
C.Text = ""
End If
End Sub

Private Sub Command3_Click()
On Error GoTo er
C.Text = Val(A.Text) * Val(B.Text)
er:
If Err.Number <> 0 Then
MsgBox " occhio c'è un errore", 16, "Errore"
Err = 0
C.Text = ""
End If
End Sub

Private Sub Command4_Click()
On Error GoTo er
C.Text = Val(A.Text) / Val(B.Text)
er:
If Err.Number <> 0 Then
MsgBox " occhio c'è un errore", 16, "Errore"
Err = 0
C.Text = ""
End If
End Sub

Private Sub Command5_Click()
On Error GoTo er
C.Text = Val(A.Text) * Val(A.Text)
er:
If A.Text = "" Then
MsgBox " occhio c'è un errore", 16, "Errore"
Err = 0
C.Text = ""
End If
End Sub

Private Sub Command6_Click()
On Error GoTo er
C.Text = Val(A.Text) * Val(A.Text) * Val(A.Text)
er:
If A.Text = "" Then
MsgBox " occhio c'è un errore", 16, "Errore"
Err = 0
C.Text = ""
End If
End Sub

Private Sub Command7_Click()
On Error GoTo er
B.Visible = False
C.Text = Sqr(A.Text)
er:
If Err.Number <> 0 Then
Beep
MsgBox " occhio c'è un errore", 16, "Errore"
Err = 0
C.Text = ""
End If
End Sub

Private Sub Command8_Click()
MsgBox "Grazie per aver utilizzato (anche se so che non la sai usare...) la mia calcolatrice", 64, "Addii... che brutta cosa"
End
End Sub

[falk]

Gendo, hai per caso fatto qualcosa con il Visual basic?

[er patata]

dare devil ma non potresti dare uno screenshot su come posizionare gli oggetti e che valore dargli?

se mi mandi le foto a questo indirizzo ( [email protected] ) posso metterle sul mio spazio web e quindi farle vedere

[DareDevil86]

Inviato da er patata
dare devil ma non potresti dare uno screenshot su come posizionare gli oggetti e che valore dargli?

se mi mandi le foto a questo indirizzo ( [email protected] ) posso metterle sul mio spazio web e quindi farle vedere

Per ora ti ho mandato la foto della calcolatrice e basta. Su i valori te li mando tre un pò... Io nn sono buono con la grafica....

[Gendo Ikari]

Inviato da falk
Gendo, hai per caso fatto qualcosa con il Visual basic?

Un sacco di progetti ammezzati e lasciati in sospeso, poichè mi sono dato al Delphi, che è molto più bello

[DareDevil86]

Inviato da Gendo Ikari
Un sacco di progetti ammezzati e lasciati in sospeso, poichè mi sono dato al Delphi, che è molto più bello

Tipo?

[L33T]

Da qualche parte dovrei avere l'implementazione di un parser per operazioni aritmetiche capace di lavorare su numeri con qualche migliaio di cifre (eh, sapete, RSA..), corredato da un interprete per un linguaggino di scripting fatto in casa. E' lentissimo, essendo vb, ma sfrutta buona parte del linguaggio.
Avevo anche sviluppato una versione di Tetris usando DirectX (per quanto sembri assurdo Vb permette anche di fare giochi in 3d, OVVIAMENTE lentissimi...), ma non so che fine abbia fatto.
Poi qualche altra decina di progetti inutili...