Come si mettono i file sul forum?? si può vero??
Io di Visual Basic conosco un po', se vi serve qualche dritta di base ve la posso dare volentieri.
Viva l'Itaglia!
il visual basic è un linguaggio di programmazione ad oggetti, che quindi non è compatibile con nessun interprete che funzioni con codice testuale
A volte credo di essere fin troppo nerd. Naa, never too much.
Vuoi personalizzare l'aspetto del forum di GamesRadar? Clicca qui!
Consortium.ru 2004 3D Motion Demo, shocking graphics. (QuickTime 60MB)
Vuoi guadagnare soldi velocemente? Clicca qui!
No, solo Gorman può allegarli.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....Inviato da DareDevil86
Come si mettono i file sul forum?? si può vero??
x gendo: eh magari.... se puoi insegnarci le fondamenta del linguaggio...
A volte credo di essere fin troppo nerd. Naa, never too much.
Vuoi personalizzare l'aspetto del forum di GamesRadar? Clicca qui!
Consortium.ru 2004 3D Motion Demo, shocking graphics. (QuickTime 60MB)
Vuoi guadagnare soldi velocemente? Clicca qui!
Ok, vedrò cosa posso fare.
Viva l'Itaglia!
beh grazie...Inviato da Gendo Ikari
Ok, vedrò cosa posso fare.
A volte credo di essere fin troppo nerd. Naa, never too much.
Vuoi personalizzare l'aspetto del forum di GamesRadar? Clicca qui!
Consortium.ru 2004 3D Motion Demo, shocking graphics. (QuickTime 60MB)
Vuoi guadagnare soldi velocemente? Clicca qui!
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
Gendo, hai per caso fatto qualcosa con il Visual basic?
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
A volte credo di essere fin troppo nerd. Naa, never too much.
Vuoi personalizzare l'aspetto del forum di GamesRadar? Clicca qui!
Consortium.ru 2004 3D Motion Demo, shocking graphics. (QuickTime 60MB)
Vuoi guadagnare soldi velocemente? Clicca qui!
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....
Un sacco di progetti ammezzati e lasciati in sospeso, poichè mi sono dato al Delphi, che è molto più belloInviato da falk
Gendo, hai per caso fatto qualcosa con il Visual basic?
Viva l'Itaglia!
Tipo?Inviato da Gendo Ikari
Un sacco di progetti ammezzati e lasciati in sospeso, poichè mi sono dato al Delphi, che è molto più bello
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...
Es ist nichts schrecklicher als eine tätige Unwissenheit.