Programowanie w Visual Basic


(Adrian Strozik) #1

Witam!

Jestem studentem pierwszego roku i została mi do zaliczenie jedynie informatyka, która nie wiąże się w żaden sposób z moim kierunkiem a także jeśli chodzi o język w którym programujemy. Nie mam do tego całkowicie głowy. Kazano mi wykonać pięć prostych programów które będa wykorzystywać (każdy coś innego) metody zawarte w wymaganiach chodzi o funkcje if do while itp … ciągi… Czy byłby ktoś w stanie pomóc ? Byłbym bardzo wdzięczny.


(Drobok) #2

Na forum nie odrabiamy zadań domowych. Jeśli masz jakieś problemy ktoś z pewnością ci pomoże. Lecz nie zrobi tego za cb :slight_smile:


(Frankfurterium) #3

Tutejszy regulamin zabrania wykonywania całych zadań konkursowych/szkolnych/uczelnianych. Zacznij pisać sam, a kiedy będziesz miał z czymś problem, na pewno ktoś ci tu pomoże.


(Adrian Strozik) #4

wiem jak pisać konstrukcje z if … i proste programy z wykorzystaniem wzorów ale nie rozumiem jak wykonać program z do while - pętlą i te trudniejsze i nie zrozumie … czy może w takim razie znajdzie się ktoś kto może nie na forum ale na priv pomoże ?


(Drobok) #5

Napisz w tym temacie, czego DOKŁADNIE nie rozumiesz w treści etc.

VB ma to do siebie, że większość po tłumaczeniu na polski możesz bez problemu zrozumieć :slight_smile:


(Adrian Strozik) #6

chodzi mi o to że po prostu nie potrafię wykonać konstrukcji wymienionych wyżej .


(Drobok) #7

http://www.vb4all.pl/teoria/iso2/rozkazy/do.htm


(Adrian Strozik) #8

przepraszam może i wydać się Wam to oczywiste ale niestety nie dla mnie … przegladałem tę stronę lecz i tak nie potrafię wykorzystać tej funkcji w prostym zadaniu …


(Drobok) #9

Podaj treść i powiedz czego w niej nie rozumiesz.


(floyd) #10

pętla “do while”, to pętla która wykonuje się tak długo dopóki spełniony jest warunek sprawdzany na początku pętli

przyklad:

x = 0

Do While x < 10

x = x + 1

Loop

Podczas wykonywania pętli zmienna x zwiększa swoją wartość w każdym obiegu o 1 czyli x przyjmuje kolejno wartości: 1, 2, 3 itd. Jeżeli x osiągnie wartość 10 nastąpi wyjście z pętli.


(Adrian Strozik) #11

Dobrze . A czy mógłbyś podać jakiś przykład zadania który mógłbym sobie rozpisać w Visualu i w razie co poprosić o radę ? Taki przykład który jak w temacie mógłbym oddać


(floyd) #12

Przykład w którym program wykorzystując pętlę “do while” rysuje wykres funkcji sinus po każdym kliknięciu w innym kolorze:

Private Sub Command1_Click()

Dim x1

Dim x2

Dim w1

    R = 255 * Rnd

    G = 255 * Rnd

    B = 255 * Rnd

    ' losowanie kolorów

    w1 = 0

    Do While w1 < 400

    x1 = w1

    x2 = x1 + 0.04

    Line (100 * x1, 1500 + 500 * Sin(x1))-(100 * x2, 1500 + 500 * Sin(x2)), RGB(R, G, B)

    w1 = w1 + 0.04

    Loop

End Sub

(Adrian Strozik) #13

chodzi o programy działające na liczbach czy taż literach … nie potrzeba mi czegoś takiego … to ma być program który w prosty sposób pokazuje jak wykorzystuje się do while , if rózne typy zmiennych intiger single … or … and … floyd fajnie wytłumaczyłeś mi jak stosuje się do while teraz chciałem żebyś podał jakiś przykład zadania i chciałem spróbować sam to napisać żeby w razie co prosić o pomoc.

może wkleje przykładowy program który napisałem wykorzystując funkcję if…:

Program Obliczający średnią dwóch liczb. a następnie z tej średniej oblicza v sześcianu:

Public Class Form1

Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label3.Click

End Sub

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

Dim a As Single

Dim b As Single

Dim srednia As Integer

Dim wynik As Integer

a = CSng(TextBox1.Text)

b = CSng(TextBox2.Text)

srednia = (a + b) / 2

wynik = srednia ^ 3

If wynik >= 500 And wynik <= 5000 Then

MsgBox(wynik & " " & “[j]^3” & " " & “Objętość właściwa”)

Else

MsgBox(wynik & " " & “[j]^3” & " " & “Objętość nie mieści się w wyznaczonym przedziale”)

End If

End Sub

End Class


(floyd) #14

Co w tym komunikacie robi ten zapis: “[j]^3” wywal go bo w zapis umieszczony w cudzysłowie oznacza tekst który w tym przypadku nie wiadomo co oznacza.

Jeśli już ma być, to może coś w tym stylu:

MsgBox(wynik & " " & srednia & "^3" & "Objętość właściwa")

Ćwiczenia powinny być związane z tematyką jaką przerabialiście i na odpowiednim dla was poziomie, a co tym było na wykładach czy ćwiczeniach to Ty powinieneś wiedzieć.

Może takie ćwiczonko: W trzech okienkach tekstowych wpisujemy dowolne liczby. Napisać program ustawiający te liczby od najmniejszej do największej.

Jak poszukasz w necie to można znaleźć wiele ćwiczeń, jak np tutaj:

http://www.e-programme.info/index.php?show=kurs,petle


(Adrian Strozik) #15

widzisz podałeś przykładowe zadanie a ja nie wiem jak mam do niego dostosować pętlę … w tym tkwi problem


(floyd) #16

Dim liczba0, liczba1, liczba2, liczba3 as single

Niech liczba1=val(text1.text):liczba2=val(text2.text):liczba3=val(text3.text)

Porównujemy pierwszą liczbę z drugą i jeżeli druga liczba jest mniejsza to zamieniamy je.

Aby dokonać zamiany wprowadzamy zmienną pomocniczą: liczba0

If liczba1 > liczba2 Then liczba0 = liczba1: liczba1 = liczba2: liczba2 = liczba0

W ten sam sposób porównujemy liczbę1 z liczbą3

Po znalezieniu liczby najmniejsze pozostaje tylko porównać w ten sam sposób liczbę2 i liczbe3

No i na zakończenie wpisujemy: text1.text=liczba1:text2.text=liczba2:text3.text=liczba3


(Mmow) #17

to może napisz, co studiujesz


(Adrian Strozik) #18

Nie bardzo to wciąż rozumiem … widzisz jaki program wkleiłem wcześniej więc widzisz jakie mam pojęcie o wszystkim moje umiejętności rozpoczynają się od zadeklarowania zmiennych wypisania skąd one mają byc zaczerpnięte wzór i tekst box … ewentualnie funkcja if … więc nie wiem jeśli irytuje Cię bo moim zdaniem już raczej tak moja nie wiedza to po prostu zakończmy ten temat może napisze to co potrafie chodź i tak to w ogóle nie wystarczy … a jeśli masz czas i chęci to po prostu czy byś mi mógł jakoś to metodą prób i błędów pomóc napisać… ja bym napisał co już mam… brakuje mi 3 programów które wykorzystywały by właśnie te funkcje które on by raczej wolał zobaczyć których ja niestety nie potrafię … bo nawet jak poczytam przykładowe zadania to nie wiem jak się za to zabrać… nawet jeśli są opisane takim językiem który do mnie w ogóle nie trafia :frowning:

Dodane 27.05.2012 (N) 0:15

Studiuje mechanikę i budowę maszyn na politechnice poznańskiej …