Forum strony www.multipasko.pl [Regulamin]


Dodaj wpis w tym temacie
Spis tematów
Login:

Hasło:
Strona: 1
Wyślij wiadomość do admina

Przewiń wpisy ↓

ChatGPT - programy generowane przez AI

2023-03-02 (22:59)

status Jan69
Data rejestracji: 2015-09-19 00:00:00
Ilość postów: 366

14527
wpis nr 1 455 970
[ CZCIONKA MONOSPACE ]

Cześć,
postanowiłem "pobawić się" trochę słynnym już ChatGPT i nakłonić AI do wygenerowania różnych programów z obszaru obecnej na tym forum tematyki.

Oto pierwszy.
Polecenie: Użyj VBA (excel) do napisania programu. Napisz program podający losowo wybrane 6 liczb, nie powtarzających się, z puli od 1 do 49

A to wygenerowany kod VBA:

Sub LosoweLiczby()
Dim liczby(1 To 6) As Integer
Dim i As Integer, j As Integer, temp As Integer
Randomize ' inicjuje generator liczb losowych

' Generowanie 6 losowych i niepowtarzających się liczb
For i = 1 To 6
liczby(i) = Int((49 - i + 1) * Rnd() + i) ' losowanie liczby z przedziału od i do 49
For j = 1 To i - 1 ' sprawdzanie, czy liczba się nie powtarza
If liczby(i) = liczby(j) Then
i = i - 1 ' jeśli się powtarza, powtórz losowanie dla tej samej pozycji
Exit For
End If
Next j
Next i

' Wyświetlenie wylosowanych liczb w komórkach A1:A6 arkusza aktywnego
For i = 1 To 6
Cells(i, 1) = liczby(i)
Next i
End Sub

Jest też opis wygenerowany przez tę sztuczną inteligencję:
"Kod ten tworzy tablicę liczby o rozmiarze 6 i używa pętli For do wylosowania 6 liczb. Do losowania liczb używamy funkcji Rnd(), która generuje liczby pseudolosowe z przedziału od 0 do 1, a następnie mnożymy ją przez (49 - i + 1), aby uzyskać liczbę z przedziału od i do 49. Następnie, używamy pętli For do sprawdzenia, czy liczba ta nie powtarza się z już wylosowanymi liczbami. Jeśli tak, to pętla jest przerywana i liczba jest losowana ponownie. Po wylosowaniu 6 unikalnych liczb, program wyświetla je w komórkach A1:A6 arkusza aktywnego."

Hmm, na początek ciekawie ...
2023-03-02 (23:11)

status Jan69
Data rejestracji: 2015-09-19 00:00:00
Ilość postów: 366

14527
wpis nr 1 455 973
[ CZCIONKA MONOSPACE ]

Drugi programik

Polecenie: Napisz program VBA wczytujący bazę liczb (liczby całkowite z zakresu od 1 do 49) umieszczone w 6 kolumnach, w zestawach po 6 liczb w jednym wierszu, zapisane w arkuszu nr 1 pliku excel, a następnie w arkuszu 2, w kolumnach od 1 do 49 zaznaczający na czerwono komórkę z kolumny odpowiadającej odczytanej liczbie, kolejno czytając wiersz z arkusza 1 i zaznaczając ten sam wiersz w arkuszu 2.

A to wygenerowany kod programu:

"Oto przykładowy kod VBA, który wczytuje bazy liczb z arkusza nr 1, a następnie zaznacza na czerwono odpowiednie komórki w arkuszu nr 2:"

Sub WczytajBazeILiterujLiczby()
Dim bazaLiczby As Variant
Dim i As Integer, j As Integer, k As Integer
Dim arkusz1 As Worksheet, arkusz2 As Worksheet
Set arkusz1 = Worksheets(1) ' ustawia arkusz nr 1 jako aktywny
Set arkusz2 = Worksheets(2) ' ustawia arkusz nr 2 jako aktywny
bazaLiczby = arkusz1.Range("A1:F" & arkusz1.Cells(Rows.Count, "A").End(xlUp).Row) ' wczytuje bazy liczb

' Iterowanie po liczbach i zaznaczanie odpowiednich komórek w arkuszu nr 2
For i = 1 To UBound(bazaLiczby)
For j = 1 To 6
k = bazaLiczby(i, j)
arkusz2.Cells(k, j).Interior.Color = RGB(255, 0, 0) ' koloruje na czerwono
Next j
Next i
End Sub

Opis pod kodem:
"Kod ten wczytuje bazę liczb z arkusza nr 1 do tablicy bazaLiczby. Następnie iteruje po każdym wierszu w tablicy i po każdej liczbie w wierszu, aby zaznaczyć odpowiednią komórkę w arkuszu nr 2. Do zaznaczania używamy właściwości Interior.Color, która określa kolor tła komórki. W tym przypadku kolorujemy na czerwono, ale można użyć dowolnego innego koloru lub zmienić kolor w kodzie."

Podobają mi sie możliwości tego ChatGPT Na dziś wystarczy, pobawię się później. Jak ktoś z Was też ma czas na takie zabawy to zachęcam do sprawdzenia tej AI i zamieszczenie wyników w kolejnych wpisach.

--- wpis edytowano 2023-03-02 23:12 ---

2023-03-03 (04:03)

status Lottonauta
Data rejestracji: 2012-09-03 00:00:00
Ilość postów: 2813

13559
wpis nr 1 455 985
[ CZCIONKA MONOSPACE ]

@Jan69,

"...........
Po wylosowaniu 6 unikalnych liczb, program wyświetla je w komórkach A1:A6 arkusza aktywnego."

Hmm, na początek ciekawie ...

**********************

ale co jest w tym ciekawe, - czy uważasz, że zadanie jest wykonane poprawnie?
| Dodaj wpis w tym temacie | Spis tematów | Wyniki lottoStrona: 1
Wyślij wiadomość do admina