Forum studentów Informatyki Zaocznej na Uniwersytecie Opolskim
Użytkownik
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ę:)
Offline
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
http://www.sendspace.com/file/c00xke
Offline
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
http://www.sendspace.com/file/bfgwv3
Ostatnio edytowany przez slowik84 (2008-11-14 13:03:50)
Offline
po prostu ify nie były w tym miejscu co trzeba
tak to raczej powinno wygladac
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
MsgBox("wygrałes za " + CStr(ilosc_zgadywan + 1) + " razem", MsgBoxStyle.OkOnly, "Wygrana")
Offline