Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- main :-
- new(Dialog, dialog('Osoby')),
- send_list(Dialog, append,
- [new(N1, text_item(imie_osoby)),
- new(N2, text_item(preferencja1)),
- new(N3, text_item(preferencja2)),
- button(zapisz, and(message(@prolog,
- zapisz1,
- N1?selection,
- N2?selection,
- N3?selection),
- message(Dialog, destroy)))]),
- send(Dialog, default_button, zapisz),
- send(Dialog, open).
- zapisz1(N1, N2, N3) :-
- N1 =.. L1,
- N2 =.. K2,
- N3 =.. K3,
- append(K2, K3, L2),
- %szkicuj(L2),
- new(Dialog1, dialog('Osoby2')),
- send_list(Dialog1, append,
- [new(M1, text_item(imie_osoby)),
- new(M2, text_item(preferencja1)),
- new(M3, text_item(preferencja2)),
- button(zapisz, and(message(@prolog,
- zapisz2,
- M1?selection,
- M2?selection,
- M3?selection,
- L1, L2),
- message(Dialog1, destroy)))]),
- send(Dialog1, default_button, zapisz),
- send(Dialog1, open).
- zapisz2(N1, N2, N3, L11, L22) :-
- N1 =.. K1,
- N2 =.. K2,
- N3 =.. K3,
- L11 =.. K4,
- L22 =.. K5,
- append(K4, K1, L1),
- append(K2, K3, L3),
- append(K5, L3, L2),
- new(Dialog2, dialog('Osoby')),
- send_list(Dialog2, append,
- [new(M1, text_item(imie_osoby)),
- new(M2, text_item(preferencja1)),
- new(M3, text_item(preferencja2)),
- button(zapisz, and(message(@prolog,
- zapisz2,
- M1?selection,
- M2?selection,
- M3?selection,
- L1, L2),
- message(Dialog2, destroy))),
- button(koniec, and(message(@prolog,
- zapisz3,
- L1, L2),
- message(Dialog2, destroy)))]),
- send(Dialog2, default_button, zapisz),
- send(Dialog2, open).
- zapisz3(L1, L2) :-
- L1 =.. K1,
- L2 =.. K2,
- length(K1, X1),
- length(K2, X2),
- new(F1, file('plik1.txt')),
- send(F1, open, write),
- send(F1, append, X1),
- send(F1, close),
- new(F2, file('plik2.txt')),
- send(F2, open, write),
- send(F2, append, X2),
- send(F2, close).
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement