пак въпрос

Дано не стана нахален ако ви попитам как да изброя колко еденици, двойки или тройки има в един низ? Пробвах с цикъл и вграден цикъл и т.н., но не се получава. Ако не ви мързи кажете нещо...
Просто искам да се изброят например едениците в низа "23112541941" и след това техния брой да присвоя на променлива а , в случая а ще е равно на 4, защото има 4 еденици... та това искам да направя колкото и да е тъпо...

И още нещо. Дайте някакъв съвет за да направя менютата си по-различни. Имат много стандартен майкрософтски вид сякаш правя счетоводна програма, искам да изглеждат по-различно... Скиновете на които се натъкнах не вършат много работа...

()

dim x(9) 'broim cifrite

duma$ = "7461874517285" 'ili prez inputbox ili txt-pole

for i = 1 to len(duma$) 'obikalq bukvite
... for j=0 to 9 'obikalq cifrite
.... if val(mid(duma$,i,1))= j then x(j)=x(j)+1
... next j
next i

'trebva da stane :)

някой тук преди време беше пуснал линк към един безплатен контрол за Меню - беше доста добър :) ама не знам де съм го закътал на компа...
мисля че е добре да се качват подобни линкове в една от главните теми ;)

Ами аз бях пускал инфо за "SmartMenuXP", което е доста раздвижено, и се работи лесно с него.

Качил съм го на файловия си сървър: [линк]

Ако е забил сървъра - пробвайте пак, понякога го прави, но нямам време за преинсталация. ;о)


Щирлиц

за сървари я да те питам нещо.
в залата главния комп е с Уиндоус 2003 сървър - та той си стои нон стоп пуснат по изискване на образованието. Казаха ни отгоре обаче да не правим инсталации върху него, но на мен ми трябва бейсик 6 ;)
Копирах папката на една инсталация от XP (от един съседен комп), разбира се не съм очаквал да тръгне от воле, но по метода на опити и изчистване на грешки се надявам да го оправя :)

като за начало каза, че не открива библиотека DAO350.dll но като я копнах на същото място и пак ми дава че липсва. (на същото място изглежда, че има дори по-нова защото е DAO360 :)
не се сетих да я регистрирам с mserv (или какво беше там), но и това ще направя утре. Притеснявам се, че ще се окажат и твърде много файлове за копиране един по един :)
Как мислиш - дали има сериозна опасност дори и след като прекопирам библиотеките и контролите на сървъра - пак да не тръгне?
Има ли опасност да се използват Уиндоуски функции които ги няма в тази версия на Уиндоуса или просто да са модифицирани така че да не са съвместими. И трябва ли някъде да се създадат референции към копираните файловете за да бъдат използваеми?

имам и едно саморазархивиращо се exe VBRUN, което съм сигурен че знаеш - ако го пусна него дали може с нещо да помогне

Sorry za latinicata, no sym na chujd komp.

Ta kato kazvash "glavnia kompiutar" - toi prosto si stoi tam, ili e server?

Ne preporachvam da se praviat kakvito i da bilo kopirania na files bez chovek da znae za kakvo ide rech. E, bi moglo da se registrirat bibliotekite i kontrolite s regsvr32 blahblah.dll i t.n., no tova ne pravi instalacia.

Ako ti triabva VB6 - si instalirai Visual Studio 6.0. A ako ne vi razreshavat da instalirate - pokaji im kombinacia ot tri prysta s nabliagane na srednia, i si nameri drug kompiutar. Zashtoto "seriozna opasnost" da ne tragne s kopirane - niama. To prosto niama da tragne. Prekaleno mnogo sa neshtata, koito triabva da se zapishat v Registry, za da raboti VB6, i tova ne stava na raka. Edin Windows ne triabva da se bazika taka s kopirane na files, a triabva da se pazi chist, i da se podbirat vnimatelno instalacii, za da ne se skape vednaga. I vaobshte za kaki nebesni krastavici govorish, che kopirash files ot XP kym 2003?

DAO 3.5 ne moje da zamesti DAO 3.6, kakto i obratnoto. Az naprimer pravih programa s references DAO 3.5, kompilirah, i direktno se opitah da pusna EXE-to pod XP. Ne trygna poradi lipsa na DLL. Prekompilirah s popravena references s DAO 3.6, i vednaga tragna. Prosto tova, koeto pishesh v programata si na VB - triabva ili da go ima v Windows, ili da go prilagash kam distribuciata na programata si. T.e. tova vaji i za Runtime bibliotekata za VB6 - msvbvm60.dll. Tova si go ima v XP, no za po-stari versii na Windows - mojesh da instalirash 1020 kb exe vbrun60sp5.exe.

Izobshto - kartinkata e iasna. Koeto si iska - to si saka. ;o) Ne mojesh da "takovash" diavola vav vazduha, triabva si instalacia.


Щирлиц

ХАХАХА, Щирлиц, ти не го разбираш човека, защото не си свикнал с нашите образователни абсурди... Той вероятно е системен администратор на залата, но няма всъщност администраторски акаунт нито за сървъра, нито за работните станции... По принцип акаунта ЕДИКАКВОСИAdmin, който има в домейна е достатъчен за да инсталира на работните станции, но не и на сървъра (то и те не са всъщност точно работни станции...). Администраторския акаунт го използват само от така наречения Контролен център. Но те не му забраняват да да инсталира конкретно Visual Basic. Просто предпочитат те да правят всички инсталации...

violet, Щирлиц е съвсем прав - не можеш да подкараш Visual Studio с копиране. А защо държиш да е на сървъра под Windows Server 2003? Можеш да го инсталираш на останалите. Ако все пак се налага, моя съвет е да пробваш да се разбереш с момчетата от контролния център. На нас ни се наложи да инсталираме няколко неща и просто го направихме с разрешение от тяхна страна. Обади се на телефона на центъра.

don't trouble the trouble until the trouble troubles you!

Probvai tova, moze da ti svurshi rabota. Ne sum go testval, zashtoto na tova PC na koeto sum v momenta njama Basic:

  Public Sub GetNumber(ByVal Numb As String, ByVal L As Long)

    Dim i As Long

    Dim j As Long	'Na j se prisvojava broja na L v niza Numb

      j = 0

        For i = 1 To Len(Numb)

          if Val(Mid$(Numb, i, 1)) = L Then

            j = j + 1

          End If

        Next i

        

       'Tuk pishesh kod koito polzva chisloto j koeto e broja na L v stringa Numb



  End Sub