Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: ALBO BEDE MIAL 6 albo mi nie pomozecie!
anonim




Typ: Nie zarejestrowany
ALBO BEDE MIAL 6 albo mi nie pomozecie!

YO! WITAM WSZYSTKICH ! JA z taką prośbą zeby kto ŁASKAW i dobry to niech napisze na mój mail jak napisać program do obliczania średniej BO MUSZE ZROBIC JAKIS PROGRAM W VISALu ale nie uMIE pomocy!!!!!!!!!!!!!!! napiszcie mi instrukcej oto mail CZEKAM!!! z gory dziex!

21-04-2004 16:34
  
mikmas
From Łódź Stadt




Typ: neutral
Postów: 772
Zarejestrowany: Apr 2003

Do średniej??!! Spox - zaraz coś napiszę, o ile wiem, o co Ci chodzi


_____________________________________________
4C;65;70;69;65;6A;20;62;79;9C;20;73;69;EA;20;
62;61;72;64;7A;69;65;6A;20;73;6B;6F;6E;63;65;
6E;74;72;6F;77;61;B3;20;6E;61;20;6F;64;70;6F;
77;69;65;64;7A;69;2C;20;61;20;6E;69;65;20;6E;
61;20;72;6F;7A;73;7A;79;66;72;6F;77;79;77;61;
6E;69;75;20;3A;50

21-04-2004 20:21
Pokaż profil mikmas  Wyślij email do mikmas   Odwiedź stronę mikmas       3632553
mikmas
From Łódź Stadt




Typ: neutral
Postów: 772
Zarejestrowany: Apr 2003

Nie mogłem wysłać - wejdź tu: ftp://protom.one.pl/pub/mm/Srednia.rar


_____________________________________________
4C;65;70;69;65;6A;20;62;79;9C;20;73;69;EA;20;
62;61;72;64;7A;69;65;6A;20;73;6B;6F;6E;63;65;
6E;74;72;6F;77;61;B3;20;6E;61;20;6F;64;70;6F;
77;69;65;64;7A;69;2C;20;61;20;6E;69;65;20;6E;
61;20;72;6F;7A;73;7A;79;66;72;6F;77;79;77;61;
6E;69;75;20;3A;50

21-04-2004 20:49
Pokaż profil mikmas  Wyślij email do mikmas   Odwiedź stronę mikmas       3632553
anonim




Typ: Nie zarejestrowany
ODP!

nei wyswietla mi sie ta strona...:/ a mozesz napisac mi co i jak pokolei robic i wylac na MAILA? bede bardzo wdzieczny BO JA JESTEM W TYM ZIELONY...:/ BARDZO PROSZE WYSLIJ MI INSTRUKCJE! z gory dzieki ( a ogolnie to chodzi o to ze ten program na liczyc srednią z kazdego przedmiotu jak wpiszesz oceny i srednią ogónilnie na koniec rok a potrzebuje instrukcje zebym wiedział co i jak jak facet od infy mnie spyta )

25-04-2004 14:47
  
mikmas
From Łódź Stadt




Typ: neutral
Postów: 772
Zarejestrowany: Apr 2003
OK

No więc: moduł progu wygląda tak:

Private Sub Command1_Click()
With Text1
Dim I As Byte, Dodane As Single, Jedność As Single, Ile As Byte
I = 0 'Zerowanie zmiennych (żeby chciał dodawać)
Ile = 0
Dodane = 0
If Right(Text1.Text, 1) <> ";" Then Text1.Text = Text1.Text & ";" 'Jeżeli na końcu textu nie ma ";", to to daj
Do
I = I + 1
If Mid(Text1.Text, I, 1) = ";" Then 'Jeżeli znalazłeś ";" to:
Ile = Ile + 1 'Dodaj, aby pod koniec przez to podzielić
Dodane = Dodane + Val(Jedność) 'Dodaj liczbę, którą wydłubałeś z textu
Jedność = 0
GoTo Pomiń
End If
Jedność = Jedność & Mid(Text1.Text, I, 1) 'Dodaj cyfrę do liczby która jest pomiędzy ";"
Pomiń:
If I >= Len(Text1.Text) Then Exit Do 'Jeżeli miejsce, gdzie prog szuka jest dłuższe niż text, to zakończ pętle
Loop
Text2.Text = Dodane / Ile 'To chyba wiadomo
End With
End Sub


Mam nadzieję, że zrozumiałeś


_____________________________________________
4C;65;70;69;65;6A;20;62;79;9C;20;73;69;EA;20;
62;61;72;64;7A;69;65;6A;20;73;6B;6F;6E;63;65;
6E;74;72;6F;77;61;B3;20;6E;61;20;6F;64;70;6F;
77;69;65;64;7A;69;2C;20;61;20;6E;69;65;20;6E;
61;20;72;6F;7A;73;7A;79;66;72;6F;77;79;77;61;
6E;69;75;20;3A;50

25-04-2004 15:27
Pokaż profil mikmas  Wyślij email do mikmas   Odwiedź stronę mikmas       3632553
mikmas
From Łódź Stadt




Typ: neutral
Postów: 772
Zarejestrowany: Apr 2003

Aha - zaraz spróbuję wysłać ten sampel na e-


_____________________________________________
4C;65;70;69;65;6A;20;62;79;9C;20;73;69;EA;20;
62;61;72;64;7A;69;65;6A;20;73;6B;6F;6E;63;65;
6E;74;72;6F;77;61;B3;20;6E;61;20;6F;64;70;6F;
77;69;65;64;7A;69;2C;20;61;20;6E;69;65;20;6E;
61;20;72;6F;7A;73;7A;79;66;72;6F;77;79;77;61;
6E;69;75;20;3A;50

25-04-2004 15:34
Pokaż profil mikmas  Wyślij email do mikmas   Odwiedź stronę mikmas       3632553
Wszystkich odpowiedzi: 5 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1