Problem Hemijske Oznake

3

Problem Hemijske Oznake

offline
  • Pridružio: 26 Okt 2008
  • Poruke: 1560
  • Gde živiš: Sremski Mihaljevci

koji kod??



Registruj se da bi učestvovao u diskusiji. Registrovanim korisnicima se NE prikazuju reklame unutar poruka.
offline
  • Pridružio: 14 Feb 2008
  • Poruke: 12391

Covece kod za oznaku da smanjim broj.



offline
  • Pridružio: 28 Jun 2004
  • Poruke: 990
  • Gde živiš: Kucura

Nikad nisam radio sa time ali evo sta sam na netu nasao:
http://www.vbcity.com/forums/topic.asp?tid=92299
http://www.xtremevbtalk.com/archive/index.php/t-232337.html

Na zalost kasno je i nisam za mojim kompom pa nista nisam provreavao... Nemam ideju kako to resiti. Mozda napisati neku kontrolu pa preko nje. Probacu da uradim nesto kad stignem Confused

offline
  • Pridružio: 14 Feb 2008
  • Poruke: 12391

Hvala ti biser-x !

Dopuna: 20 Jan 2009 3:14

Yo, Biser X kako ide to? Ovo mi nije pomoglo. Jedno resenje radi ali je za .net a ja radim u vb. Sutra je skola a imam hemiju u Petak pa ako mozes nesto da smuckas?

offline
  • Pridružio: 28 Jun 2004
  • Poruke: 990
  • Gde živiš: Kucura

Evo uradio sam... na zalost ceo VB je zapuco i sad cu raditi iz pocetka... mozda i ne uradim. Mozda posaljem Microsoftu neko 'krasno' pisamce sa opisom njihovog VB6 kao predivnog programa koji jednostavno ne snimi projekat kada zapuca.. i onda ode par sati rada u lpm!!! Evil or Very Mad

Dopuna: 20 Jan 2009 11:35

Uradio sam ga... Nije kao onaj sto sam prvi napisao, ali ce raditi posao Smile

https://www.mycity.rs/must-login.png

Znaci ovaj fajl ucitas u projekat, dodas ga na formu i posle menjas tekst po potrebi. Recimo treba da napises formulu za vodu:

Hemija1.text = "H_2O"

Ovaj underline oznacava da ce sledeci simbol biti manji i i ispod normalne linije u kojoj se pojavljuju slova. Ako hoces da se sledeci simbol pojavljuje iznad onda koristis ^.
Ukoliko ti ne odgovaraju ti simboli, mozes ih zameniti tako sto ces izmeniti ova dva reda koda:

Const SAB_CHAR = "^" Const SUB_CHAR = "_"

Poziciju i velicinu fonta menjas ovde:

Const SAB_FONT_SIZE = 12 Const SAB_TOP = 0 Const MAIN_FONT_SIZE = 14 Const MAIN_TOP = 80 Const SUB_FONT_SIZE = 12 Const SUB_TOP = 260


Nadam se da ce posluziti Smile

offline
  • Pridružio: 14 Feb 2008
  • Poruke: 12391

Nemogu sad da probam posto mi je laptop otisao u lpm. Sve crknulo. Kad "Ozivim" Vistu javicu. Tvoje ime zasluzuje da bude u credits Smile Sta imas iz hemije da te predlozim nastavniku za 5 Smile

offline
  • Pridružio: 28 Jun 2004
  • Poruke: 990
  • Gde živiš: Kucura

Sa hemijom sam zavrsio u prvoj godini Razz
Aj pa javi kako ti se cini.. Wink

offline
  • Pridružio: 26 Okt 2008
  • Poruke: 1560
  • Gde živiš: Sremski Mihaljevci

Ja sam ovo probao sto je blaster napisao i radi!!



BlasteR ::Pogledajte malo onaj kod koji sam dao:

BlasteR ::             ...'Ako je uslov ispunjen, u pitanju je broj.              If (richTextBox1.Text(i) >= 48) AndAlso (richTextBox1.Text(i) <= 57) Then...

@Srki94

Ako ne mozes da deklarises font, proguglaj malo, sve ostalo bi trebalo da ti je jasno u kodu.

Dopuna: 12 Jan 2009 0:07

Konvertor me nije razumeo sta sam hteo da "kazem". LOL Ovo sam radio u VB 2008, tako da radi sigurno.
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click         Dim f As New Font("Microsoft Sans Serif", 5)         For i As Integer = 0 To RichTextBox1.Text.Length - 1             'Ako je uslov ispunjen, u pitanju je broj.             If (RichTextBox1.Text(i) >= "0" AndAlso (RichTextBox1.Text(i) <= "9")) Then                 RichTextBox1.Select(i, 1)                 RichTextBox1.SelectionFont = f             End If         Next     End Sub
A evo ga i projekat:

https://www.mycity.rs/must-login.png

offline
  • Pridružio: 28 Jun 2004
  • Poruke: 990
  • Gde živiš: Kucura

Tu dolazi i do problema Confused

Naime mozda mu je potrebno da uradi ovakvu formulu: 2H2O gde je prva dvojka standardne velicine koja oznacava dva mola vode, dok je druga dvojka mala....

offline
  • Pridružio: 14 Feb 2008
  • Poruke: 12391

Kad pokusam da ucitam u projekat kontrolu pojavi mi gresku.

Ko je trenutno na forumu
 

Ukupno su 592 korisnika na forumu :: 12 registrovanih, 5 sakrivenih i 575 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 3466 - dana 01 Jun 2021 17:07

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: bigfoot, dragoljub11987, JOntra, Krusarac, Lord Nem, milenko crazy north, Reinhardt, sap, Shilok, Srle993, strela, wizzardone