Newsgroup: it.economia.borsa
Titolo: non so quanto rappresentativo si il book di Oli ma...

.....a vederlo ora mi sembra che si stia preparando qualcosa, non so se
positivo o negativo, ma e' un book sostanzialmente vuoto rispetto agli
ultimi giorni guardate
      ORD VOLUME BID ASK VOLUME ORD
    2 109432 1.058 1.059 132840 1
      4 166500 1.057 1.06 206500 7
      10 270808 1.056 1.061 116000 3
      17 354733 1.055 1.062 110932 3
      5 132000 1.054 1.063 125362 3

 ha scritto nel messaggio
news:Da2Ba.39722$Ny5.1...@twister2.libero.it...

-----= 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! =-----


potresti imparare almeno le basi della borsa prima di postare 100000000
volte domande inutili?
almeno saper leggere un book.....
grazie

 ha scritto nel messaggio
news:bb2bce$533k1$1...@ID-53989.news.dfncis.de...



 almeno saper leggere un book.....
sai cosa penso ...
penso che sei un genio ... percio' aiutami a trovare un piccolo errorino in
questo
programmino che sto facendo ....
-----------------------------------------------------------
Private Sub Command1_Click()
 Text1.Text = ""
 Text2.Text = ""
 Text3.Text = ""
 Text4.Text = ""
 Text5.Text = ""
End Sub
Private Sub Command2_Click()
  calcola
End Sub
Private Sub Command3_Click()
  Unload Me
End Sub
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



Non passi per deficente....solo che passi per uno che non ha voglia di
studiare  e imparare e chiede qualsiasi cazzata perche' fa prima....e ti
assicuro che la cosa e' un po' fastidiosa....tant'e' vero che se hai
notato non ti rispondono :-)
ciao.

non l'hai trovato l'errorino?
ma come fai?
Usi un computer e non sai le basi di programmazione?
.-----------------------------------------------------------


Ho dei problemi con questo piccolo algortimo ricorsivo ...
Public Function GetStrFasc() As String
Dim Adors As ADODB.Recordset
Dim AdorsFasc As ADODB.Recordset
Dim i As Integer
Dim StrArray() As String
Dim IdArray() As Long
Dim ContParent As Integer
Dim AppStr As String
Dim AppDescr As String
Set Adors = GetFascicoli
Set AdorsFasc = Adors.Clone
Adors.Filter = "iIdParent = 0 and iIdMaster = 0"
    While Not Adors.EOF
            ReDim Preserve StrArray((ContParent * 2) + 1)
            StrArray(ContParent * 2) = vbCrLf & vbTab & "<li>" &
Adors("sDescr").Value & "</li>" & vbCrLf
            AdorsFasc.Filter = "iIdMaster=" & Adors("iId").Value
            If Not AdorsFasc.EOF Then
                StrArray(ContParent * 2) = StrArray(ContParent * 2) & vbCrLf
& vbTab & "<ul>" & CreateTree(AdorsFasc) & "</ul>" & vbCrLf
            Else
                Select Case Adors("iTipoObj").Value
                    Case 0
                        StrArray(ContParent * 2) = StrArray(ContParent * 2)
& "<ul><li>--- Vuoto ---</li></ul>" & vbCrLf
                    Case 1
                        StrArray(ContParent * 2) = StrArray(ContParent * 2)
& "<li>" & Adors("sDescr").Value & "</li>" & vbCrLf
                    Case 2
                        StrArray(ContParent * 2) = StrArray(ContParent * 2)
& "<li>" & Adors("sDescr").Value & "</li>" & vbCrLf
                End Select
            End If
            AdorsFasc.Filter = ""
            AdorsFasc.MoveFirst
            ContParent = ContParent + 1
        Adors.MoveNext
    Wend
Adors.Filter = ""
GetStrFasc = "<applet code=""Outline"" width=400 height=" & (15 *
Adors.RecordCount) & " >" & vbCrLf & "<li>Fascicoli</li>" & vbCrLf & "<ul>"
& vbCrLf
For i = 0 To ((ContParent - 1) * 2) + 1
    GetStrFasc = GetStrFasc & StrArray(i)
Next
GetStrFasc = GetStrFasc & vbCrLf & "</ul>" & vbCrLf & "</applet>"
Set Adors = Nothing
End Function
Public Function CreateTree(Adors As ADODB.Recordset) As String
Dim AppStr As String
Dim PosAbs As Long
Dim AdorsFasc As ADODB.Recordset
Set AdorsFasc = Adors.Clone
    While Not Adors.EOF
        AdorsFasc.Filter = "iIdMaster=" & Adors("iId").Value
        If Not AdorsFasc.EOF Then
            AppStr = AppStr & "<li>" & Adors("sDescr").Value & "</li>" &
vbCrLf & "<ul>" & CreateTree(AdorsFasc) & vbCrLf & "</ul>" & vbCrLf
        Else
            Select Case Adors("iTipoObj").Value
                Case 0
                    AppStr = AppStr & "<li>" & Adors("sDescr").Value &
"</li><ul><li>--- Vuoto ---</li></ul>" & vbCrLf
                Case 1
                    AppStr = AppStr & "<li>" & Adors("sDescr").Value &
"</li>" & vbCrLf
                Case 2
                    AppStr = AppStr & "<li>" & Adors("sDescr").Value &
"</li>" & vbCrLf
            End Select
        End If
        Adors.MoveNext
    Wend
    CreateTree = AppStr
End Function

 Usi un computer e non sai le basi di programmazione?
tu per usare l'auto sai costruirne il motore?
e per mangiare frutta la coltivi?
e per trombare la moglie sei ginecologo? :-))
maddai.....

 ha scritto nel messaggio
news:bb2c74$4q9im$1...@ID-53989.news.dfncis.de...



 ha scritto nel messaggio
news:jt2Ba.39804$Ny5.1...@twister2.libero.it...




ok......pero' tu chiedi e poi non ascolti quando ti insegnano stop loss
( come me e orsotoro) e anzi......insisti nel chiedere se salira'...ma ti
pare sia una domanda  da fare? :-))
credi che se qualcuno sapesse  se scende o sale.......esisterebbero stop
loss e stop gain ?  :-))
eddai....
prometto che vedro' di risponderti......ma tu prometti che farai tesoro
dei suggerimenti che ti danno persone competenti come orso toro  ok?


e poi...se non vuoi essere filtrato...imparaa quotare!
cioe' scrivere SOTTO al messaggio al quale rispondi .....cancellando tutto
quello che non serve ( in questo caso per rispondere " GRANDEEEEE"  hai
lasciato tutto il post lungo di morbillo.....
devi cancellarlo come ho fatto io ok? :-)

OK...pace fatta :-)
e prometto che non faro' piu' domande su quei tre titoli che mi stanno
facendo perdere 800 Eurozzi
Ti faro' solo domande pertinenti e
possibilmente intelligenti :-)
Comunque gli errori si devono pagare (questo l'ho imparato
anche al di fuori della bosra) e sto pagando di tasca mia.
Ora pero' so che posso contare su certe persone
e che quello che mi hanno detto l'hanno detto perche' competenti,
Pensa, ho fatto ben 4 movimenti con Volkswagen .. e tutti positivi :-))
mi ero gia' imposto stop e guadagno (non so come si dice :-)
Da oggi lavorero' cosi' ...
Il mio problema e' che ora volevo liberare uno dei titoli che ho in
saccoccia
.... ma questo e' una decisione mia ... percio' non ti chiedero' consigli
:-)
ciao piccola ..
bacio :-))


 devi cancellarlo come ho fatto io ok? :-)
OK ... .))
(vedi ? imparo in fretta :-))


 bacio :-))
:-)))))))))
ciao


|
| Per quanto riguarda il motore dell'auto... ebbene si
| la so costruire, sono un ing. meccanico (ti spiace?)
|
intendi il motore a molla delle automobiline indiane ?
ih ih ih
ma vattenne ...
salute e fortuna


vuoi un po' di formuline?
o ti basta sapere che i motori a scoppio
trasformano un movimento lineare in rotatorio?
AAAAA dimenticavo... non sai cos'e' lineare e neppure rotatorio...
allora ti spiego, lineare e' come l'encefalogramma del tuo cervello
rotatorio come il movimenti dei miei maroni ... dopo questa
giornata di borsa.
fortuna a te


scusa, mostro
non ti avevo riconosciuto
|
| fortuna a te
|
e salute anche
(sei proprio un handicappato)

"§¢ärpàntìþù§ ©" < @ . > ha scritto nel messaggio
news:IR3Ba.10062$g92.2...@news2.tin.it...

detto da te e' un complimento


scusi ingegnè
mi rimetta a posto la catena della bicicletta
lei che è del mestiere però attento
a non tirarla troppo
e già che c'è anche una gonfiatina alle gomme
grazie
salute e fortuna
(oltre che mongoloide sei anche permaloso)

hei uomi ombra e senza nick...
io saro' amche permaloso ... ma se ti metto le mani sulla catena
poi il conto non so se te lo puoi permettere ... heheheheh
sei un poveraccio ...
------------------------------------------------------------------------
questa e' la mia ultima risposta
non spreco il tempo con gli idioti.


| > Pensa, ho fatto ben 4 movimenti con Volkswagen .. e tutti positivi
:-))
2 marcia avanti
2 marcia indietro
senza sbattere nel cancello
salute e fortuna

quando parli di idioti
ti riferisci alla rilettura dei tuoi post
sottospecie di sottosviluppato incrocio
di strano miscuglio non identificato
vattelappianderc**o
ingegnere abusivo di laurea comprata (se ce l'hai)
salute e fortuna
nanerottolo inacidito e frustrato