Srodne teme

14.04.2024. Re: Gde je Kejt? (samo pogrešni odgovori)
21.06.2002. vba [multycolumn ComboBox]
12.06.2002. ComboBox
01.10.2002. combobox?
14.08.2003. ComboBox problem ???????'
05.04.2005. delphi combobox pomoc!
24.08.2005. dva pitanja u vezi ComboBox-a
30.10.2005. ComboBox sa vise kolona
22.12.2005. comboBox unos iz baze (id, name)
14.03.2006. ComboBox....ValueMember

Navigacija

Brisanje liste

Lista poslednjih: 16, 32, 64, 128 poruka.

pocetnik-combobox+neka pojasnjenja

[es] :: Visual Basic 6 :: pocetnik-combobox+neka pojasnjenja

[ Pregleda: 1844 | Odgovora: 14 ] > FB > Twit

Autor

miki987

Član broj: 208123
Poruke: 511
79.101.203.*

+5 Profil

pocetnik-combobox+neka pojasnjenja

^{05.07.2009. u 16:38 - pre 180 meseci}

ja sam totalni pocetnik u ovome.od programiranja znam raditi samo u flash-u, ima dosta slicnosti ali ne toliko da mi sve ide od ruke.planiram napraviti jedan program koji u sustini predstavlja izbor nekih parametara preko cobmobox-ova i da se ti izabrani parametri medjusobno mnoze, dele i t.d. kao krajnji rezultat dobijam svega 10 parametara koji se trebaju stampati a po mogucstvu da se zapisuju u excel na HD-u

moje pitanje je da li je to veliki zalogaj za pocetnika, da li mogu sve ovo izvuci iz nekog tutorijala, i da li mogu dobiti od nekoga malu pomoc uz neki primer koji poseduje combobox-ove koji su medjusobno povezani-zavisni i da se u zavisnosti od izabranog pojavljue rezultat u recimo nekom dynamic text-u a koji ce se odatle mnoziti ili deliti i t.d....

Unapred zahvalan na pomoci

Odgovor na temu

Aleksandar Vasic
Web Administrator, Uspon d.o.o
Čačak

Član broj: 91692
Poruke: 1226
*.adsl.eunet.rs.

Sajt: www.vasictech.net

+1 Profil

Re: pocetnik-combobox+neka pojasnjenja

^{05.07.2009. u 16:52 - pre 180 meseci}

Nije tesko za pocetnika :)

Procitaj TOP teme imas dosta tutorijala, posebno obrati paznju na koriscenje promenljivih.

Da ubacis nesto u combo koristis

Code:
Combo1.AddItem "tekst"

Da izvuces u promenljivu vrednost combo-a

Code:
varTekst = Combo1.Text

e sad, na primer, ako ce ti u combo-u biti nesto tipa "+", "-" i td. onda ces morati sa IF da proveravas vrednost.

Primer, u textboxu(Text1) se nalazi prvi broj (npr. 5) u drugom textboxu se nalazi drugi broj (npr. 7). A u Combo-u biras operaciju(+,-).

Code:
Private Sub Combo1_Change()
If Combo1.Text = "+" Then MsgBox Str(Val(Text1.Text) + Val(Text2.Text))
If Combo1.Text = "-" Then MsgBox Str(Val(Text1.Text) + Val(Text2.Text))
End Sub

Str -> konvertuje brojnu varijablu u varijablu tipa string
Val -> Konvertujes brojnu varijablu iz tipa string u broj

Odgovor na temu

miki987

Član broj: 208123
Poruke: 511
79.101.203.*

+5 Profil

Re: pocetnik-combobox+neka pojasnjenja

^{05.07.2009. u 18:45 - pre 180 meseci}

evo da pojednostavim
primer onoga sto pokusavam

evo sad je u redu valjda :)

_{[Ovu poruku je menjao miki987 dana 06.07.2009. u 03:08 GMT+1]}

_{[Ovu poruku je menjao miki987 dana 06.07.2009. u 03:09 GMT+1]}

Prikačeni fajlovi

primer.zip

primer.zip - 0.7k

primer2.zip

primer2.zip - 2.01k

Odgovor na temu

Aleksandar Vasic
Web Administrator, Uspon d.o.o
Čačak

Član broj: 91692
Poruke: 1226
*.adsl.eunet.rs.

Sajt: www.vasictech.net

+1 Profil

Re: pocetnik-combobox+neka pojasnjenja

^{05.07.2009. u 22:56 - pre 180 meseci}

nisi ubacio ceo projekat

Odgovor na temu

Aleksandar Vasic
Web Administrator, Uspon d.o.o
Čačak

Član broj: 91692
Poruke: 1226
*.adsl.eunet.rs.

Sajt: www.vasictech.net

+1 Profil

Re: pocetnik-combobox+neka pojasnjenja

^{06.07.2009. u 11:52 - pre 180 meseci}

Evo ti resenje:

Najbolje bi bilo kada bi u combobox-u pisao samo broj grama, a desno od box-a jedinica gr. U suprotnom moras da izvlacis numericke vrednost iz stringa.

A za racunanje ides ovako:

Code:
Text1.Text = Str(Val(Combo1.Text) * 0.01)

Ili kakav ti vec proracun treba. E sad da ti tekst bude ispisan u nekoj boji ides preko IF

Code:
If Combo2.Text = "Crvena" Then Text1.ForeColor = 255

i td...

za stampanje i upis u excel imas dosta tema po forumu, pa pretrazi

_{[Ovu poruku je menjao Aleksandar Vasic dana 07.07.2009. u 12:43 GMT+1]}

Odgovor na temu

miki987

Član broj: 208123
Poruke: 511
93.87.200.*

+5 Profil

Re: pocetnik-combobox+neka pojasnjenja

^{06.07.2009. u 18:34 - pre 180 meseci}

sustina programa je izbor parametara radi stampanja sa malo matematike
dakle, u jednom cb imamo 10 parametara i sad se treba izabrati jedan i kao takav bude postavljen - formatiran u excel-u (citaj na mestu gde ja hocu da pozicioniram taj izabrani tekst)

kada se on postavi tu gde ja hocu onda na SACUVAJ kreirati excel dokument koji ce biti sacuvan na desktop-u recimo

sto se tice boja, upravo je to sto me verovatno nisi razumeo, dakle meni ne treba da rec "crvena" bude u crvenoj boji vec da se na tom mestu upise predhodno izabrana boja i ako je to recimo crvena pise CRVENA + npr. 50gr
nadam se da si me shvatio
molim te samo ako mozes bar da mi napises kako to da uradim ako ne mozes u onom primeru koji sam okacio

Odgovor na temu

Aleksandar Vasic
Web Administrator, Uspon d.o.o
Čačak

Član broj: 91692
Poruke: 1226
*.adsl.eunet.rs.

Sajt: www.vasictech.net

+1 Profil

Re: pocetnik-combobox+neka pojasnjenja

^{07.07.2009. u 11:43 - pre 180 meseci}

ako sam dobro shvatio, onda treba ovako:

Code:
Text1.Text = Combo2.Text & " " & Str(Val(Combo1.Text) * 0.01)

Odgovor na temu

miki987

Član broj: 208123
Poruke: 511
93.87.195.*

+5 Profil

Re: pocetnik-combobox+neka pojasnjenja

^{10.07.2009. u 11:27 - pre 180 meseci}

Aleksandre evo vec dva dana pokusavam da povezem makar dva combo-a a da se ne javljam na forum i ne uspevam.MOLIM te posto mi bas treba, mozes li mi samo napraviti dva combo-a sa po jednim brojem koji u text area ispisu rezultat kada se pomnoze medjusobno pa valjda cu ukapirati gde gresim

Odgovor na temu

Aleksandar Vasic
Web Administrator, Uspon d.o.o
Čačak

Član broj: 91692
Poruke: 1226
*.adsl.eunet.rs.

Sajt: www.vasictech.net

+1 Profil

Re: pocetnik-combobox+neka pojasnjenja

^{10.07.2009. u 12:00 - pre 180 meseci}

Evo :)

Prikačeni fajlovi

projekat.rar

projekat.rar - 1.5k

Odgovor na temu

miki987

Član broj: 208123
Poruke: 511
91.150.107.*

+5 Profil

Re: pocetnik-combobox+neka pojasnjenja

^{10.07.2009. u 14:42 - pre 180 meseci}

Hvala puno, sad kapiram :DDD

Odgovor na temu

miki987

Član broj: 208123
Poruke: 511
91.150.107.*

+5 Profil

Re: pocetnik-combobox+neka pojasnjenja

^{10.07.2009. u 16:21 - pre 180 meseci}

evo mene opet, malo sam ucio... sad mi nije jasno (citaj da li ovo moze ovako)

imam kod za kreiranje xls-a i printPreview istog na sledeci nacin

Code:
Private Sub Command3_Click()

Dim ime_fajla As String
Dim tmpString As String

ime_fajla = Format(Date, "dd.mm.yyyy")
Open "C:\proba\" & ime_fajla & ".xls" For Append As #1

Dim ff As Integer
ff = FreeFile()

Open "C:\proba\" & ime_fajla & ".xls" For Input As #1

Do While Not EOF(ff)
Input #ff, tmpString
Printer.Print tmpString
Loop
Close #ff

End Sub

kreiranje radi ali printPreview nece, predpostavljam zbog ovog:

Code:
Open "C:\proba\" & ime_fajla & ".xls" For Input As #1

ako sam u pravu, kako definisati da na mestu & ime_fajla & stoji ime fajla kojeg je ustvari kreirao

Odgovor na temu

Aleksandar Vasic
Web Administrator, Uspon d.o.o
Čačak

Član broj: 91692
Poruke: 1226
*.adsl.eunet.rs.

Sajt: www.vasictech.net

+1 Profil

Re: pocetnik-combobox+neka pojasnjenja

^{10.07.2009. u 16:36 - pre 180 meseci}

Probaj ovo

Code:
Private Sub Command3_Click()

Dim ime_fajla As String
Dim tmpString As String

ime_fajla = Format(Date, "dd.mm.yyyy")
Open "C:\proba\" & ime_fajla & ".xls" For Append As #1

Dim ff As Integer
ff = FreeFile()

Open "C:\proba\" & ime_fajla & ".xls" For Input As #1

Do While Not EOF(ff)
Input #ff, tmpString
Printer.Print tmpString
Loop
Close #ff
Printer.EndDoc

End Sub

Odgovor na temu

miki987

Član broj: 208123
Poruke: 511
91.150.107.*

+5 Profil

Re: pocetnik-combobox+neka pojasnjenja

^{10.07.2009. u 17:16 - pre 180 meseci}

Tako mi prijavljuje gresku '55'
Probao sam i da razdvojim na dva tastera ovako
Kreiranje

Code:
Private Sub Command3_Click()

Dim ime_fajla As String

ime_fajla = Format(Date, "dd.yyyy.mm")

Open "C:\proba\" & ime_fajla & ".xls" For Append As #1

End Sub

i stampanje

Code:

Private Sub Command4_Click()
dim ff as integer
ff = freefile()

dim tmpString as string

open "C:\proba\" & ime_fajla & ".xls" for input as #ff
do while not EOF(ff)
input #ff, tmpString
printer.print tmpString
loop
close #ff

printer.enddoc
End Sub

i ista stvar, printPreview ili Print samo nece da radi

tacnije poruka izgleda ovako

Run-Time error '53':
File not found

ako dodam tacnu putanju

Open "C:\proba\10.2009.07.xls" For Input As #ff

nista se ne desava, bez error-a

_{[Ovu poruku je menjao miki987 dana 10.07.2009. u 18:28 GMT+1]}

Odgovor na temu

miki987

Član broj: 208123
Poruke: 511
93.86.179.*

+5 Profil

Re: pocetnik-combobox+neka pojasnjenja

^{10.07.2009. u 22:27 - pre 180 meseci}

zasto se u svim kodovima na samom pocetku uvek ali samo kod mene nalazi ovo
Private Sub Command4_Click(Index As Integer)
dok je kod ostalih bez toga
mislim da mi pravi probleme...?
kako da iskljucim to?

Odgovor na temu

miki987

Član broj: 208123
Poruke: 511
79.101.174.*

+5 Profil

Re: pocetnik-combobox+neka pojasnjenja

^{30.07.2009. u 00:28 - pre 179 meseci}

Opet ja da ne bih otvarao novu temu
Aleksandre pitanje za tebe:
Sve ovo o cemu si mi pomagao uspeo sam da realizujem pa cak i usavrsim, sve je u najboljem redu,bas onako kako sam ja to zeleo, mejutim ne umem da uradim sledece stvari:

1.Kako u excelu upisivati celije svaki naredni put, odnosno , kako da mi vb proverava gde je stao sa upisom podataka od prosli put i nastavi dalje odnosno na prvo prazno polje i tako redom ..., da li je to moguce!?
2.Sledeca stvar koju bih da uradim a znam da je moguce cak imam i kod, dakle zeleo bih da excel koji napravim bude maksimalno zasticen sifrom ali kod koji imam ne funkcionise.Evo linka http://www.angelfire.com/biz7/julian_s/julian/julians_macros.htm Protecting all sheets
3.Kako da podatke iz recimo text1.text koji se nalazi na formi br.1 prebacim na formu br.2, dakle ne umem da ih povezem,kada u formu1 unesem nesto u taj text da mi se onda po aktiviranju forme 2 isti prikaze negde gde ja hocu,recimo text2.text
4.Kako da resetujem upisane vrednosti u okviru forme koja je aktivna a da ne gasim program, pokusavao sam sa refresh,reset ali ...
5.Napravio sam "program" na laptop-u koji ima manji monitor (15.6) za razliku od odstalih, i sada kada pokrenem na nekom drugom racunaru svi text boxovi, comboi i ostalo se ne "razvlace" tako da mi ceo program ispuni monitor vec mi sada stvara prazan prostor kojeg na manjim monitorima ne vidim!?
6.Da li je moguce u VB-u odraditi kod koji ce imati za zadatak davanje instrukcija nekoj masini stim sto ce svaka instrukcija biti vezana za vreme u sec. znaci, ja upisem vreme od recimo 5sec i toliko ce trajati neka instrukcija a posle isteka vremena da on sam nastavi na sledecu instrukciju u kome sam opet definisao trajanje recimo 6sec .Instrukcija koliko sam shvatio je vezana za impuls odnosno opciju 1 ili 0.Zeleo bih eksperimentisati malo sa tim pa ako imas neki dobar link koji se tice ovoga i slicnih stvari poput kreiranja programa preko rs232 usb i t.d.

Mozda sam dosadan ali me sve zivo zanima
Pozdrav i sve naj
Hvala

Odgovor na temu

[es] :: Visual Basic 6 :: pocetnik-combobox+neka pojasnjenja

[ Pregleda: 1844 | Odgovora: 14 ] > FB > Twit

Srodne teme

30.09.2006. Pomoć oko DBLookupComboBox
04.01.2007. Pojasnjenja za PDO?
25.10.2007. ComboBox i Query
09.12.2007. ComboBox readOnly
29.02.2008. [Excel] Kako da dodam hyperlink podatku u ComboBo..
16.03.2008. 2 kolone iz mySql tabele u ComboBox
04.06.2008. kako da selektovanjem radio buttona otkljucam com..
06.12.2008. Punjenje comboBoxa
09.12.2008. jQuery - jquery.combobox

Navigacija

Lista poslednjih: 16, 32, 64, 128 poruka.