zgadywanie liczb, zad 5

katarzyna6226 · 2008-11-10 18:46:26

czy ktoś już napisał, ten programik z użyciem funkcji randomize(chyba tutaj można by było ją zastosować), jak macie, to wrzućcie na forum , bardzo proszę:)

ciemak666 · 2008-11-11 09:55:24

Kod:

Public Class Form1
    Public los_licz, zga_licz, ilosc_zga As Integer

    Public Sub b_losuj_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles b_losuj.Click
        Randomize(100)
        los_licz = Int((100 * Rnd(100)) + 0)
        Label1.Text = los_licz
        b_sprawdz.Enabled = True

    End Sub

    Private Sub b_sprawdz_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles b_sprawdz.Click

        If Not IsNumeric(TextBox1.Text) Then
            MsgBox("podaj liczbe !", vbInformation, "Podaj liczbę")
        ElseIf IsNumeric(TextBox1.Text) Then
            zga_licz = CInt(TextBox1.Text)
        End If
        If zga_licz > los_licz Then
            MsgBox("Podana liczba jest wieksza ", MsgBoxStyle.OkOnly, "źle")
        ElseIf zga_licz < los_licz Then
            MsgBox("Podana liczba jest mniejsza ", MsgBoxStyle.OkOnly, "źle")
        ElseIf zga_licz = los_licz Then
            MsgBox("Brawo ", MsgBoxStyle.OkOnly, "BRAWO")
        End If
        ilosc_zga = ilosc_zga + 1
        Label2.Text = ilosc_zga
    End Sub

    Private Sub b_wyzeruj_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles b_wyzeruj.Click
        ilosc_zga = 0
        Label2.Text = ilosc_zga
        b_sprawdz.Enabled = False
        Label1.Text = 0
        TextBox1.Text = 0

    End Sub
End Class

a tu projekt

Kod:

http://www.sendspace.com/file/c00xke

slowik84 · 2008-11-14 11:37:22

no wlasnie ja sie tez zastanawiam nad tym
to jak to robimy??

przerobilem go troche ale nie moge sobie poradzic z 2 sprawami
1:jak ktos wpisze literki zamiast cyfr to pojawia sie info ze ma podac liczbe (ale niestety jest to zaliczane do wskazania za malej liczby, tak samo sie dzieje kiedy nic nie wpisze to textboxa) potem niestety pojawia sie msg ze liczba jest za mala ;/

2: chcialbym aby na msg gdzie pisze wygrales pojawiala sie tez liczba prob odgadniecia!!

prosze o pomoc !!!

tutaj link

Kod:

http://www.sendspace.com/file/bfgwv3

Ostatnio edytowany przez slowik84 (2008-11-14 13:03:50)

ciemak666 · 2008-11-14 21:02:58

po prostu ify nie były w tym miejscu co trzeba
tak to raczej powinno wygladac

Kod:

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

 

        If IsNumeric(TextBox1.Text) Then

            zgadywana_liczba = CInt(TextBox1.Text)

            If zgadywana_liczba > losowana_liczba Then

                MsgBox("Podana liczba jest za duza ", MsgBoxStyle.OkOnly, "To nie jest wlasciwa liczba")

            ElseIf zgadywana_liczba < losowana_liczba Then

                MsgBox("Podana liczba jest za mala ", MsgBoxStyle.OkOnly, "To nie jest wlasciwa liczba")

            ElseIf zgadywana_liczba = losowana_liczba Then

                MsgBox("Wygrales", MsgBoxStyle.OkOnly, "Zwyciestwo")

            End If

        Else


            MsgBox("Podaj liczbe !", vbInformation, "UWAGA")

            TextBox1.Text = ""

        End If


        

        ilosc_zgadywan = ilosc_zgadywan + 1
        Label2.Text = ilosc_zgadywan

    End Sub

a tak powinien wygladac kod msg

Kod:

 MsgBox("wygrałes za " + CStr(ilosc_zgadywan + 1) + " razem", MsgBoxStyle.OkOnly, "Wygrana")

slowik84 · 2008-11-15 22:25:48

o kurde jutro potestuje bo dzisiaj nie mam juz sily ide spac bo dzisiejszy wyklad wyssal ze mnie cala energie ;/
a jutro jeszcze ta matma ;/ bleeeeeeeeee

#1 2008-11-10 18:46:26