|
08.06.2006., 19:48 | #1 |
Premium
Datum registracije: Oct 2004
Lokacija: Zagreb
Postovi: 1,306
|
Zna tko visual basic? Umm felow in need of help
znaci trebam nekog tko bi bio tako divan dobar i drazestan zaradio si pivu hladnu ako ne i dvije tko bi mi mogao napisati sljedeci programcic u visual basicu, učitati rečenicu program treba izbaciti... rečenicu ispisati obrnutim redosljedom prebrojati slova N i O
__________________
Biti lud ima prednosti koje razumiju samo ludjaci FKT meber jednog dana high priest... |
08.06.2006., 20:30 | #2 |
Prečupavi mod
Datum registracije: Mar 2005
Lokacija: Zg
Postovi: 8,964
|
Imas podforum programiranje, pa probaj tam... http://forum.pcekspert.com/forumdisplay.php?f=39
__________________
Member of PCE 100+kg demolition squad Pozz, nezz, ojzz, jbt, owak, onak, inst, bzvz, svst, kuiš, neam, dns, nzm, oc, went, graf, laikam, oču, neču, e ovako, e sad, probo, neče, psmtr, ne beliiwam, ugl probo o5, tkđ neradi, pčkmtrnu, mslm onaak haaalo, reko dbr, stv, dali, jeli, zato jel, jer mi može neko, rispekt, thx......... ...wau, radi, zkn, pozz!?!?11 |
|
|
Oglas
|
|
10.06.2006., 00:52 | #3 |
Premium
Datum registracije: Nov 2001
Lokacija: zagreb
Postovi: 1,176
|
stavi na formu text box (text1), labelu (label1) i gumb (command1) Option Explicit Private Sub Command1_Click() Dim i As Integer Dim str As String Dim br_a As Integer Dim br_b As Integer Dim tmp As String Label1.Caption = "" str = Text1.Text For i = 1 To Len(str) tmp = Right(str, 1) Label1.Caption = Label1.Caption & tmp str = Left(str, Len(str) - 1) Select Case tmp Case "O" br_a = br_a + 1 Case "N" br_b = br_b + 1 End Select Next i End Sub u br_a su ti prebrojani 'O'-ovi, a u br_b 'N'-ovi (stvar je CASE sensitive, dakle ne broji 'o' i 'n') pa s njima moš šta oš možda postoji i neki pametniji način, ali je kasno, ko bi sad išao to prčkati |
|
|
Oglas
|
|
|
|