Totalne podstawy :: 4programmers.net

2013-04-02T22:01:29+02:00

Rejestracja: dni
Ostatnio: dni

hej ! Pomocy ! programowanie (nawet na tym najniższym poziomie mnie przerasta!
do rzeczy. mam takie zad.
Napisz makropolecenie które pobiera stężenia N−NO2 w wodzie a następnie w przypadku
przekroczenia pierwszej granicy 30 mg/l zwraca komunikat o treści:
Stężenie przekroczone o tu ma się pojawić wyliczona liczba powyżej 30 mg/l lub w przypadku
przekroczenia drugiej granicy 60 mg/l zwraca komunikat o treści:
ALARM! Stężenie zagrażające życiu.
Makropolecenie ma zwracać wybrany komunikat w zależności od wyniku, ale co najwyżej jeden.
Napisałam coś takiego, ale kompletnie nie wiem jak wstawić funkcję obliczającą to stężenie.

Kopiuj

Sub stężenie()
Dim stężenie As Integer
stężenie = InputBox("Podaj stężenie N-NO2 w wodzie", "Dane")
If stężenie < 30 Then
odp = MsgBox("stężenie w normie")
ElseIf stężenie > 60 Then
odp = MsgBox("alarm! stężenie zagrażające życiu")
Else
odp = MsgBox("stężenie przekroczone o ")           'tutaj nie wiem jak wstawić to oblicznie
End If

End Sub

liczę na Was ! :)

kAzek

2013-04-02T22:27:36+02:00

Rejestracja: dni
Ostatnio: dni
Lokalizacja: Gorlice

Nie wiem czy dobrze zrozumiałem to ma być procedura?

Kopiuj

Option Explicit

Public Sub Stezenie()
  Dim Value As Integer
  Dim Msg As String
  Value = Val(InputBox("Podaj stężenie N-NO2 w wodzie", "Dane"))
  If Value < 30 Then
    Msg = "Stężenie w normie"
  ElseIf Value > 60 Then
    Msg = "Alarm! stężenie zagrażające życiu"
  Else
    Msg = "Stężenie przekroczone o " + Str(Value - 30)
  End If
  MsgBox (Msg)
End Sub

2013-04-02T22:32:55+02:00

Rejestracja: dni
Ostatnio: dni

dzięki wielkie ! ;) zaoszczędziłam dzięki Tobie jakieś 2 godzinki i kilo nerwów ;P
nie chcę przeginać, ale mam jeszcze jedno, które nie wiem jak ugryźć.. ;/
Napisz makropolecenie kantor, które w oparciu o kurs i kwotę waluty do wymiany zwraca kwotę
w złotych. Dodaj opis funkcji.

kAzek

2013-04-02T22:53:59+02:00

Rejestracja: dni
Ostatnio: dni
Lokalizacja: Gorlice

Kopiuj

Option Explicit

Public Sub Kantor()
  Dim Kurs, Kwota As Currency
  Dim Msg As String
  Kurs = Val(InputBox("Podaj kurs waluty", "Dane"))
  Kwota = Val(InputBox("Podaj kwote do wymiany", "Dane"))
  If Kurs > 0 And Kwota > 0 Then
    Msg = "Do wyplaty: " + FormatCurrency(Kwota * Kurs, 2)
  Else
    Msg = "Podaj poprawne dane!"
  End If
  MsgBox (Msg)
End Sub

A opis zrób sobie sama może się czegoś nauczysz :P