[INF L2] Zadania domowe

sebool

Wysłałem na maila moje rozwiązania "zadanek domowych" Very Happy

Jeśli widzicie błędy lub coś jest źle to poprawcie mnie Smile

Robione w "oryginalnym" Wordzie 2010 Wink

sebool

Ktoś sprawdzał ??????

Kieza

Witam! Mógłby ktoś przypomnieć co było zadane? Z góry dzięki Very Happy

Gość

podatki,trójkąt i ocena z testu

sebool

a w którym pliku jest ich treść Razz

Gość

w tym który właśnie wysłałem na pocztę + zadanie z tablicy.
a oto tajne kody:
TRÓJKĄT
Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim dlugosca As Integer
Dim dlugoscb As Integer
Dim dlugoscc As Integer
dlugosca = CInt(TextBox1.Text)
dlugoscb = CInt(TextBox2.Text)
dlugoscc = CInt(TextBox3.Text)
If dlugosca * dlugosca = dlugoscb * dlugoscb + dlugoscc * dlugoscc Then TextBox4.Text = "z podanych boków można zbudować trójkąt prostokątny"
If dlugoscb * dlugoscb = dlugosca * dlugosca + dlugoscc * dlugoscc Then TextBox4.Text = "z podanych boków można zbudować trójkąt prostokątny"
If dlugoscc * dlugoscc = dlugoscb * dlugoscb + dlugosca * dlugosca Then TextBox4.Text = "z podanych boków można zbudować trójkąt prostokątny"
If TextBox4.Text = "" Then TextBox4.Text = "z podanych boków nie można zbudować trójkąta prostokątnego"

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Close()
End Sub
End Class

PODATEK
Public Class Form1

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim wartosc As Integer
wartosc = CInt(TextBox1.Text)
If wartosc < 3091 Then TextBox2.Text = 0
If wartosc > 3090 And wartosc < 44490 Then TextBox2.Text = (19 * wartosc / 100) - 586.85
If wartosc > 44489 And wartosc < 85528 Then TextBox2.Text = 7866.25 + 30 * (wartosc - 44490) / 100
If wartosc > 85527 Then TextBox2.Text = 20177.65 + 40 * (wartosc - 85528) / 100
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Close()
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox1.Text = ""
TextBox2.Text = ""
End Sub
End Class

OCENY Z TESTU
Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim punkty As Integer
punkty = CInt(TextBox1.Text)

If punkty >= 0 And punkty <= 50 Then TextBox2.Text = "niedostateczny"
If punkty > 50 And punkty < 61 Then TextBox2.Text = "dostateczny"
If punkty > 60 And punkty < 71 Then TextBox2.Text = "dostateczny plus"
If punkty > 70 And punkty < 81 Then TextBox2.Text = "dobry"
If punkty > 80 And punkty < 91 Then TextBox2.Text = "dobry plus"
If punkty > 90 And punkty < 101 Then TextBox2.Text = "bardzo dobry"
If punkty < 0 Then TextBox2.Text = "niewłaściwa liczba"
If punkty > 100 Then TextBox2.Text = "niewłaściwa liczba"

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox1.Text = ""
TextBox2.Text = ""
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Close()
End Sub
End Class

sebool

Wielkie dzięki Smile

ale dziwny ten program jest...
zapisuje projekt, tworzą się 3 pliki ale jak już je otwieram żeby sprawdzić zadanie to już mi nie działa nic :/

Gość

To są programy z z visual studio 2010-tam konsole działają . Płyty z 2008, którą miała dać nam ta kobita ani widu, ani słychu. Chyba, że ktoś z nas capnął ją i siedzi cicho:)
visual studio 2010 professional można ściągnąć w trialu za free.

sebool

Nie no... jak zrobię w Visualu ten cały programik to działa. Problem pojawia się gdy zapiszę, wyłączę i znowu chce go włączyć wtedy nie mogę zrobić Debuga :/
wyśle jej tak jak mam i sru ;P

dela_72

Witam serdecznie,
Wpisy będą w sobotę 29 stycznia w godz. 12-15 w sali 210.
Zapraszam!

Pozdrawiam,
E. Sobieszek

	Forum www.1cz.fora.pl Strona Główna :: Informatyka / Laboratorium / L2	Wszystkie czasy w strefie EET (Europa)
Strona 1 z 1