16
Altri linguaggi / mql4: linguaggio per creare sistemi esperti di borsa
« il: 29 Febbraio 2012, 08:20:45 »
è open ma serve a creare anche software commerciale, lo sto cominciando ad usare
19/05/2023: A causa di un errore sono stati cancellati, insieme ad account creati da bot, alcuni account legittimi. Si prega di leggere qui: https://www.gambas-it.org/smf/index.php?topic=9733.0
Questa sezione ti permette di visualizzare tutti i post inviati da questo utente. N.B: puoi vedere solo i post relativi alle aree dove hai l'accesso.
With GridBox4
.Connection = $CCon
End With
With GridBox4.Columns[Col_d]
.Hide = False
.Type = Grid.Type.Field
.Field = "cognome"
.Text = "COGNOME"
.Name = "cognome"
.w = 150
.ObjectLinked = Me.TextBox1
.ObjectPropertyLinked = "Text"
.Alignment = 1
End With
Inc Col_d
With GridBox4.Columns[Col_d]
.Hide = True
.Type = Grid.Type.Field
.Field = "id"
.Name = "idcliente"
.DataType = Grid.DataType.Serial
.Text = "ID"
.IsFieldKey = True
.ObjectLinked = Me.TextBox8
.ObjectPropertyLinked = "Text"
End With
Inc Col_d
With GridBox4.Columns[Col_d]
.Hide = False
.Type = Grid.Type.Field
.Field = "nome"
.Text = "NOME"
.Name = "nome"
.ObjectLinked = Me.TextBox2
.ObjectPropertyLinked = "Text"
.w = 150
.Alignment = 1
End With
Inc Col_d
With GridBox4.Columns[Col_d]
.Hide = True
.Type = Grid.Type.Field
.Field = "telefono1"
.Text = "TEL1"
.Name = "tel1"
.ObjectLinked = Me.TextBox3
.ObjectPropertyLinked = "Text"
.DefaultValue = "nd"
End With
Inc Col_d
With GridBox4.Columns[Col_d]
.Hide = True
.Type = Grid.Type.Field
.Field = "telefono2"
.Text = "TEL2"
.Name = "tel2"
.ObjectLinked = Me.TextBox4
.ObjectPropertyLinked = "Text"
.DefaultValue = "nd"
End With
Inc Col_d
With GridBox4.Columns[Col_d]
.Hide = True
.Type = Grid.Type.Field
.Field = "telefono3"
.Text = "TEL3"
.Name = "tel3"
.ObjectLinked = Me.TextBox5
.ObjectPropertyLinked = "Text"
.DefaultValue = "nd"
End With
Inc Col_d
With GridBox4.Columns[Col_d]
.Hide = True
.Type = Grid.Type.Field
.Field = "telefono4"
.Text = "FAX"
.Name = "tel4"
.ObjectLinked = Me.TextBox6
.ObjectPropertyLinked = "Text"
.DefaultValue = "nd"
End With
Inc Col_d
With GridBox4.Columns[Col_d]
.Hide = True
.Type = Grid.Type.Field
.Field = "mobile"
.Text = "CELL"
.Name = "mob" ' Inc Col
.ObjectLinked = Me.TextBox7
.ObjectPropertyLinked = "Text"
.DefaultValue = "nd"
.Alignment = 1
End With
Inc Col_d
With GridBox4.Columns[Col_d]
.Hide = True
.Type = Grid.Type.Field
.DataType = Grid.DataType.Boolean
.DefaultValue = 0
.Box.ValueCheck = -1
.Box.ValueUncheck = 0
.ObjectLinked = Me.CheckBox1
.ObjectPropertyLinked = "Value"
.Field = "effettivo"
.Name = "effvo"
End With
Inc Col_d
With GridBox4.Columns[Col_d]
.Hide = True
.Type = Grid.Type.Field
.Field = "cartellina"
.Text = "CART."
.Name = "cart"
.ObjectLinked = Me.TextBox9
.ObjectPropertyLinked = "Text"
End With
With GridBox4
.Expand = True
.Color.RowAlternating = Color.RGB(230, 230, 230)
.AutoDataType = True
.GridOnly = True
.TableName = "tbrubrica"
.LoadData(sqlcorrente2)
.ColorRowAlternating = True
.AutoNew = False
.Grid = False
.EnabledObjectLinked = True
End With
Me.GridBox4.Header = Grid.Header.Horizontal
Public Sub Button6_Click()
Dim myplay As Process
myplay = Shell ("aplay /home/andy/foobar.wav")
End
Public Sub Button6_Click()
Dim myplay As Process
myplay = Shell ("gnome-sound-recorder /home/andy/foobar.wav")
End
Public Sub btPost_Click()
Dim hfile As Stream
Dim myemail As Process
hFile = Open Application.Path & "/temp.txt" For Create
Print #hFile, "" & TextEdit1.Text & ""
myemail = Shell ("mutt - s 'Diario myZone4-" & Application.Version & "' " & hset["host/facebook"] & " < " & Application.Path & "/testo.txt")
Message("Messaggio inviato a Facebook.")
End