Newsgroup: it.economia.borsa
Titolo: x ghost

Sei un programmatore di cosa?
--------------------------------
Inviato via 
http://usenet.libero.it

> Sei un programmatore di cosa?
programmo in VB
e seguo l'informatizzazione di una industria che produce
macchine orafe.  Ho automatizzato e centralizzato
tutti i dati....produzione, amministrazione, uff. tec. ecc.
Da 5 anni lavoro qui ...  dopo il primo anno avevo gia' preso il posto
del responsabile di produzione.  Ora oltre alla
programmazione VB sono resp. della produzione,
ho tre ragazzi che lavorano con me e che coordino
(cosi' io lavoro meno :-))
Inoltre gestisco i vari reparti cercando di
non far fallire la ditta :-)))
ciao ....
PS:.. e tu che fai di bello?
-----= Posted via Newsfeeds.Com, Uncensored Usenet News =-----
http://www.newsfeeds.com
 - The #1 Newsgroup Service in the World!
-----==  Over 80,000 Newsgroups - 16 Different Servers! =-----

Allora sei doppiamente un grande!!!
Lavoro in un ufficio tecnico, sono un progettista elettronico.
Ho avuto la necessitą di imparare un linguaggio di programmazione e mi sono
buttato sul VB, non sono ancora molto bravo, ma diciamo che le basi dovrei
averle.
Purtroppo non ho molto tempo per seguirlo, ma il VB č spettacolare!!!
Ti considero il mio maestro di VB, ci conto.


> Ti considero il mio maestro di VB, ci conto.
Ti do anche la mia mail ...  
gho...@libero.it
Ti mando il mio primo programma...
lo tengo come un cimelio :-))))
Fanne buon uso...mi raccomando :-))
-----------------------------------------------
Private Sub Form_Load()
  Command1_Click
End Sub
Sub calcola()
Dim tmp
Dim a, b, x, y, z
Dim alfa, alfa1
Dim pigreco
pigreco = 3.141592653589
If Text1.Text <> "" Then conta = conta + 1
If Text2.Text <> "" Then conta = conta + 1
If Text3.Text <> "" Then conta = conta + 1
If Text4.Text <> "" Then conta = conta + 1
If Text5.Text <> "" Then conta = conta + 1
If conta > 2 Then
   MsgBox ("Devi inserire solo due valori")
   Exit Sub
End If
If Text1.Text <> "" And Text2.Text <> "" Then
   MsgBox ("Valori non calcolabili con i parametri immessi")
   Exit Sub
End If
' ** x - y **
If Text5.Text <> "" And Text4.Text <> "" Then
   x = Val(Text5.Text)
   y = Val(Text4.Text)
   z = Sqr((x * x) + (y * y))
   z = Int(z * 100000)
   z = z / 100000
   Text3.Text = Trim(Str$(z))
   alfa1 = Atn((x / y))           ' rapporto numerico tra i lati
   alfa1 = alfa1 * 180 / pigreco  ' conversione in gradi
   alfa = 90 - alfa1              ' angolo opposto
   alfa = Int(alfa * 100000)
   alfa = alfa / 100000
   alfa1 = Int(alfa1 * 100000)
   alfa1 = alfa1 / 100000
   Text1.Text = Trim(Str$(alfa))
   Text2.Text = Trim(Str$(alfa1))
   Exit Sub
End If
' ** z - x **
If Text3.Text <> "" And Text5.Text <> "" Then
   z = Val(Text3.Text)
   x = Val(Text5.Text)
   y = Sqr((z * z) - (x * x))
   y = Int(y * 100000)
   y = y / 100000
   Text4.Text = Trim(Str$(y))
   alfa1 = Atn((x / y))           ' rapporto numerico tra i lati
   alfa1 = alfa1 * 180 / pigreco  ' conversione in gradi
   alfa = 90 - alfa1              ' angolo opposto
   alfa = Int(alfa * 100000)
   alfa = alfa / 100000
   alfa1 = Int(alfa1 * 100000)
   alfa1 = alfa1 / 100000
   Text1.Text = Trim(Str$(alfa))
   Text2.Text = Trim(Str$(alfa1))
   Exit Sub
End If
' ** z - y **
If Text3.Text <> "" And Text4.Text <> "" Then
   z = Val(Text3.Text)
   y = Val(Text4.Text)
   x = Sqr((z * z) - (y * y))
   x = Int(x * 100000)
   x = x / 100000
   Text5.Text = Trim(Str$(x))
   alfa1 = Atn((x / y))           ' rapporto numerico tra i lati
   alfa1 = alfa1 * 180 / pigreco  ' conversione in gradi
   alfa = 90 - alfa1              ' angolo opposto
   alfa = Int(alfa * 100000)
   alfa = alfa / 100000
   alfa1 = Int(alfa1 * 100000)
   alfa1 = alfa1 / 100000
   Text1.Text = Trim(Str$(alfa))
   Text2.Text = Trim(Str$(alfa1))
   Exit Sub
End If
' ** y - alfa **
If Text4.Text <> "" And Text2.Text <> "" Then
   'z = Val(Text3.Text)
   'x = Sqr((z * z) - (y * y))
   y = Val(Text4.Text)
   alfa1 = Val(Text2.Text) * pigreco / 180
   alfa = 90 - Val(Text2.Text)
   alfa = Int(alfa * 100000)
   alfa = alfa / 100000
   Text1.Text = Trim(Str$(alfa))
   x = y * Tan(alfa1)
   x = Int(x * 100000)
   x = x / 100000
   Text5.Text = Trim(Str$(x))
   z = Sqr((x * x) + (y * y))
   z = Int(z * 100000)
   z = z / 100000
   Text3.Text = Trim(Str$(z))
   Exit Sub
End If
' ** x - alfa **
If Text5.Text <> "" And Text2.Text <> "" Then
   x = Val(Text5.Text)
   alfa1 = Val(Text2.Text) * pigreco / 180
   alfa = 90 - Val(Text2.Text)
   alfa = Int(alfa * 100000)
   alfa = alfa / 100000
   Text1.Text = Trim(Str$(alfa))
   y = x * (1 / Tan(alfa1))
   y = Int(y * 100000)
   y = y / 100000
   Text4.Text = Trim(Str$(y))
   z = Sqr((x * x) + (y * y))
   z = Int(z * 100000)
   z = z / 100000
   Text3.Text = Trim(Str$(z))
   Exit Sub
End If
' ** z - alfa **
If Text3.Text <> "" And Text2.Text <> "" Then
   z = Val(Text3.Text)
   alfa1 = Val(Text2.Text) * pigreco / 180
   alfa = 90 - Val(Text2.Text)
   alfa = Int(alfa * 100000)
   alfa = alfa / 100000
   Text1.Text = Trim(Str$(alfa))
   x = z * Sin(alfa1)
   x = Int(x * 100000)
   x = x / 100000
   Text5.Text = Trim(Str$(x))
   y = Sqr((z * z) - (x * x))
   y = Int(y * 100000)
   y = y / 100000
   Text4.Text = Trim(Str$(y))
   Exit Sub
End If
 '***** beta *********
 ' ** y - beta **
If Text4.Text <> "" And Text1.Text <> "" Then
   y = Val(Text4.Text)
   alfa1 = 90 - Val(Text1.Text)
   Text2.Text = Trim(Str(alfa1))
   alfa1 = alfa1 * pigreco / 180
   x = y * Tan(alfa1)
   x = Int(x * 100000)
   x = x / 100000
   Text5.Text = Trim(Str$(x))
   z = Sqr((x * x) + (y * y))
   z = Int(z * 100000)
   z = z / 100000
   Text3.Text = Trim(Str$(z))
   Exit Sub
End If
' ** x - beta **
If Text5.Text <> "" And Text1.Text <> "" Then
   x = Val(Text5.Text)
   alfa1 = 90 - Val(Text1.Text)
   Text2.Text = Trim(Str(alfa1))
   alfa1 = alfa1 * pigreco / 180
   alfa = 90 - Val(Text2.Text)
   alfa = Int(alfa * 100000)
   alfa = alfa / 100000
   Text1.Text = Trim(Str$(alfa))
   y = x * (1 / Tan(alfa1))
   y = Int(y * 100000)
   y = y / 100000
   Text4.Text = Trim(Str$(y))
   z = Sqr((x * x) + (y * y))
   z = Int(z * 100000)
   z = z / 100000
   Text3.Text = Trim(Str$(z))
   Exit Sub
End If
' ** z - beta **
If Text3.Text <> "" And Text1.Text <> "" Then
   z = Val(Text3.Text)
   alfa1 = 90 - Val(Text1.Text)
   Text2.Text = Trim(Str(alfa1))
   alfa1 = alfa1 * pigreco / 180
   alfa = 90 - Val(Text2.Text)
   alfa = Int(alfa * 100000)
   alfa = alfa / 100000
   Text1.Text = Trim(Str$(alfa))
   x = z * Sin(alfa1)
   x = Int(x * 100000)
   x = x / 100000
   Text5.Text = Trim(Str$(x))
   y = Sqr((z * z) - (x * x))
   y = Int(y * 100000)
   y = y / 100000
   Text4.Text = Trim(Str$(y))
   Exit Sub
End If
End Sub
--------------------------------


SPETTACOLO!!!!
La mia la avrai penso tra pochi minuti nella tua posta.
Io sono proprio ancora indietro.... ma imparerņ.
Il mio primo programma te lo manderņ poi via e-mail.
Che ne dici di farci un'altra pizza????


 Che ne dici di farci un'altra pizza????
heheheh vuoi altri 20 Euro???
 oggi ho esaurito il mio tempo ..purtroppo...
devo anche lavorare qui in uff.  :-)
Comunque domani si riparte :-))


 ha scritto nel messaggio
news:3f155...@corp.newsgroups.com...



quello e' stato con il Turbo Basic a 20 anni ;-))
ed ora ne ho qualcuno di piu' :-))


moooolto bene, se guardi nella tua posta dovresti vedere la mia e-mail.
Allora buonlavoro, oggi quì è tranquillo, diciamo che posso ancora fare un
pò di trade


 pò di trade
stai attento a non fare i miei errori ...
gioca sul "quasi" sicuro e stoppa quando vedi che
stai perdendo. Per il resto ... buon "divertimento" :-))


lo stò già facendo da tempo, comunque grazie del consiglio.



il mio con il basic del C64 ...
a 12 anni
:-D

 a 12 anni
io a 13 ... primo rapporto sessuale :-))) hehehehe


Azz ghost!!! io a quell'età mi facevo appena le pugnette!!!


> Azz ghost!!! io a quell'età mi facevo appena le pugnette!!!
azzz ... a me dopo quella esperienza...
mi sono arrivati i "pugnetti" del padre... gulp ... SGAMATO !!!!


che numero ti sei fatto!!! a me non è mai capitato, meno male.


 io a 13 ... primo rapporto sessuale :-))) hehehehe
io a 16 ... ma sono contento uguale ...

> che numero ti sei fatto!!! a me non è mai capitato, meno male.
non e' uno scherzo...
e' proprio vero.  Avevo 13 anni ... e lei idem ...
non ti dico che storia. E poi al mio paese (che e' piccolo e la gente
mormora)
e' stata una tragedia ....ed io un diavolo da evitare  (tranne che per le
ragazze ...
che erano tutte curiose ... heheheh)


> io a 16 ... ma sono contento uguale ...
sempre col C64 ? hehehe
E dai ... sei un grande ... Tu almeno non sei stato sgamato :-)


quindi nel male ci hai guadagnato... furbacchione!!!


> quindi nel male ci hai guadagnato... furbacchione!!!
Come al solito ... e su tutto :-)))


sei un fenomeno!!!


 ha scritto nel messaggio
news:217Z18Z99Z186Y1...@usenet.libero.it...


 nel culo
infatti ... io ho le mutande di ferro, sono vaccinato per ogni evenienza
e faccio tre lavori ... praticamente cado sempre in piedi :-)))


io sono praticamente tutto il gg seduto e la schiena č contro il muro,
anch'io sono prevenuto.


Ottimo ... meglio prevenuti che
poveri in canna :-))
