PASCAL E-learning

Vediamo di capire qualcosa estraendolo da quest'ammasso di fucsia.
- Mi pare che hai spostato il controllo che io avevo chiamato con H[m] dal gruppo delle dimensioni al gruppo di controlli a sinistra.

- Hai utilizzato per i nuovi input numerici i controlli Jujiboutil?

- Cosa rappresenta il box accanto ai due check box relativi alla presenza della falda?

Ti segnalo che i doppio radio button relativo alla falda è ridondante dato che ne basterebbe solo uno.
Voglio comunque mantenere i doppi radio button ma almeno evitare che spuntandone uno devo poi a mano de-spuntare l'altro. Questo puo' avvenire in automatico se li raggruppiamo,

Altra domanda:
hai indicato come input un γ' (cioè γ.sat-γw).

Nel caso di presenza di falda a quota diversa dal piano di campagna, teoricamente, servono sia il γ.sat che il γ.nat

Dato che hai voluto complicare le cose con la questione della falda ritengo che si debba agire conseguentemente.

Quindi il diagramma delle spinte sarebbe pari a:

s = ka*γ.nat* z per z<= zw

s= ka*(γ.nat* zw +(γ.sat-γ.w)*(z-zw)) per quote z> zw.

La spinta del liquido sarebbe

sw= γ.w)*(z-zw) per z>zw

la spinta dovuta al sovraccarico sarebbe

sq= ka*q

Tu come intendi calcolare i diagrammi dis pinta?

A prescindere dal fatto che tu stessa avevi pensato di scindere poi i risultati in spinta H₂0 e spinta totale per cui sarebbe necessario calcolare separatamente i vari contributi, in questo caso ti ricordo che la pressione spingente dovuta al terreno è affetta dal coefficiente di spinta attiva mentre quella dovuta al liquido no, per cui le formule che ho dato io, formule separate per ciascun contributo, sono quelle corrette.

Penso che adesso ci sono tutti gli ingredienti necessari per condire il brodo. Il mio invito è quello di iniziare a produrre tu qualcosa, altrimenti io in due minuti ti scrivo tutto il codice che gestisce i vari controlli e che calcola i vari contributi di spinta senza che alla fine ti resti nulla. Il programma prodotto sarebbe alla fine di una inutilità assoluta e nemmeno utile come trampolino di lancio per chi vuol iniziare a far q2ualcosa in lazarus (perche alla fine lo avrei fatto io spiccicando qui tutto il codice punti e virgola compresi).


Sai gia come leggere un valore dal form e come depositarlo in una variabile, sai come scrivere una formula che calcola un qualcosa, sai anche come depositare un valore su un componente a schermo, sai come disegnare un segmento (e un diagramma triangolare o rettangolare che sia è pur sempre l'insieme di qualche segmento). Se riscontri problemi sulla gestione dei check box, non devi far altro che chiedere.

Ok...ci provo.

Mal che vada non ci riesco.....

bye

procedure TKa_Kp.ComboBox1Change(Sender: TObject);
var
amax1,betam:Double;
begin

Val(angolo7.text,amax1);

if (combobox1.itemindex =0) and (amax1<=0.4) and (amax1>0.2)then betam:=0.31;
if (combobox1.itemindex =0)and (amax1<=0.2) and (amax1>0.1)then betam:=0.29;
if (combobox1.itemindex =0)and (amax1<=0.1)then betam:=0.20;

if (combobox1.itemindex =1)and (amax1<=0.4) and(amax1>0.2) then betam:=0.31;
if (combobox1.itemindex =1)and (amax1<=0.2) and (amax1>0.1) then betam:=0.24;
if (combobox1.itemindex =1)and (amax1<=0.1)then betam:=0.18;

if (combobox1.itemindex =2)and (amax1<=0.4) and (amax1>0.2) then betam:=0.31;
if (combobox1.itemindex =2)and (amax1<=0.2) and (amax1>0.1) then betam:=0.24;
if (combobox1.itemindex =2)and (amax1<=0.1)then betam:=0.18;

if (combobox1.itemindex =3)and (amax1<=0.4) and (amax1>0.2) then betam:=0.31;
if (combobox1.itemindex =3)and (amax1<=0.2) and (amax1>0.1) then betam:=0.24;
if (combobox1.itemindex =3)and (amax1<=0.1)then betam:=0.18;

if (combobox1.itemindex =4)and (amax1<=0.4) and (amax1>0.2) then betam:=0.31;
if (combobox1.itemindex =4)and (amax1<=0.2)and (amax1>0.1) then betam:=0.24;
if (combobox1.itemindex =4)and (amax1<=0.1)then betam:=0.18;

angolo8.Text:=floattostr(betam);
end;