Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: Proszę o pomoc
gibcio




Typ: neutral
Postów: 39
Zarejestrowany: Oct 2004
Proszę o pomoc

Mam parę pytanek...

Zrobiłem coś takiego jak...

If Text1.Text = "Witaj" Then
Label1.Caption = "Witaj"
Text1.Text = ""
End If

gdy użytkownika wpisze w TextBox1 słowo "Witaj" w label wyświetli się odpowiedź "Witaj".

Pytanie 1: - Zmiana odpowiedzi po ponownym uruchomieniu programu, jak to zrobić np. zamiast "Witaj" żeby wyświetliło się "Cześć".

Pytanie 2: - Jak zrobić żeby po ponownym wpisaniu przez użytkownika słowa "Cześć" w Label1 wyświetliła się odpowiedź "Witałeś się już ze mną."

Mam jeszcze parę pytań ale jak sobie z nimi sam nie poradzę to bedę pytał.

Dzięki z góry!!!

29-10-2004 14:37
Pokaż profil gibcio  Wyślij email do gibcio        1654622
marcin_an
Forumowicz




Typ: neutral
Postów: 1265
Zarejestrowany: Mar 2004

1) Rozumiem, że chodzi ci o to, jak sprawić, by za każdym uruchomieniem programu wyświetlał inną odpowiedź. Możesz to zrobić np. poprzez losowanie odpowiedzi:
Private sOdpowiedzi(3) As String

Private Sub Form_Load()
    'Wpisujemy dane do tablicy
    sOdpowiedzi(0) = "Witaj"
    sOdpowiedzi(1) = "Cześć"
    sOdpowiedzi(2) = "Dzień dobry"
    sOdpowiedzi(3) = "Hello"
   
    Randomize
End Sub

Private Sub Command1_Click()
    Dim nWylowowana As Integer
   
    If Text1.Text = "Witaj" Then
        'A tutaj je losujemy...
        nwylosowana = Rnd * 3
        '... i wpisujemy do labela.
        Label1.Caption = sOdpowiedzi(nwylosowana)
        Text1.Text = ""
    End If
End Sub


Można to rozbudować np. ładując potrzebne dane z pliku.

2) Można utworzyć zmienną, która będzie nas o tym informowała:
Private bWitalesSieJuz As Boolean

Private Sub Command1_Click()
    If Text1.Text = "Cześć" Then
        'Sprawdzamy, czy już się witał...
        If bWitalesSieJuz Then
            'Jeśli tak, to...
            Label1.Caption = "Witałeś się już ze mną"
        Else
            'Jeśli nie, to...
            Label1.Caption = "Cześć"
            '... i ustawiamy naszą zmienną na True, żeby było wiadomo, że już się witał.
            bWitalesSieJuz = True
        End If
        Text1.Text = ""
    End If
End Sub


3) To pytanie powinno się znaleźć w dziale VB, dział VB4all dotyczy serwisu vb4all.


_____________________________________________
Jedzonko dla Google'a:
Forum na temat Visual Basic, C, C++, Pascal, Programowanie, API, PHP, VBA, VB.NET, QBasic, VBScript, Komputery
Moja strona o wszystkim

29-10-2004 18:38
Pokaż profil marcin_an  Wyślij email do marcin_an   Odwiedź stronę marcin_an  
gibcio




Typ: neutral
Postów: 39
Zarejestrowany: Oct 2004
Należy Ci się flaszka

Robię a przynajmniej staram się zrobić programik w stylu rozrywkowo-naukowym, ale nie wiem czy mi to wyjdzie bo jestem zbyt zielony z VB.

Ale myślę że mogę na Waszą pomoc liczyć. Jeśli ktoś ma jakieś pomysły co do tego rodzaju programików proszę strzelać a nóż traficie.

Powodzenia ALL

29-10-2004 20:22
Pokaż profil gibcio  Wyślij email do gibcio        1654622
marcin_an
Forumowicz




Typ: neutral
Postów: 1265
Zarejestrowany: Mar 2004

To pytanie jest chyba troszkę zbyt rozległ.. tzn. nie za bardzo wiem, jak na nie odpowiedzieć... podać kod takiego programu? I wogóle jaki to ma być program?


_____________________________________________
Jedzonko dla Google'a:
Forum na temat Visual Basic, C, C++, Pascal, Programowanie, API, PHP, VBA, VB.NET, QBasic, VBScript, Komputery
Moja strona o wszystkim

29-10-2004 20:30
Pokaż profil marcin_an  Wyślij email do marcin_an   Odwiedź stronę marcin_an  
gibcio




Typ: neutral
Postów: 39
Zarejestrowany: Oct 2004
Marcinie_an

Wiesz chyba co to jest program typu sztuczna inteligencja. Może nie będzie to w 100% inteligencja, ale z biegiem czasu kto wiem może to wyjdzie w 100% inteligentny program do pogawędek i nauki. Wiem że zajeło by to wiele czasu i kilka tysięcy jak nie kilakadziesiąt tysięcy lini kodu, no ale wiesz czego to polacy nie wymyślą. Ja mam pomysły ty masz wiedze jakby to razem połączyć to kto wie co by z tego wyszło.

29-10-2004 20:52
Pokaż profil gibcio  Wyślij email do gibcio        1654622
marcin_an
Forumowicz




Typ: neutral
Postów: 1265
Zarejestrowany: Mar 2004

Wysoko celujesz. AI to naprawdę nie jest łatwa rzecz . Sądzisz, że będziesz w stanie to zrobić? Dziedzina sztucznej inteligencji to naprawdę skomplikowana sprawa, a programy do pogawędek też nie leżą w dolnej granicy jej trudności .


_____________________________________________
Jedzonko dla Google'a:
Forum na temat Visual Basic, C, C++, Pascal, Programowanie, API, PHP, VBA, VB.NET, QBasic, VBScript, Komputery
Moja strona o wszystkim

29-10-2004 20:58
Pokaż profil marcin_an  Wyślij email do marcin_an   Odwiedź stronę marcin_an  
gibcio




Typ: neutral
Postów: 39
Zarejestrowany: Oct 2004
Inna perspektywa

15-letnich chłopak (Polak) włamywał się do serwerów i na strony internetowy przy pomocy narzędzi ściągniętych ze stron.

Polacy jako pierwsi podrobili Euro.

To dlaczego JA albo i MY nie możemy być tymi co zrobili programik do pogawędek?

Wiem że to trzeba cierpliwości, ogromnej ilości czasu spędzić przed kompem oraz wiele testów sprawdzających, ale co dwie głowy to nie jedna.

29-10-2004 21:06
Pokaż profil gibcio  Wyślij email do gibcio        1654622
marcin_an
Forumowicz




Typ: neutral
Postów: 1265
Zarejestrowany: Mar 2004

Sądzę, że Polacy mają o wiele większe sukcesy niż wybryki jakiegoś młodego script-kiddie - od MkS_Vir'a Sella po wykrycie przez LSD dziury w WinXP (tej samej, która potem pozwoliła na stworzenie jednego z najbardziej znanych robaków na świecie).
Poza tym nie bylibyśmy pierwszymi, który taki program stworzyli - istnieją ich już setki.

Mówisz, że jesteś początkujący w VB. A jakie jeszcze języki znasz? Nie chcę cię obrażać, ale naprawdę uważam, że AI to nie jest temat na "pierwszy program" . I nie chodzi tutaj o samą długosc programu - on może być całkiem krótki. Chodzi o wiedzę na ten temat oraz ogólne doświadczenie programistyczne. Inteligentny chat to nie jest tylko If Text1.Text = "Witaj" Then Label1.Caption = "Witaj"... to jest stworzenie i obsługa np. wirtualnej, samorozwijającej się sieci neuronowej, że np. o analizie zdań nie wspomnę...
Nie próbuję cię zniechęcić - próbuję tylko pokazać w co celujesz...


_____________________________________________
Jedzonko dla Google'a:
Forum na temat Visual Basic, C, C++, Pascal, Programowanie, API, PHP, VBA, VB.NET, QBasic, VBScript, Komputery
Moja strona o wszystkim

29-10-2004 21:58
Pokaż profil marcin_an  Wyślij email do marcin_an   Odwiedź stronę marcin_an  
gibcio




Typ: neutral
Postów: 39
Zarejestrowany: Oct 2004

Dzięki że mnie pocieszyłeś

29-10-2004 22:05
Pokaż profil gibcio  Wyślij email do gibcio        1654622
gibcio




Typ: neutral
Postów: 39
Zarejestrowany: Oct 2004

Czyli następne pytanka mam wysyłać na VB.

29-10-2004 22:07
Pokaż profil gibcio  Wyślij email do gibcio        1654622
marcin_an
Forumowicz




Typ: neutral
Postów: 1265
Zarejestrowany: Mar 2004

Nic na to nie poradzę - jestem realistą ...
--
Tak, tam prędzej znajdziesz pomoc.


_____________________________________________
Jedzonko dla Google'a:
Forum na temat Visual Basic, C, C++, Pascal, Programowanie, API, PHP, VBA, VB.NET, QBasic, VBScript, Komputery
Moja strona o wszystkim

29-10-2004 22:17
Pokaż profil marcin_an  Wyślij email do marcin_an   Odwiedź stronę marcin_an  
Wszystkich odpowiedzi: 10 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1