Tryb drzewa | Tryb normalny

DonWestbam · 25-01-2016 01:59

Sprawdź:

Witam.
Jak w temacie, szukam a w sumie to proszę o podanie gotowego kodu do zaprogramowania buttona żeby po kliknięciu go w textboxie pokazywało się zdanie które mu przypisze.
Chce sobie zrobić program który ułatwi mi komentowanie, wrzucę w vb kilka komentarzy zrobię szybko apke i potem klikając na generate chcę żeby pokazywał się za każdym razem inny losowy komentarz.

Kiedyś bawiłem się w fake generetory i jakiś kod tego typu miałem ale niestety mi zaginął ..

Myślę że da się zrozumieć o co mi chodzi Big Grin

Z góry dzięki za odp! Pozdrawiam Patryk

NoName · 27-01-2016 17:21

Kod:

Public Class Form1

    ' Button1 - identyfikator przycisku

    ' TextBox1 - identyfikator textboxa

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        TextBox1.Text = "test"

    End Sub

End Class

Pozdrawiam.

DonWestbam · 29-01-2016 01:44

chodziło mi o coś tego typu:

Kod:

Public Class Form1

        Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

            ProgressBar1.Increment(1)

            If ProgressBar1.Value = ProgressBar1.Maximum Then

                Timer1.Stop()

                Dim key As Integer

                key = (Rnd() * 100)

                Select Case key

                    Case 1

                        TextBox1.Text = ""    

                    Case 2

                        TextBox1.Text = ""

Gdy robię apke przy pomocy tego kodu i dam Case od 1 do np. 100 i w każdym inne zdanie to chciał bym żeby losowało mi się zawsze inne, używając wyżej podanego kodu zdania non stop mi się powtarzają

da się zrobić taki w którym zdania nie będą się powtarzać i zawsze będzie wyskakiwało mi w textboxie inne ?

dzemba · 07-02-2016 02:43

By zdania się nie powtarzały, musiał byś ich mieć niekończenie wiele Tongue

I by pokazywanym elementem było jeszcze nie widziane zdanie, musiał by być jakiś mechanizm (najłatwiej plik tekstowy), który by przechowywał informacje o użyciu danego "zdania" i np po wykorzystaniu wszystkich resetował się, lub pobierał nową porcje "zdań".

NoName · 07-02-2016 15:31

Zaimplementuj 2 tablice o tej samej N ilości zdań jakie chcesz użyć:
- pierwsza tablica A przechowuje zdania
- druga tablica B przechowuje wartości boolowskie, wszystkie ustawione na false

(oczywiście możesz to zrobić w jednej tablicy o dwóch typach, jak wolisz)

1. Niech generator wylosuje element X z tablicy B
2. Jeżeli wartość B[X] ma wartość true wróć do pkt. 1. jeżeli false idź do pkt 3.
3. Wypisz do textboxa zdanie A[X], zaś B[X] ustaw na true

Jeżeli chcesz to podpiąć do pliku tekstowego, pisz zdania każde w nowej linijce, następnie programem pobierz plik tekstowy, rozbij go (znakiem końca linii EOL) na tablicę A i na podstawie jej N ilości elementów (zdań) wygeneruj tablicę B.

Rzuciłem najprostszy konspekt, Twoje zadanie to znaleźć wszystkie potrzebne funkcje i metody, które masz w Internecie.

dzemba · 08-02-2016 23:11

(07-02-2016 15:31)NoName napisał(a): Zaimplementuj 2 tablice o tej samej N ilości zdań jakie chcesz użyć:
- pierwsza tablica A przechowuje zdania
- druga tablica B przechowuje wartości boolowskie, wszystkie ustawione na false

(oczywiście możesz to zrobić w jednej tablicy o dwóch typach, jak wolisz)

1. Niech generator wylosuje element X z tablicy B
2. Jeżeli wartość B[X] ma wartość true wróć do pkt. 1. jeżeli false idź do pkt 3.
3. Wypisz do textboxa zdanie A[X], zaś B[X] ustaw na true

Jeżeli chcesz to podpiąć do pliku tekstowego, pisz zdania każde w nowej linijce, następnie programem pobierz plik tekstowy, rozbij go (znakiem końca linii EOL) na tablicę A i na podstawie jej N ilości elementów (zdań) wygeneruj tablicę B.

Rzuciłem najprostszy konspekt, Twoje zadanie to znaleźć wszystkie potrzebne funkcje i metody, które masz w Internecie.

twoja magiczna tablica o dwóch typach, co to jest?
tablica struktur ?
tablica obiektów ?
wersja tablicy asocjacyjnej ?
coś w rodzaju mapy ?
nie jestem ekspertem od typów tablic w VB, ale na pewno nie ma czegoś takiego co opisałeś.

Ogólnie to co napisałeś ma sens, ale postaraj się pisać to albo prościej, albo jak już używasz nomenklatury od danego języka (o który jest pytanie), to staraj się pisać bardziej zrozumiale, bo wychodzi mało zrozumiały bełkot.

DonWestbam · 11-02-2016 03:22

Gdyby ktoś może też tego poszukiwał to proszę

Kod:

Public Class Form1

    Dim strCytat() As String = IO.File.ReadAllLines("ścieżka do pliku")

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        If strCytat.Length > 0 Then

            Dim lCytat As String = strCytat(GetRandom(strCytat.Count))

            TextBox1.Text = lCytat

            strCytat = strCytat.Where(Function(s) s IsNot lCytat).ToArray

        End If

    End Sub

    Private random As New Random

    Private Function GetRandom(m As Integer) As Integer

        Return random.Next(0, m)

    End Function

    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click

        If TextBox1.Text <> String.Empty Then

            Clipboard.SetText(TextBox1.Text)

        Else

            Clipboard.Clear()

        End If

    End Sub

End Class

Tłumaczyłem to w formie losowania cytatów na innym forum i dostałem kod który dodatkowo trochę przerobiłem.

na przykładzie losowania tych cytatów, robimy plik txt i wrzucamy w niego cytaty które mają być losowane, jeden w lini, button2 jest zaprogramowany na kopiowanie, czyli button 1 generuje button 2 od razu kopiuje
dodam że program przelosuje cały spis a następnie trzeba go zresetować, nie pozwoli danemu cytatowi się powtórzyć

NoName Świeżak Liczba postów: 5 Dołączył: Dec 2013 Reputacja: 0 Forum Gold: 0.00	Post: #2 RE: [SZUKAM] VB - kod do generatora, losowy ale zawsze innym napis Kod: `Public Class Form1 ' Button1 - identyfikator przycisku ' TextBox1 - identyfikator textboxa Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click TextBox1.Text = "test" End Sub End Class` Pozdrawiam.
Glosy:
27-01-2016 17:21

DonWestbam Stały Bywalec Liczba postów: 618 Dołączył: Jan 2014 Reputacja: 100 Galeria Wygranych: Tutaj Forum Gold: 185.00	Post: #3 RE: [SZUKAM] VB - kod do generatora, losowy ale zawsze innym napis chodziło mi o coś tego typu: Kod: Public Class Form1 Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick ProgressBar1.Increment(1) If ProgressBar1.Value = ProgressBar1.Maximum Then Timer1.Stop() Dim key As Integer key = (Rnd() * 100) Select Case key Case 1 TextBox1.Text = "" Case 2 TextBox1.Text = "" Gdy robię apke przy pomocy tego kodu i dam Case od 1 do np. 100 i w każdym inne zdanie to chciał bym żeby losowało mi się zawsze inne, używając wyżej podanego kodu zdania non stop mi się powtarzają da się zrobić taki w którym zdania nie będą się powtarzać i zawsze będzie wyskakiwało mi w textboxie inne ? DonWestbam, dumny członek http://zarabiam.com od Jan 2014.
Glosy:
29-01-2016 01:44

dzemba Forumowy Fanatyk Liczba postów: 800 Dołączył: Jul 2013 Reputacja: 209 Galeria Wygranych: Tutaj Odznaczenia: (Zobacz Odznaczenia) Poziom: Forum Gold: 340.00	Post: #4 RE: [SZUKAM] VB - kod do generatora, losowy ale zawsze innym napis By zdania się nie powtarzały, musiał byś ich mieć niekończenie wiele I by pokazywanym elementem było jeszcze nie widziane zdanie, musiał by być jakiś mechanizm (najłatwiej plik tekstowy), który by przechowywał informacje o użyciu danego "zdania" i np po wykorzystaniu wszystkich resetował się, lub pobierał nową porcje "zdań". (Ten post był ostatnio modyfikowany: 07-02-2016 02:44 przez dzemba.)
Glosy:
07-02-2016 02:43

NoName Świeżak Liczba postów: 5 Dołączył: Dec 2013 Reputacja: 0 Forum Gold: 0.00	Post: #5 RE: [SZUKAM] VB - kod do generatora, losowy ale zawsze innym napis Zaimplementuj 2 tablice o tej samej N ilości zdań jakie chcesz użyć: - pierwsza tablica A przechowuje zdania - druga tablica B przechowuje wartości boolowskie, wszystkie ustawione na false (oczywiście możesz to zrobić w jednej tablicy o dwóch typach, jak wolisz) 1. Niech generator wylosuje element X z tablicy B 2. Jeżeli wartość B[X] ma wartość true wróć do pkt. 1. jeżeli false idź do pkt 3. 3. Wypisz do textboxa zdanie A[X], zaś B[X] ustaw na true Jeżeli chcesz to podpiąć do pliku tekstowego, pisz zdania każde w nowej linijce, następnie programem pobierz plik tekstowy, rozbij go (znakiem końca linii EOL) na tablicę A i na podstawie jej N ilości elementów (zdań) wygeneruj tablicę B. Rzuciłem najprostszy konspekt, Twoje zadanie to znaleźć wszystkie potrzebne funkcje i metody, które masz w Internecie.
Glosy:
07-02-2016 15:31

dzemba Forumowy Fanatyk Liczba postów: 800 Dołączył: Jul 2013 Reputacja: 209 Galeria Wygranych: Tutaj Odznaczenia: (Zobacz Odznaczenia) Poziom: Forum Gold: 340.00	Post: #6 RE: [SZUKAM] VB - kod do generatora, losowy ale zawsze innym napis (07-02-2016 15:31)NoName napisał(a): Zaimplementuj 2 tablice o tej samej N ilości zdań jakie chcesz użyć: - pierwsza tablica A przechowuje zdania - druga tablica B przechowuje wartości boolowskie, wszystkie ustawione na false (oczywiście możesz to zrobić w jednej tablicy o dwóch typach, jak wolisz) 1. Niech generator wylosuje element X z tablicy B 2. Jeżeli wartość B[X] ma wartość true wróć do pkt. 1. jeżeli false idź do pkt 3. 3. Wypisz do textboxa zdanie A[X], zaś B[X] ustaw na true Jeżeli chcesz to podpiąć do pliku tekstowego, pisz zdania każde w nowej linijce, następnie programem pobierz plik tekstowy, rozbij go (znakiem końca linii EOL) na tablicę A i na podstawie jej N ilości elementów (zdań) wygeneruj tablicę B. Rzuciłem najprostszy konspekt, Twoje zadanie to znaleźć wszystkie potrzebne funkcje i metody, które masz w Internecie. twoja magiczna tablica o dwóch typach, co to jest? tablica struktur ? tablica obiektów ? wersja tablicy asocjacyjnej ? coś w rodzaju mapy ? nie jestem ekspertem od typów tablic w VB, ale na pewno nie ma czegoś takiego co opisałeś. Ogólnie to co napisałeś ma sens, ale postaraj się pisać to albo prościej, albo jak już używasz nomenklatury od danego języka (o który jest pytanie), to staraj się pisać bardziej zrozumiale, bo wychodzi mało zrozumiały bełkot. (Ten post był ostatnio modyfikowany: 08-02-2016 23:22 przez dzemba.)
Glosy:
08-02-2016 23:11

Tryb drzewa \| Tryb normalny [SZUKAM] VB - kod do generatora, losowy ale zawsze innym napis
Autor	Wiadomość

DonWestbam Stały Bywalec Liczba postów: 618 Dołączył: Jan 2014 Reputacja: 100 Galeria Wygranych: Tutaj Forum Gold: 185.00	Post: #7 RE: [SZUKAM] VB - kod do generatora, losowy ale zawsze innym napis Gdyby ktoś może też tego poszukiwał to proszę Kod: Public Class Form1 Dim strCytat() As String = IO.File.ReadAllLines("ścieżka do pliku") Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click If strCytat.Length > 0 Then Dim lCytat As String = strCytat(GetRandom(strCytat.Count)) TextBox1.Text = lCytat strCytat = strCytat.Where(Function(s) s IsNot lCytat).ToArray End If End Sub Private random As New Random Private Function GetRandom(m As Integer) As Integer Return random.Next(0, m) End Function Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click If TextBox1.Text <> String.Empty Then Clipboard.SetText(TextBox1.Text) Else Clipboard.Clear() End If End Sub End Class Tłumaczyłem to w formie losowania cytatów na innym forum i dostałem kod który dodatkowo trochę przerobiłem. na przykładzie losowania tych cytatów, robimy plik txt i wrzucamy w niego cytaty które mają być losowane, jeden w lini, button2 jest zaprogramowany na kopiowanie, czyli button 1 generuje button 2 od razu kopiuje dodam że program przelosuje cały spis a następnie trzeba go zresetować, nie pozwoli danemu cytatowi się powtórzyć DonWestbam, dumny członek http://zarabiam.com od Jan 2014.
Glosy:	Czaq (+1)
11-02-2016 03:22

Podobne wątki
Wątek:		Autor	Odpowiedzi:	Wyświetleń:	Ostatni post
	Kod wyskakującego okienka 0px na 0px	bestek112	1	3,565	14-12-2019 12:40 Ostatni post: Gremquen
	Jaki kod pod czat w html5 i css3	helix	5	6,073	15-01-2018 14:07 Ostatni post: helix
	[Poszukuję] Kod, który przesuwa baner reklamę podczas przewijania	Resk	7	7,468	22-11-2017 22:07 Ostatni post: DGHubert
	Kod do masowego zapraszania na wydarzenie	pietreczka	2	5,076	10-10-2014 11:17 Ostatni post: pietreczka
	Prosty kod, plugin wordpress	Daroslawo	2	3,103	12-04-2014 00:00 Ostatni post: surfer0700