VB rastavljanje...
Prikazujem rezultate 1 do 5 od 5

Tema: VB rastavljanje...

  1. #1
    Početnik
    Učlanjen
    06.02.2008.
    Pol
    muški
    Poruke
    45
    Reputaciona moć
    0

    Podrazumevano VB rastavljanje...

    Naime, imam problem:
    Zamislite sledeće:
    TextBox - Text1
    TextBox - Text2
    Button - Cmd1

    I sada, korisnik unese brojnu vrednost u Text1, klikne na Cmd i program treba da prikaže "razdvojene" sabirke unetog broja, tj. njihov zbir.
    Npr. korisnik unese broj 123, klikne na cmd1, a u Text2 mu prikaže 6.

    Unapred hvala...



  2. #2
    Zainteresovan član
    Učlanjen
    05.09.2008.
    Poruke
    122
    Reputaciona moć
    0

    Podrazumevano Re: VB rastavljanje...

    Dim strBuffer As String
    Dim intBuffer As Integer
    Dim i As Integer

    Let intBuffer = 0

    For i = 1 to Len (txtUnos)
    strBuffer = Mid (txtUnos, i, 1)
    intBuffer = intBuffer + (Asc (strBuffer) - 48)
    IF intBuffer > 10 THEN 'Brojevi 0 - 9 = 10 razlicitih cifara. ovo proverava Ako nije unesen broj nego slovo na bilo kom mestu {
    MsgBox "Eroor itd."
    intBuffer = 32
    EXIT FOR
    END IF '} i prekida petlju sa porukom greska, a ispisuje samo " " tj. razmak.
    Next i
    txtDisplay = CStr ( intBuffer )
    Poslednji put ažurirao/la MIKROJEB : 01.10.2008. u 13:49

  3. #3
    Zainteresovan član
    Učlanjen
    05.09.2008.
    Poruke
    122
    Reputaciona moć
    0

    Podrazumevano Re: VB rastavljanje...

    karakter = jeidnice Stringa, dakle, slova, ali ne samo slova vec i neki znakovi (1 - 256 | 0 - 255).

    Asc (arg As String) As Integer - pretvara prvi karakter toga arg-a u ASCII kod odgovarajuci za taj karakter (npr. 0 = 48)
    Mid (arg1 As String, arg2 As Integer, arg3 As Integer) As String - vraca arg3 karaktera koji se u arg1 krecu od pozicije arg2.

    Len (arg1 As String) As Integer - daje Integer koji predstavlja duzinu stringa u karakterima

    Za konverziju integera u string nadji sam. EDIT CStr
    Poslednji put ažurirao/la MIKROJEB : 01.10.2008. u 13:13

  4. #4
    Zainteresovan član
    Učlanjen
    05.09.2008.
    Poruke
    122
    Reputaciona moć
    0

    Podrazumevano Re: VB rastavljanje...

    ovo su ti kodovi koje ti vraca Asc za ove stvari ako se nadju u stringu: (ima ih jos 127)

    Kod:
       File  Edit  View  Search  Run  Debug  Calls  Utility  Options          Help
    ┌───────────────────────────── HELP: ASCII Chart ──────────────────────────┤↑├─┐
    │                                                 ◄Contents►  ◄Index►  ◄Back►  ↑
    │──────────────────────────────────────────────────────────────────────────────░
    │           Regular ASCII Chart (character codes 0 - 127)                      ░
    │000   (nul)  016 ► (dle)  032 sp  048 0  064 @  080 P  096 `  112 p           ░
    │001 ☺ (soh)  017 ◄ (dc1)  033 !   049 1  065 A  081 Q  097 a  113 q           ░
    │002 ☻ (stx)  018 ↕ (dc2)  034 "   050 2  066 B  082 R  098 b  114 r           ░
    │003 ♥ (etx)  019 ‼ (dc3)  035 #   051 3  067 C  083 S  099 c  115 s           ░
    │004 ♦ (eot)  020 ¶ (dc4)  036 $   052 4  068 D  084 T  100 d  116 t           ░
    │005 ♣ (enq)  021 § (nak)  037 %   053 5  069 E  085 U  101 e  117 u           ░
    │006 ♠ (ack)  022 ▬ (syn)  038 &   054 6  070 F  086 V  102 f  118 v
    │007 • (bel)  023 ↨ (etb)  039 '   055 7  071 G  087 W  103 g  119 w           ░
    │008backspace 024 ↑ (can)  040 (   056 8  072 H  088 X  104 h  120 x           ░
    │009   (tab)  025 ↓ (em)   041 )   057 9  073 I  089 Y  105 i  121 y           ░
    │010   (lf)   026   (eof)  042 *   058 :  074 J  090 Z  106 j  122 z           ░
    │011 ♂ (vt)   027 ← (esc)  043 +   059 ;  075 K  091 [  107 k  123 {           ░
    │012 ♀ (np)   028 ∟ (fs)   044 ,   060 <  076 L  092 \  108 l  124 |           ░
    │013Enter     029 ↔ (gs)   045 -   061 =  077 M  093 ]  109 m  125 }           ░
    │014 ♫ (so)   030 ▲ (rs)   046 .   062 >  078 N  094 ^  110 n  126 ~           ░
    │015 ☼ (si)   031 ▼ (us)   047 /   063 ?  079 O  095 _  111 o  127 ⌂           ░
       File  Edit  View  Search  Run  Debug  Calls  Utility  Options          Help
    ┌───────────────────────────── HELP: ASCII Chart ──────────────────────────┤↑├─┐
    │                                                                              ↑
    │            Extended ASCII Chart (character codes 128 - 255)                  ░
    │128 Ç      144 É      160 á    176 ░    192 └    208 ╨    224 α   240 ≡       ░
    │129 ü      145 æ      161 í    177 ▒    193 ┴    209 ╤    225 ß   241 ±       ░
    │130 é      146 Æ      162 ó    178 ▓    194 ┬    210 ╥    226 Γ   242 ≥       ░
    │131 â      147 ô      163 ú    179 │    195 ├    211 ╙    227 π   243 ≤       ░
    │132 ä      148 ö      164 ñ    180 ┤    196 ─    212 ╘    228 Σ   244 ⌠       ░
    │133 à      149 ò      165 Ñ    181 ╡    197 ┼    213 ╒    229 σ   245 ⌡       ░
    │134 å      150 û      166 ª    182 ╢    198 ╞    214 ╓    230 µ   246 ÷       ░
    │135 ç      151 ù      167 º    183 ╖    199 ╟    215 ╫    231 τ   247 ≈       ░
    │136 ê      152 ÿ      168 ¿    184 ╕    200 ╚    216 ╪    232 Φ   248 °       ░
    │137 ë      153 Ö      169 ⌐    185 ╣    201 ╔    217 ┘    233 Θ   249 ∙       ░
    │138 è      154 Ü      170 ¬    186 ║    202 ╩    218 ┌    234 Ω   250 ·       ░
    │139 ï      155 ¢      171 ½    187 ╗    203 ╦    219 █    235 δ   251 √       ░
    │140 î      156 £      172 ¼    188 ╝    204 ╠    220 ▄    236 ∞   252 ⁿ       ░
    │141 ì      157 ¥      173 ¡    189 ╜    205 ═    221 ▌    237 φ   253 ²       ░
    │142 Ä      158 ₧      174 «    190 ╛    206 ╬    222 ▐    238 ε   254 ■       ░
    │143 Å      159 ƒ      175 »    191 ┐    207 ╧    223 ▀    239 ∩   255
    A da bi promenio neki karakter u stringu da ima odgovarajuci ASCII kod radis ovo:

    Mid (strText, gde je taj karakter, 1) = CHR (kod koji zelis)

    CHR ti daje string od jednog karaktera (ukoliko ne koristis 2008 ili .net i ta sranja) kojem odgovara kod koji ti zelis. Napr CHR (65) ti daje veliko slovo A.

    evo primera kako da menjas jedno slovo teksta u A:

    DIM strText AS STRING
    LET strText = "Marij na"

    MID (strText, 6, 1) = "a"

    Drugi nacin:

    MID (strText, 6, 1) = CHR (97)
    Poslednji put ažurirao/la MIKROJEB : 01.10.2008. u 13:49

  5. #5
    Početnik
    Učlanjen
    06.02.2008.
    Pol
    muški
    Poruke
    45
    Reputaciona moć
    0

    Podrazumevano Re: VB rastavljanje...

    Baš ništa ne kapiram!
    Postoji li neki jednostavniji način ???

Pravila za slanje poruka

  • Ne možete kreirati novu temu
  • Ne možete poslati odgovor
  • Ne možete dodati priloge
  • Ne možete prepraviti svoju poruku
  •