Minulla on Delphillä tehty osakkeiden backtestaus ohjelma, joka on vähän kesken ja tarvitsen siihen apua joltain sellaiselta henkilöltä joka ymmärttää myös vähän osakkeista (on helpompi selittää mitä haluan jos tiedät perusasiat osakkeisa).
Minulla on osakesysteemi joka tuottaa noin 20 osto tai myynti signaalia per vuosi. Minä haluaisi testata systeemini myynti ja osto päivät eri osakkeilla tällä Delphi ohjelmalla, joka laskisi automaattisesti tuoton näille eri osakkeille?
Tiedän että on olemassa paljon ohjelmia jotka pitävät kirjaa osake salkusta, mutta etsin ohjemaa johon voisin syöttää koko vuoden osto ja myynti päivät ja sitten testata mitä tuotto olisi ollut eri osakkeiden kohdalla jos niillä olisi käyty kauppaa näinä kyseisinä päivinä. Kiitos, Timo.
PS www.etf-gold-stocks.com
sivulta löytyy lisää infoa systeemistäni ja sitä kautta saat myös halutessa yhteyden minuun...
Minulla on osakesysteemi joka tuottaa noin 20 osto tai myynti signaalia per vuosi. Minä haluaisi testata systeemini myynti ja osto päivät eri osakkeilla tällä Delphi ohjelmalla, joka laskisi automaattisesti tuoton näille eri osakkeille?
Tiedän että on olemassa paljon ohjelmia jotka pitävät kirjaa osake salkusta, mutta etsin ohjemaa johon voisin syöttää koko vuoden osto ja myynti päivät ja sitten testata mitä tuotto olisi ollut eri osakkeiden kohdalla jos niillä olisi käyty kauppaa näinä kyseisinä päivinä. Kiitos, Timo.
PS www.etf-gold-stocks.com
sivulta löytyy lisää infoa systeemistäni ja sitä kautta saat myös halutessa yhteyden minuun...
Vastaukset 6
Vanhimmat
Kannattaisi ehkäpä kysyä yksityiskohtaisemmista asioista.
Mutta ainakin eri ajankohtien (päivämäärien) käsittelyyn löytyy monia vakiorutiineja.
Tämä on yksinkertaiseksi asiaksi vaikea selitää tällaisella forumilla. Mutta oli miten oli, minulla on ohjelma joka on tehty Delphillä mutta se ei ole aivan valmis... jos kiinnostaa, niin ota yhteyttä niin voin lähettää sen ja sen jälkee tämä asia on helpompi selitää.
signal at etf-gold-stocks com
Millaisi Delphi ongelmia sinulla on? Mitä haluat ratkaista?
Minulla on keskeneräinen Delphillä tehty ohjelma. Tai kyllä se toimii aivan hyvin, mutta sitä pitää hieman korjata. Tämä korjaus on vaikea selittää tässä.
Minulla on osakesysteemi joka tuottaa noin 20 osto tai myynti signaalia per vuosi. Minä haluaisi testata systeemini myynti ja osto päivät eri osakkeilla tällä Delphi ohjelmalla, joka laskisi automaattisesti tuoton näille eri osakkeille?
En osaa ylläolevaa paremmin selittää mitä haluan. Parasta olisi jos on halua auttaa, niin mä voisin lähettää ohjeman sähköpostilla ja sitten vaikka puhelimessa selittää mitä haluan. Muuten se ei oikein selviä. Terv Timo
Eli sanotaan, että minulla on vaikka 4 signaali eli kauppa päivää: Osta: 12.1.08. Myy: 2.3.08. Osta: 5.5.08 ja Myy: 15.5.08.
Nyt haluan ajaa tällä ohjelmalla Nokian, Metson, UPM, Orioinin, Marimekon osakkeiden hinnat läpi niin, että näen mikä olisi ollut tuotto näillä osakkeila jos niillä olisi käyty kauppaa näinä kyseisinä päivinä.
Eli ohjelman pitää pysytä hakemaan Yahoosta näiden osakkeiden aamun avaus hinnat. (se ei ole onglema, koska Delphi ohjelma joka on mulla tekee sen) Sitten minun on pystyttävä taltioimaan tähän ohjelmaan nämä kauppa/signaali päivät talteen, ja sitten vain klikkaan jotain osaketta ja ohjelma laskee sille sen tuoton näillä päivillä.
Vaikka käytin suomalaisia osakkeita esimerkissäni kyse on USAlaista osakkeista. Mutta sen ei pitä olla onglema, koska nykyinen ohjelma hakee hinnat Yahoosta automaatisesti.
Ainoa osuus joka ei vielä toimi on se että mä pysytyisin tallentamaan noin mun osto ja myynti päivät.
Eli onko täällä apua, kun on niin hiljasta koko forumissa???
Tässä on eräs tapa tallentaa ja lukea noita tietoja.
Ideana on käyttää Ini-tiedostoja ja SringList:ä.
Kaikki tiedot tallentuu tällöin selväkielisenä.
procedure TForm1.Button1Click(Sender: TObject);
var IniFile:TIniFile;
strlist:TStringList;
IniTiedostonNimi,kauppa,tapahtuma,p,k,v,kpl,hinta:string;
i:integer;
begin
IniTiedostonNimi := 'tiedostonnimi.ini';
kauppa := 'Kauppa 4';
tapahtuma := 'Myynti';
p := '5';
k :='1';
v:='2008';
kpl :='5';
hinta := '20.00';
strlist := TStringList.Create;
strlist.add('Tapahtuma =' tapahtuma);
strlist.add('pv =' p);
strlist.add('kuu =' k);
strlist.add('vuosi =' v);
strlist.add('Kpl =' kpl);
strlist.add('Hinta =' hinta);
IniFile := TIniFile.Create(IniTiedostonNimi);
for i:= 0 to strlist.count-1 do
IniFile.WriteString(kauppa, strlist.Names[i], strlist.ValueFromIndex[i]);
FreeAndNil(IniFile);
FreeAndNil(strlist);
end;
procedure TForm1.Button2Click(Sender: TObject);
var IniFile:TIniFile;
strlist:TStringList;
IniTiedostonNimi,kauppa:string;
begin
IniTiedostonNimi := 'tiedostonnimi.ini';
kauppa := 'Kauppa 4';
strlist := TStringList.Create;
IniFile := TIniFile.Create(IniTiedostonNimi);
IniFile.ReadSectionValues(kauppa,strlist);
Edit1.Text:= strlist.Values['Hinta'];
FreeAndNil(IniFile);
FreeAndNil(strlist);
end;