Arvutuste abiprogramm

[Starfish]

Vs: Arvutuste abiprogramm

Igast muudatusest ? See pole siis projekti failide hulgas.
(Kunagi ühe teise projekti sain taastada, mis oli testimise ajal üle kirjutatud. .pas oli originaal aga .dfm oli vale aga selle ma taastasin projekti failidest)


Google teeb mulle igakord uue lingi.

Viimane siin:

https://1drv.ms/f/s!AnS2DnIFINqHgiVZCt9NZaf5n_tg

[Starfish]

Vs: Arvutuste abiprogramm

Küsimus Delphi-ga tegelejatele.

Kuidas saaks mööda hädast et MDI järglase nimi aktiivseks jääb pärast sulgemist.
Avan uuesti ja paneb nimele _1 otsa.
Asi selles et kui salvestab avatud arvutused siis see _1 salvestub ini faili, järgmine kord käivitades otsib aga õigeid nimesi.

Sulgemiseks vajalik on MDI järglasel olemas:

AWG: TAWG = nil;
.........

procedure TAWG.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:=caFree;
end;
procedure TAWG.FormDestroy(Sender: TObject);
begin
AWG:= nil;
end;

Hetkel lahendasin sedasi, et enne sulgemist antakse uus nimi, sedasi saab sama järglane uuesti laadides õige nime ja salvestub õige nimega.

i: byte;
.....
if MdiChildCount>0 then
begin
for i:= 0 to MdiChildCount - 1 do
begin
MDIChildren[i].Name:='mdi'+inttostr(i);
MDIChildren[i].Close;
end;
end;

[Mephistopheles]

Vs: Arvutuste abiprogramm

Oih, olin foorumist natukene pikemalt eemal. Aga MDI akende kohta, kas sa lubad rohkem kui yhte sama sisuga akent kuvada v6i piirad, et ainult yks selline aken?

[Starfish]

Vs: Arvutuste abiprogramm

Iga arvutus saab avaneda üks kord.
Sedasi on salvestus lihtsam, wsNormal/Minimized, + positsioon.
Sellesmõttes nagu töölaud jääb samaks kui programm sulgeda, salvestub kõik mis avatud, järgmine kord taastab.
Kõik see töötab sedasi (sulgemisel uue nime andmisega).
Delphi7 MDI ei võimalda nii head kontrolli, see nagu poolfabrikaat ja kole.
DXE omab kõik head võimalused selleks + visuaalselt moodne.

See nime jant tekib salvestatud seadete laadimisel, kui sama aken on juba aktiivne.
Kui see manuaalselt enne sulgeda siis on OK, sulgemise protseduur on sama aga äki on asi selles et suleb ja kohe avab uuesti.

[Mephistopheles]

Vs: Arvutuste abiprogramm

Hmmm, selle jaoks peaks n2gema, kuidas sul see lugemine/salvestamine on tehtud. K6ige lihtsam on objekt salvestada faili ning lugeda sealt.

Ma ise teeksin nii, et OnCreate ja OnDestroy eventite peal oleks akna sisu lugemine ja salvestamine. Kui nyyd veel eriti vingeks asi teha, siis kasutaks frame-sid, mis on pmtlslt sisu wraperid. Kui aken luuakse, siis loetakse frame salvestus ning initsialiseeritakse aknas, kui suletakse, siis salvestatakse faili.

Mis ma siis t2psemalt m6tlen komponendi salvestamise ja lugemise all:

unit servicedesk_board_main;

interface

// ...
type
  Tfrm_servicedesk_board = class(TForm)
    lv_tickets: TListView;
    // ...
    procedure frm_servicedesk_board_on_create(Sender : TObject);
    procedure frm_servicedesk_board_on_destroy(Sender : TObject);
    // ...
  end;
// ...

implementation

// ...
procedure Tfrm_servicedesk_board.frm_servicedesk_board_on_create(Sender : TObject);
var
  tickets_file : TFileStream;
begin
  if FileExists('servicedesk_board.sav') then
  begin
    tickets_file := TFileStream.Create('servicedesk_board.sav', fmOpenRead);
    try
      tickets_file.ReadComponent(lv_tickets);
    finally
      tickets_file.Free;
    end;
  end;
  pmi_group.Checked := lv_tickets.GroupView;
end;

procedure Tfrm_servicedesk_board.frm_servicedesk_board_on_destroy(Sender : TObject);
var
  tickets_file : TFileStream;
begin
  tickets_file := TFileStream.Create('servicedesk_board.sav', fmCreate);
  try
    tickets_file.WriteComponent(lv_tickets);
  finally
    tickets_file.Free;
  end;
end;
// ...

end.

[Starfish]

Vs: Arvutuste abiprogramm

Lugemine/salvestamine on kõik põhiprogrammis, funktsioon loeb ini failist kas peab järglase tekitama ja kuhu(.left/.top) ja kuidas (wsNormal/minimized).
Sulgemisel uue nime andmine lahendas probleemi.

Tekstiväljade sisu ei salvestata aga kui siis jah need tuleks iga mdi järglase eventitesse panna.

[Starfish]

Vs: Arvutuste abiprogramm

Valmis uuendus 2.0.
Enamjaolt visuaalne uuendus, esteetilisem välimus uuematele Op.Süsteemidele.
Peaks ka paremini sobima erinevate Win stiilidega...
Kasutaja saab valida värve taustale ja arvutustele+ veel kolme töölaua eraldi salvestus.
Pole testitud Win10.

https://1drv.ms/u/s!AnS2DnIFINqHhFLhzu2p34xmj4X7

[A.R.]

Vs: Arvutuste abiprogramm

Pole testitud Win10

Ütles Win10 all et 10 oomi ja 10 volti on 1 A ja 10 W

Kas see on õige voolu pinge?

[Pläsku]

Vs: Arvutuste abiprogramm

Töötab ka Linuxis.

[Starfish]

Vs: Arvutuste abiprogramm

Isegi Linuxis, see on üllatus.

Voolupinge 10W on täitsa õige. Win10 mõistab füüsikat.

[Starfish]

Vs: Arvutuste abiprogramm

Mõned uuendused on tehtud vahepeal, kirjaviga parandatud ja vajaliku R ja C leidmine R/C rööp/jada arvutuses, link sama.

[olavsu1]

Vs: Arvutuste abiprogramm

filtri arvutusel võiks järgud ka olla.

mingit ebamäärast snitti saab siit: https://pastebin.com/VJeFNe6k

//see on ikka veel seal alles, kuigi oikuimitu aastat tagasi sai saadetud taotlus selle kustutamiseks.

[A.R.]

Vs: Arvutuste abiprogramm

Mõned uuendused on tehtud vahepeal, kirjaviga parandatud ja vajaliku R ja C leidmine R/C rööp/jada arvutuses, link sama.

Tuli kenasti alla. Nimi oli sama, aga õnnestus siiski eraldi panna.
Esimene märgatud erinevus oli et
Takistuse paralleel all oli rida
Vajalik R ja kilooomid olid oomid. Kena

Panin kirja 30 30 30 ja Arvutasin sain 10. Nõus.
Märkisin ära Valiku linnukese ja kirjutasin kasti 5.

Lootsin saada kas 6x30 või siis 3x15 aga
tulemus oli 10.

Ole hea mees, räägi rumalale inimesele kuidas seda kasutama peab.

[Starfish]

Vs: Arvutuste abiprogramm

Filtri lisasin kõige lihtsama, eks võib seda arendada muidugi.

mingit ebamäärast snitti saab siit: https://pastebin.com/VJeFNe6k

See on kõlari filtri arvutuse programmist?


30, 30, 30 rööbiti on 10Ω
Kui Vajalik R kasti on 5Ω lisatud siis on ju sellele algsele 10Ω(30,30,30 rööbiti) vajagi rööbitada veel üks 10Ω siis ongi sinu 5Ω olemas.

Vajalik R(Vajalik C mahtuvuse arvutuses) on lõpptulemus, see mida saada on vaja.

[A.R.]

Vs: Arvutuste abiprogramm

Vajalik R(Vajalik C mahtuvuse arvutuses) on lõpptulemus, see mida saada on vaja.

Selge, arvtatakse ülevalt kõik kokku ja siis leitakse mis VEEL rööpi panna.
Kui 10 oomist tahad saada 11 tuleb lisada -110 oomi.
Aga kui tahad 10 oomist saada 10 oomi siis oled jaganud nulliga (Veateade)
***
Vast võiks järgmises versioonis (ver 4, palun) olla nii
et sellise negatiivse takistuse puhul vahetatakse rööp ja jada.
Selle negatiivse takistuse tekitamine on väga negatiivne protsess.