Praca w domu - Dodatkowa Praca - Zarabianie przez Internet. Dołącz do Największego w Polsce forum o tematyce Zarabiania przez Internet. Praca w domu stała się bardzo popularna.

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ć

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

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