• Nie Znaleziono Wyników

Vb08_sinus_max_opis - instrukcja cyklu Do While Znale

N/A
N/A
Info
Pobierz
Protected

Academic year: 2021

Share "Vb08_sinus_max_opis - instrukcja cyklu Do While Znale"

Copied!
1
0
0

Ładowanie.... (Zobacz pełny tekst teraz)

Pobierz teraz ( 1 Stron )

Pełen tekst

(1)

Copyright © 2011, mgr inż. Janusz Bonarowski

Vb08_sinus_max_opis - instrukcja cyklu Do While

Znaleźć maksymalną wartość funkcji sinus.

Rys. 1. Aplikacja i jej obiekty

Kod aplikacji

Private Sub btnOblicz_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles btnOblicz.Click Dim alfa, dalfa, sin1, sin2 As Single

alfa = CSng(txtAlfa.Text) dalfa = CSng(txtDalfa.Text)

sin1 = Math.Sin(alfa * Math.PI / 180.0)

alfa = alfa + dalfa

sin2 = Math.Sin(alfa * Math.PI / 180.0)

Do While sin1 < sin2 'wykonaj cykl, jeśli warunek jest prawdziwy sin1 = sin2

alfa = alfa + dalfa

sin2 = Math.Sin(alfa * Math.PI / 180.0)

ListBox1.Items.Add("alfa=" & alfa.ToString & _ "; sin=" & sin2.ToString) Loop

txtAlfaWynik.Text = (alfa - dalfa).ToString txtSinus.Text = sin1.ToString

End Sub

Cytaty

Pobierz teraz ( PDF - 1 Stron - 63.87 KB )

Powiązane dokumenty

Ćwiczenie VB6.00 Tablice, listy, instrukcja cyklu For...Next

Ć wiczenie VB6.00 Tablice, listy, instrukcja cyklu

VB_7.2_Instrukcja cyklu Do...While, Do...Until

Copyright ©2014 Janusz Bonarowski 2 Główny fragment kodu zapewniający odczytywanie pliku tekstowego o nieznanej liczbie wierszy - pokazano na listingu 1.. Copyright ©2014

Instrukcja cyklu For Each … Next

W tej procedurze instrukcję For Each umieszczono dodatkowo w strukturze obsługi błędów Try … Catch, aby uniknąć błędu wtedy, gdy funkcja konwersji CSng(Element.Text)

INSTRUKCJA DO LABORATORIUM

is for base-test procedure; &lt;enter&gt; adds current position of robot to user program. To stop the robot you have to press &lt;spacebar&gt; key. 1.8 Teachbox window.. Instrukcja

Instrukcja do ćwiczeń

--- Podzespoły spektrofluorymetru Edynburg FLS-980 (rys. Monochromator wzbudzenia – umożliwia wybór określonej długości fali światła z pełnego spektrum źródła wzbudzenia.

INSTRUKCJA DO ĆWICZEŃ

Po ostatecznym udokładnieniu struktury, wszystkie szczegóły dotyczące wyznaczenia i opisu struktury badanego związku są gromadzone w pliku z rozszerzeniem

Instrukcja do ćwiczeń

1) Zapoznaj się z budową i działaniem spektrofotometru UV-Vis Thermo Scientific Evolution 220. Spektrofotometr absorpcyjny UV-Vis Thermo Scientific Evolution 220.. --- 2)

Instrukcja do dwiczeo

Zapoznanie się z mapami nasłonecznienia oraz mapami ukazującymi potencjał produkcji energii elektrycznej z systemu fotowoltaicznego w danej lokalizacji.. Zapoznanie się z