Forum strony www.multipasko.pl [Regulamin]


Dodaj wpis w tym temacie
Spis tematów
Login:

Hasło:
Strona: 1 2 ... 514 515 516 ... 554 555
Wyślij wiadomość do admina

Przewiń wpisy ↓

moje ... oprogramowanie

2024-11-13 (22:51)

status Jacek_K1961
Data rejestracji: 2017-03-29
Ilość postów: 8789

15220
wpis nr 1 539 246
[ CZCIONKA MONOSPACE ]

Ja nie robię żadnego programu na sprzedaż, abym go promował. Jeżeli bym tego chciał to bym nie pokazał pomysłu. Pomysł powiązania czegoś z czymś o którym pisałem to jest to, co jest moją tajemnicą. Nie te tabelki. Robocza tabelka zrobiona wyglądała bardzo prowizorycznie, więc nie chciałem się nią chwalić, bo nie ma czym.

zdjęcie

--- wpis edytowano 2024-11-13 22:56 ---

2024-11-13 (23:06)

status fair_play
Data rejestracji: 2016-05-12
Ilość postów: 8679

14865
wpis nr 1 539 247
[ CZCIONKA MONOSPACE ]


Jacku>

Funkcja "kombinuj" wygląda tak:

Function kombinuj(n, k)

licznik = 1
mianownik = 1

For I = 1 To k
licznik = licznik * (n + 1 - I)
mianownik = mianownik * I
Next
kombinuj = licznik / mianownik

End Function

Zauważ także że jest ona wywoływana dopiero po spełnieniu warunku IF.
2024-11-13 (23:13)

status Jacek_K1961
Data rejestracji: 2017-03-29
Ilość postów: 8789

15220
wpis nr 1 539 248
[ CZCIONKA MONOSPACE ]

Fair_play
Wiem, że po spełnieniu warunku, tylko czy pętla nie będzie działać dłużej niż dodawanie? O to mi chodziło, plus sprawdzenie spełnienia któregoś warunku.
Ja tak obliczałem silnie, złożyłem gorzej, bo pierw jedną silnię składową, później drugą. Potrzebna była mi do poznania rozmiaru tablicy do deklaracji dim() Zrobiłem to w jednym bloku pętli do ... loop

zdjęcie

--- wpis edytowano 2024-11-13 23:24 ---

2024-11-14 (18:56)

status fair_play
Data rejestracji: 2016-05-12
Ilość postów: 8679

14865
wpis nr 1 539 320
[ CZCIONKA MONOSPACE ]

777ch>

A możesz zamieścić obrazek z analizy bloku z wpisu 1 539 304?
Chcę porównać z moją Vba procedurą
2024-11-14 (19:08)

status fair_play
Data rejestracji: 2016-05-12
Ilość postów: 8679

14865
wpis nr 1 539 324
[ CZCIONKA MONOSPACE ]

wszystko się zgadza z wyjątkiem ...
Time calculated : 301,894 ms
Oczywiście w Twojej aplikacji na moim mule
Bo w VBA trwa "troszeczkę" dłużej, ze względu na excelowską edycję.
2024-11-14 (19:31)

status 777ch
Data rejestracji: 2005-11-07
Ilość postów: 22655

1386
wpis nr 1 539 327
[ CZCIONKA MONOSPACE ]

Time calculated : 491,059 ms

To czas zapełnienia tablic 7-ek
Wszystkich 62 linii

Dalej to już wypis dziesiątek
bo ta procedura wypisuje 10-ki
z brakiem 7/10
Czyli sprawdzanie wszystkich indeksów 7-ek
w danej kolejnej 10-ce.

--- wpis edytowano 2024-11-14 19:32 ---

2024-11-14 (19:32)

status Jacek_K1961
Data rejestracji: 2017-03-29
Ilość postów: 8789

15220
wpis nr 1 539 328
[ CZCIONKA MONOSPACE ]

777ch
Wierzę Ci na słowo, że to jest tylko nadgorliwość tych 9 antywirusów, ale mam zasadę, że nie instaluję niczego spoza Microsoft Store i także z niego żadnych nowości. Moje próby też mi chciał blokować Norton, bo tylko jeden człowiek na Ziemi używa tego programu, a tu zablokował dodatkowo jeszcze system. Ale dzięki za dobre chęci.
Pozdrawiam

--- wpis edytowano 2024-11-14 19:36 ---

2024-11-14 (19:35)

status 777ch
Data rejestracji: 2005-11-07
Ilość postów: 22655

1386
wpis nr 1 539 329
[ CZCIONKA MONOSPACE ]

Jacek_K1961
To ja dla ciebie specjalnie ten kawałek
kodu ,a ty mi tu z antywirusem wyjeżdżasz?

Zastanowię się jeszcze
ale cię chyba za to zablokuję.

2024-11-14 (19:37)

status fair_play
Data rejestracji: 2016-05-12
Ilość postów: 8679

14865
wpis nr 1 539 330
[ CZCIONKA MONOSPACE ]

Jacku, bardzo trudno z Tobą dyskutować w takich warunkach.
Zainstaluj sobie Avasta, on każdy jego zdaniem "podejrzany" program odsyła do analizy antywirusowej.

--- wpis edytowano 2024-11-14 19:47 ---

2024-11-14 (19:37)

status Jacek_K1961
Data rejestracji: 2017-03-29
Ilość postów: 8789

15220
wpis nr 1 539 331
[ CZCIONKA MONOSPACE ]

777ch
Pliiss. Nie rób tego, z szacunku dla mojego szacunku do Ciebie i Twojej Wiedzy. Jesteś tu Autorytetem. To, że szukam swojej drogi to chyba nie taki grzech?

--- wpis edytowano 2024-11-14 19:47 ---

2024-11-14 (21:14)

status MultiTest
Data rejestracji: 2020-08-05
Ilość postów: 5898

16235
wpis nr 1 539 347
[ CZCIONKA MONOSPACE ]


Multitest
Od Fair_playa dostałem taki sposób:
adres = kombinuj(liczb, gwar)
If liczb - l1 > 4 Then adres = adres - kombinuj(liczb - l1, 5)
If liczb - l2 > 3 Then adres = adres - kombinuj(liczb - l2, 4)
If liczb - l3 > 2 Then adres = adres - kombinuj(liczb - l3, 3)
If liczb - l4 > 1 Then adres = adres - kombinuj(liczb - l4, 2)
adres = adres - (liczb - l5)

To jak określisz miejsce gdzie jest wynik ONT, lub 1/0 trafiony, dla tej piątki:
12,20,38,40, 42

Powyżej widzę sprawdzany warunek IF >4 jeżeli nie to następny IF>3 . Potem kombinuj to znaczy Kombinacja(liczb z zakresu)?
=====================================================

Jacek,
A masz już gotowy działający soft który pobiera plik, wczytuje go to array aby można było sprawdzać losowania i je analizować ?
Jeżeli masz to wystarczy w locie zaktualizować indeks tablicy piątek 700733,true,235
gdzie 700733 to numer indeksu, komórka true (że wypadła) , 235 to ONT

w VBA masz też wbudowaną funkcję kombinacje.

Wystarczy w makro dać coś takiego :

Function Kombinuj(n As Integer, k As Integer) As Long
Kombinuj = WorksheetFunction.Combin(n, k)
End Function
i żeby podawała indeks w locie zrobić bardziej uniwersalnie kod Playa:
For i = LBound(liczbyKombinacji) To UBound(liczbyKombinacji)
If liczb - liczbyKombinacji(i) > licznik Then
adres = adres - Kombinuj(liczb - liczbyKombinacji(i), licznik + 1)
licznik = licznik - 1
End If

2024-11-14 (23:36)

status fair_play
Data rejestracji: 2016-05-12
Ilość postów: 8679

14865
wpis nr 1 539 371
[ CZCIONKA MONOSPACE ]


Jacku, przecież kolega 777ch wstawił program, który sam stworzył.
U niego działa, u mnie działa, więc skąd te Twoje wątpliwości.
Nie brnij już w tym.
2024-11-14 (23:50)

status Jacek_K1961
Data rejestracji: 2017-03-29
Ilość postów: 8789

15220
wpis nr 1 539 372
[ CZCIONKA MONOSPACE ]

Fair_play
To nie o kod napisany przez 777ch chodzi, jest tu ceniony, ma wyrobioną renomę i to dlatego tu na tym forum między innymi jestem, bo cenię Jego wyniki i jestem osobiście tym tematem tak prywatnie zainteresowany. Ja ten program uruchomię, ale w żadnym wypadku nie na tym komputerze. Na tym co używam nie mogę tego zrobić. Nie drąż tego tematu, nie mogę - temat zamknięty. Jeżeli mnie zablokuje, to będę się musiał poświęcić.

--- wpis edytowano 2024-11-14 23:57 ---

2024-11-14 (23:59)

status fair_play
Data rejestracji: 2016-05-12
Ilość postów: 8679

14865
wpis nr 1 539 373
[ CZCIONKA MONOSPACE ]


Jacku przecież to Ty drążysz temat wirusa.
Po co ta wstawka o Korei?
2024-11-15 (00:07)

status Jacek_K1961
Data rejestracji: 2017-03-29
Ilość postów: 8789

15220
wpis nr 1 539 374
[ CZCIONKA MONOSPACE ]

Nie wszystko jest jasne.
Dobranoc.
2024-11-15 (00:15)

status MultiTest
Data rejestracji: 2020-08-05
Ilość postów: 5898

16235
wpis nr 1 539 375
[ CZCIONKA MONOSPACE ]

Bywa że i renomowany antywirus uzna kod starszej aplikacji za potencjalnie niebezpieczny.Można sprawdzić wpisując nazwę niby wirusa w przeglądarce albo zapytać AI.

Gorzej już z coraz bardziej zaawansowaną i przez to co raz mniej zauważalna infekcją botnetow. W Polsce szacuje się na kilkaset tysięcy zarażonych komputerów.

--- wpis edytowano 2024-11-15 00:18 ---

2024-11-15 (09:15)

status Jacek_K1961
Data rejestracji: 2017-03-29
Ilość postów: 8789

15220
wpis nr 1 539 383
[ CZCIONKA MONOSPACE ]

Fair_play
Ja wskazałem na możliwości. Dlaczego Korea? Akurat o niej jest w tym artykule ... a inni są gorsi? Przecież nikt nie chodzi po ulicy się tym nie chwali. Ja nie mogę nic instalować na TYM komputerze. Z jakich powodów, to nieistotne.
2024-11-15 (10:08)

status 777ch
Data rejestracji: 2005-11-07
Ilość postów: 22655

1386
wpis nr 1 539 403
[ CZCIONKA MONOSPACE ]

Kod jest czysty,
…robisz sobie niezłe jaja.

Aplikacja nie zawiera żadnych bibliotek
Nie trzeba jej instalować,
to jedynie mały plik wykonywalny.

Tylko wypakować z archiwum zip.
Jeszcze nikt tu nie był tak.. „u***liwy.




2024-11-15 (10:15)

status Jacek_K1961
Data rejestracji: 2017-03-29
Ilość postów: 8789

15220
wpis nr 1 539 404
[ CZCIONKA MONOSPACE ]

777ch
Przepraszam, ja Cię nie oskarżam o złe intencje, bo i po co miałbyś to robić, tworząc latami ten temat? Żeby stracić twarz na tym forum? To by było bez sensu.
Jeszcze raz przepraszam, jeżeli to tak odczytałeś. Czy jestem u***liwy, czy dociekliwy jak zwał tak zwał, to fakt.

--- wpis edytowano 2024-11-15 10:21 ---

2024-11-15 (10:15)

status 777ch
Data rejestracji: 2005-11-07
Ilość postów: 22655

1386
wpis nr 1 539 405
[ CZCIONKA MONOSPACE ]

Plik został usunięty.
Temat ...... nieaktualny.
| Dodaj wpis w tym temacie | Spis tematów | Wyniki lottoStrona: 1 2 ... 514 515 516 ... 554 555
Wyślij wiadomość do admina