| Autor |
Wiadomość |
| roman |
 Wysłany: Śro 20:33, 25 Kwi 2007 Temat postu: |
|
zamiast
| Kod: | | x = MsgBox("wynik to: " & b) |
wstawiasz Sobie:
|
|
 |
| Aga |
| Wysłany: Śro 20:09, 25 Kwi 2007 Temat postu: |
|
no dobra chlopaki, a co zrobic jak ja chce zeby wynik tej silni byl umieszczony np w komorce B1 a nie w tym msgbox? bo jak zamiast
x = msgbox("wynik:" +str(B)) pisze cells(1,"b") = x to nic nie wychodzi:/ no to kto na to poradzi:>? |
|
|
| roman |
| Wysłany: Śro 19:15, 25 Kwi 2007 Temat postu: |
|
co Ty za mojego pazia robisz ? |
|
|
| dress11 |
| Wysłany: Śro 18:55, 25 Kwi 2007 Temat postu: |
|
| Aga napisał: | | ooo wielkie dzieki;) teraz to kolosa na 5 napisze:p haha marzenia... |
...wiesz marzenia czasem sie spełniaja..np. Roman wykozakował kolosa z visual basica na 5  |
|
|
| Aga |
| Wysłany: Śro 17:14, 25 Kwi 2007 Temat postu: |
|
| ooo wielkie dzieki;) teraz to kolosa na 5 napisze:p haha marzenia... |
|
|
| roman |
| Wysłany: Śro 13:17, 25 Kwi 2007 Temat postu: |
|
| Kod: | Sub silnia()
a = Val(InputBox("podaj liczbe"))
If a = 0 Then
x = MsgBox("wynik to: 1")
Else
b = 1
For i = 1 To a
b = b * i
Next i
x = MsgBox("wynik to: " & b)
End If
End Sub
|
prosze bardzo |
|
|
| Aga |
| Wysłany: Śro 11:58, 25 Kwi 2007 Temat postu: |
|
| mam prosbe do kogos kto sie zna na makrach:d jak napisac te komendy zeby obliczylo mi silnie????????? z gory dziekuje:* |
|
|
| Zofija |
| Wysłany: Pią 11:21, 13 Kwi 2007 Temat postu: |
|
przełożylam kolosa na przyszły czwartek więc prośba nadal aktualna  |
|
|
| tomekk |
| Wysłany: Pią 11:05, 13 Kwi 2007 Temat postu: |
|
| To ja też poproszę o to: allen@op.pl |
|
|
| Zofija |
| Wysłany: Śro 18:25, 11 Kwi 2007 Temat postu: |
|
| a może ktoś ma jakieś z formularzy lub solvera zrobione na kompie? jak tak, to poproszę na mejla HinataH@interia.pl bo ja nic z tego nie czaje:/ a jutro mam zaliczać - na przykładach może uda mi sie zrozumieć.. |
|
|
| roman |
| Wysłany: Pon 22:57, 26 Mar 2007 Temat postu: |
|
a nie w ten czwartek? geez musze zainwestowac w organizer  |
|
|
| dress11 |
| Wysłany: Pon 22:26, 26 Mar 2007 Temat postu: |
|
| CyTrYnKa napisał: | | a kiedy macie kolosa z makr u stefanczykowej i czy ktos z was udziela moze korkow:) |
kolosa u stefanczykowej ma tylko arthus...ja z romanem mamy kolosa u jaskuly ale to dopiero po swietach |
|
|
| CyTrYnKa |
| Wysłany: Pon 21:53, 26 Mar 2007 Temat postu: |
|
| a kiedy macie kolosa z makr u stefanczykowej i czy ktos z was udziela moze korkow:) |
|
|
| dress11 |
| Wysłany: Pon 15:41, 26 Mar 2007 Temat postu: |
|
| roman napisał: | | Kod: |
Sub pierwiastki()
'program czyta z komorek a1,a2,a3 kolejne wspolczynniki r-nia kwadratowego i zwraca rozwiazania lub ich brak w msgboxie'
a = Range("a1").Value
b = Range("a2").Value
c = Range("a3").Value
delta = b * b - 4 * a * c
If a = 0 Then
x = MsgBox("to nie jest r-nie kwadratowe!", vbCritical + vbOKOnly)
Else
Select Case delta
Case Is < 0: x = MsgBox("r-nie nie ma pierwiastkow w liczbach rzeczywistych", vbCritical)
Case 0:
x1 = -b / (2 * a)
x = MsgBox("r-nie ma jedno rozwiazanie " & x1, vbInformation + vbOKOnly)
Case Is > 0:
x1 = (-b - Sqr(delta)) / (2 * a)
x2 = (-b + Sqr(delta)) / (2 * a)
x = MsgBox("r-nie ma dwa rozwiazania " & x1 & " oraz " & x2, vbInformation + vbOKOnly)
End Select
End If
End Sub
|
zwroc uwage na przelamanie wiersza (forum moze miec za krotkie linijki;)
nie wiem dokladnie jak ta praca domowa miala wygladac ale jak cos nie tak to moge poprawic. jakby byly jakies niejasnosci to polecam
| Kod: | | http://www.cvonline.pl/content/index.php?id=874&gr=1&SESSID=367e04813407cf97e5a49d7e1ad7517d |
pozdro szejset |
widze niezle kozakujesz:D
...juz wiem kto bedzie mi pomagal w moim kolosie;) |
|
|
| Arthus |
| Wysłany: Pon 12:59, 26 Mar 2007 Temat postu: |
|
| Wielkie dzięki! Zrobiłem, ale kolokwium to coś ciemno widzę |
|
|