mr_simon Napisano Październik 20, 2006 Autor Zgłoś Share Napisano Październik 20, 2006 Zacząłem od Private Sub podziel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles podziel.Click i co dalej? Link do komentarza Udostępnij na innych stronach More sharing options...
marek_haj Napisano Październik 20, 2006 Zgłoś Share Napisano Październik 20, 2006 kurcze czlowieku jak to ma dzialac jak windowswy kalkulator to jedziemy tak: 1234/1123=wynikslowem wciskasz klawisze:1234, potem klawisz /, potem klawisze 1123, potem klawisz = i w nim dokonasz operacji obliczenia wyniku i wyswietlisz go na ekran slowem klawisze */-+ sa identyczne jak 12345...0tylko ze zmienia sie wstawiany znak nic poza tym Link do komentarza Udostępnij na innych stronach More sharing options...
mr_simon Napisano Październik 20, 2006 Autor Zgłoś Share Napisano Październik 20, 2006 To ja rozumiem, tylko co mam wpisać w ten klawisz, żeby on to wykonał? Link do komentarza Udostępnij na innych stronach More sharing options...
mr_simon Napisano Październik 20, 2006 Autor Zgłoś Share Napisano Październik 20, 2006 Poza tym w programowaniu jestem pusty jak indiański bemben. Link do komentarza Udostępnij na innych stronach More sharing options...
marek_haj Napisano Październik 20, 2006 Zgłoś Share Napisano Październik 20, 2006 [quote] To ja rozumiem, tylko co mam wpisać w ten klawisz, żeby on to wykonał? [/quote]1. ktory klawisz2. nie pisz postow jeden pod drugim - istnieje mozliwosc edycji wlasnego postu Link do komentarza Udostępnij na innych stronach More sharing options...
mr_simon Napisano Październik 20, 2006 Autor Zgłoś Share Napisano Październik 20, 2006 Przepraszam za posty.No w klawisz na przykład Dodawania "+" Link do komentarza Udostępnij na innych stronach More sharing options...
marek_haj Napisano Październik 20, 2006 Zgłoś Share Napisano Październik 20, 2006 na przyklad:KODPrivate Sub dodaj_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles dodaj.Clickwynik.Text = wynik.Text & "+"End Subtak ciezko sie domyslic ?? Link do komentarza Udostępnij na innych stronach More sharing options...
mr_simon Napisano Październik 20, 2006 Autor Zgłoś Share Napisano Październik 20, 2006 No dla mnie tak :oops: Wpisałem w klawisze, teraz co mam wpisać, żeby liczył, bo jak na razie tylko wyświetla liczby i znaki. Link do komentarza Udostępnij na innych stronach More sharing options...
marek_haj Napisano Październik 20, 2006 Zgłoś Share Napisano Październik 20, 2006 to juz inna bajka - podalem ci link do odwrotnej notacji polskiej. 1. przeczytac i zrozumiec o co chodzi 2. zaimplementowac - masz ciag znakow ktore nalezy przeksztalcic na liczby w odwrotnej notacji polskiej. Majac zapis notacyjny mozna spokojnie wykonac dzialania a potem wyswietlic jedynie wynikPozdrawiam Link do komentarza Udostępnij na innych stronach More sharing options...
mr_simon Napisano Październik 20, 2006 Autor Zgłoś Share Napisano Październik 20, 2006 To rozumiem, tylko jakich mam użyć do tego komend? Ja naprawdę jestem w tym zielony. Link do komentarza Udostępnij na innych stronach More sharing options...
marek_haj Napisano Październik 20, 2006 Zgłoś Share Napisano Październik 20, 2006 jak jestes zielony to zalecana jest ksiazka a nie zawracanie ludziom tylka na forum zeby pisali za ciebie. Co innego nakierowanie jak to zrobic (co zrobilem) a co innego napisanie za ciebie. Nie myl tych dwoch spraw. Na sieci masz mase kursow do Visual Basica i nie wierze ze nie ma nigdzie napisanego jak operowac na ciagach znakowych ... Link do komentarza Udostępnij na innych stronach More sharing options...
mr_simon Napisano Październik 20, 2006 Autor Zgłoś Share Napisano Październik 20, 2006 Dla Ciebie to jest proste, ale dla mnie napisane zbyt naukowo, ja wszystko zrozumiem, jeżeli wytłumaczy mi się na chłopski rozum. No OK, może się uda. Link do komentarza Udostępnij na innych stronach More sharing options...
marek_haj Napisano Październik 20, 2006 Zgłoś Share Napisano Październik 20, 2006 [quote] Dla Ciebie to jest proste, ale dla mnie napisane zbyt naukowo, ja wszystko zrozumiem, jeżeli wytłumaczy mi się na chłopski rozum. No OK, może się uda. [/quote] usmialem sie. Naukowo napisane. Jak masz tylko chlopski rozum to sie brac za grabie, motyke a nie do programowania. A powaznie mowiac: takie to naukowe jak opis przygotowania zupy z proszku. NIe przesadzaj. Odrobina dobrej woli i przeczytanie tekstu ze zrozumieniem od poczatku do konca. Link do komentarza Udostępnij na innych stronach More sharing options...
mr_simon Napisano Październik 20, 2006 Autor Zgłoś Share Napisano Październik 20, 2006 No nic działam, zobaczymy co z tego będzie. Link do komentarza Udostępnij na innych stronach More sharing options...
mr_simon Napisano Październik 20, 2006 Autor Zgłoś Share Napisano Październik 20, 2006 No niestety kiepsko mi to idzie, już prawie skończyłem, ale niestety kalkulator nie liczy wyświetla jedynie znaki, gdzie tkwi błąd:Public Class Form1 Private Sub jeden_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jeden.Click wynik.Text = wynik.Text & "1" End Sub Private Sub dwa_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles dwa.Click wynik.Text = wynik.Text & "2" End Sub Private Sub trzy_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles trzy.Click wynik.Text = wynik.Text & "3" End Sub Private Sub cztery_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cztery.Click wynik.Text = wynik.Text & "4" End Sub Private Sub piec_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles piec.Click wynik.Text = wynik.Text & "5" End Sub Private Sub szesc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles szesc.Click wynik.Text = wynik.Text & "6" End Sub Private Sub siedem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles siedem.Click wynik.Text = wynik.Text & "7" End Sub Private Sub osiem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles osiem.Click wynik.Text = wynik.Text & "8" End Sub Private Sub dziewiec_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles dziewiec.Click wynik.Text = wynik.Text & "9" End Sub Private Sub zero_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles zero.Click wynik.Text = wynik.Text & "0" End Sub Private Sub czysc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles czysc.Click wynik.Text = "" zapamietaj.Text = "" End Sub Private Sub podziel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles podziel.Click If (wynik.Text <> "") Then wynik.Text = "" wynik.Text = wynik.Text & "/" Else MsgBox("Musisz wpisać jakąś liczbę !", MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "BŁĄD") End If End Sub Private Sub razy_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles razy.Click If (wynik.Text <> "") Then zapamietaj.Text = wynik.Text wynik.Text = "" wynik.Text = "*" Else MsgBox("Musisz wpisać jakąś liczbę !", MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "BŁĄD") End If End Sub Private Sub odejmij_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles odejmij.Click zapamietaj.Text = wynik.Text wynik.Text = "" wynik.Text = wynik.Text & "-" End Sub Private Sub dodaj_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles dodaj.Click zapamietaj.Text = wynik.Text wynik.Text = "-" wynik.Text = wynik.Text & "+" End Sub Private Sub wyn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles wyn.Click If (wynik.Text <> "") Then If wynik.Text = "+" Then wynik.Text = CStr(CDbl(zapamietaj.Text) + 1 + CDbl(wynik.Text) - 1) If wynik.Text = "-" Then wynik.Text = CStr(CDbl(zapamietaj.Text) + 1 - CDbl(wynik.Text) - 1) If wynik.Text = "*" Then wynik.Text = CStr((CDbl(zapamietaj.Text) + 1 - 1) * CDbl(wynik.Text)) If wynik.Text = "/" Then wynik.Text = CStr((CDbl(zapamietaj.Text) + 1 - 1) / CDbl(wynik.Text)) End If End Sub Private Sub zapamietaj_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles zapamietaj.Click zapamietaj.Text = wynik.Text End SubEnd ClassCzy ktoś może mi pomóc? Link do komentarza Udostępnij na innych stronach More sharing options...
marek_haj Napisano Październik 20, 2006 Zgłoś Share Napisano Październik 20, 2006 hm, co to jest to ? KODwynik.Text = ""wynik.Text = "*" nie wystarczy KODwynik.Text = "*"dlaczego +- jest inaczej opisany niz */ ?? Link do komentarza Udostępnij na innych stronach More sharing options...
mr_simon Napisano Październik 20, 2006 Autor Zgłoś Share Napisano Październik 20, 2006 [quote] hm, co to jest to ? KOD [/quote]wynik.Text = ""wynik.Text = "*" nie wystarczy Już poprawiłem.KODwynik.Text = "*"dlaczego +- jest inaczej opisany niz */ ??Przeglądam notatki z wykładów i tak napisałe, ale niestety nic nie działa. Link do komentarza Udostępnij na innych stronach More sharing options...
marek_haj Napisano Październik 20, 2006 Zgłoś Share Napisano Październik 20, 2006 slowem spal notatki bo to stek bzdur ... poza tym poiwniens miec cos takiego jak debugger Link do komentarza Udostępnij na innych stronach More sharing options...
mr_simon Napisano Październik 20, 2006 Autor Zgłoś Share Napisano Październik 20, 2006 [quote] slowem spal notatki bo to stek bzdur ... poza tym poiwniens miec cos takiego jak debugger [/quote]Wiesz mnie się też wydaje, że ten wykładowaca, za bardzo tego nie kuma, albo nie potrafi nam tego dokładnie przekazać jak to naprawdę ma być.O co chodzi z tym debugerem i co mam jeszcze poprawić żeby działało? Link do komentarza Udostępnij na innych stronach More sharing options...
marek_haj Napisano Październik 20, 2006 Zgłoś Share Napisano Październik 20, 2006 debuggera co masz poprawic ? nie wiem. W pierwszej kolejnosci sprawdzic co sie dzieje w metodzie obliczania wyniku. Wlasnie do tego jest ci niezbedny debugger ... Link do komentarza Udostępnij na innych stronach More sharing options...
mr_simon Napisano Październik 20, 2006 Autor Zgłoś Share Napisano Październik 20, 2006 Ale czy wg Ciebie wszystko jest tu OK:Public Class Form1 Private Sub jeden_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jeden.Click wynik.Text = wynik.Text & "1" End Sub Private Sub dwa_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles dwa.Click wynik.Text = wynik.Text & "2" End Sub Private Sub trzy_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles trzy.Click wynik.Text = wynik.Text & "3" End Sub Private Sub cztery_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cztery.Click wynik.Text = wynik.Text & "4" End Sub Private Sub piec_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles piec.Click wynik.Text = wynik.Text & "5" End Sub Private Sub szesc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles szesc.Click wynik.Text = wynik.Text & "6" End Sub Private Sub siedem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles siedem.Click wynik.Text = wynik.Text & "7" End Sub Private Sub osiem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles osiem.Click wynik.Text = wynik.Text & "8" End Sub Private Sub dziewiec_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles dziewiec.Click wynik.Text = wynik.Text & "9" End Sub Private Sub zero_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles zero.Click wynik.Text = wynik.Text & "0" End Sub Private Sub czysc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles czysc.Click wynik.Text = "" zapamietaj.Text = "" End Sub Private Sub podziel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles podziel.Click If (wynik.Text <> "") Then wynik.Text = wynik.Text & "/" Else MsgBox("Musisz wpisać jakąś liczbę !", MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "BŁĄD") End If End Sub Private Sub razy_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles razy.Click If (wynik.Text <> "") Then zapamietaj.Text = wynik.Text wynik.Text = "*" Else MsgBox("Musisz wpisać jakąś liczbę !", MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "BŁĄD") End If End Sub Private Sub odejmij_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles odejmij.Click zapamietaj.Text = wynik.Text wynik.Text = wynik.Text & "-" End Sub Private Sub dodaj_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles dodaj.Click zapamietaj.Text = wynik.Text wynik.Text = wynik.Text & "+" End Sub Private Sub wyn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles wyn.Click If (wynik.Text <> "") Then If wynik.Text = "+" Then wynik.Text = CStr(CDbl(zapamietaj.Text) + 1 + CDbl(wynik.Text) - 1) If wynik.Text = "-" Then wynik.Text = CStr(CDbl(zapamietaj.Text) + 1 - CDbl(wynik.Text) - 1) If wynik.Text = "*" Then wynik.Text = CStr((CDbl(zapamietaj.Text) + 1 - 1) * CDbl(wynik.Text)) If wynik.Text = "/" Then wynik.Text = CStr((CDbl(zapamietaj.Text) + 1 - 1) / CDbl(wynik.Text)) End If End Sub Private Sub zapamietaj_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles zapamietaj.Click zapamietaj.Text = wynik.Text End SubEnd ClassBo mnie nurtuje wyn_Click Private Sub wyn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles wyn.Click If (wynik.Text <> "") Then If wynik.Text = "+" Then wynik.Text = CStr(CDbl(zapamietaj.Text) + 1 + CDbl(wynik.Text) - 1) If wynik.Text = "-" Then wynik.Text = CStr(CDbl(zapamietaj.Text) + 1 - CDbl(wynik.Text) - 1) If wynik.Text = "*" Then wynik.Text = CStr((CDbl(zapamietaj.Text) + 1 - 1) * CDbl(wynik.Text)) If wynik.Text = "/" Then wynik.Text = CStr((CDbl(zapamietaj.Text) + 1 - 1) / CDbl(wynik.Text)) End If End SubSpisałem to z notatek, czy tak ma być? Link do komentarza Udostępnij na innych stronach More sharing options...
marek_haj Napisano Październik 20, 2006 Zgłoś Share Napisano Październik 20, 2006 mnie tez nurtuje co sie tam dzieje. Jako ze nie mam kompilatora wiec tego nie sprawdze ... Link do komentarza Udostępnij na innych stronach More sharing options...
mr_simon Napisano Październik 20, 2006 Autor Zgłoś Share Napisano Październik 20, 2006 Ale reszta jest wg Ciebie dobrze zrobiona, czy coś trzeba poprawić, dopisać? Link do komentarza Udostępnij na innych stronach More sharing options...
marek_haj Napisano Październik 20, 2006 Zgłoś Share Napisano Październik 20, 2006 sluchaj - tracisz czas tylko na czcze gadki ... Link do komentarza Udostępnij na innych stronach More sharing options...
mr_simon Napisano Październik 20, 2006 Autor Zgłoś Share Napisano Październik 20, 2006 OK, ściągnąłem Actvie debuggera zobaczymy co on wynajdzie. Link do komentarza Udostępnij na innych stronach More sharing options...
Polecane posty
Zarchiwizowany
Ten temat jest archiwizowany i nie można dodawać nowych odpowiedzi.