Hi Coders!

Visual Basic-ben (VB6) hogyan lehet esemenyt hozzarendelni
(programozni) a form fejlecen levo 'Kis meret', 'Teljes meret' es a
'Bezaras' gombokhoz? Esetleg API-n keresztul lehet megoldani
problemat? Hogy?
Pl. Ha a felhasznalo raklikkel a 'Bezaras' ikonra jelenitsen meg egy
Msgbox-ot.
-------------------
Mas:
Megoldhato-e VB-ben az, hogy leforditott exe-ben legyen benne egy wav
file s ne kulon filekent az exe mellett? Tehat belefordithato-e?

                                Best regards
                                                            Brian

Szoval elkeszitettem egy WEB oldalt es akarnak egy "Vendegkony" reszt
is bele tenni, de a problema az hogy hogyan todok allomanyokat
kezelni, vagy esteleg adatokat elmennteni ???
Meg azt sem tudtam megcsinalni hogy szamolya hogy hanny latogato volt
az oldalamon !
Elore is koszi !       cimeme: 
Szisztok !

- felveszel 1 plusz mezot/tablat, es abban tarolod a szigoruan novekvo
sorszamot, mivel a sequence-re csak egyediseg van eloirva, kihagyas
nelkuliseg pedig nem igazan megvalosithato (pedig jo lenne :)

1.
A tabla kulcs_mezo, sorszam
B tabla kulcs_mezo
K tabla "A tabla", max(sorszam)
//K tabla esetleg csak 1 rekordbol all (ekkor nincs "A tabla" mezoje sem),
es a sorszam megadasa SQL motortol fugg

2.
A tabla kulcs_mezo
B tabla kulcs_mezo
C tabla "tabla_azon", sorszam, A tabla kulcs_mezo-je
//Esetleg K tabla, mint fent

Udv: Tibor

<2001. aprilis 18. 19:21>
Hello!

Oracle7 gurukhoz kerdes: adott ket boszme nagy tabla, mindkettoben
tizmillios tetelszam (letezo, valos pelda). A ket tablat egy kulcs
kapcsolja ossze, egy egyszeru, egyedi termekszam. Az egyik tablaban az
osszes, valaha legyartott termek benne van minden adataval (kb. harom
evre visszamenoleg). A masikban azok a termekek szerepelnek csak,
amelyek valamilyen bizonylatra ki is kerultek. Nos, nekem a ket tabla
kulonbsege kellene (azaz azok a termekek, amelyek semmilyen
bizonylaton nem szerepelnek), de minel gyorsabb metodussal. Sem a
"select... minus select...", sem a "...not in..." nem valt be,
kivarhatatlan hosszu ideig tartanak es kifektetik a szervert (P-II
266, 512 MB, SCSI diszkek). Van-e valamilyen egyeb megoldasi javaslat?

/--- Greetz, Toth Peter / Petrus ------------[ICQ: 83284680]--\

Sziasztok.

Szeretnem a szamitogep orajat az internetrol beallitani, egy
timeserverrol, pl. tock.usno.navy.mil VB-ben ez igy nezne ki.
winsock1.Remotehost="tock.usno.navy.mil"
winsock1.remoteport = 13
winsock1.connect
ha adat erkezik MsgBox adat
Amikor megprobalok hozzakapcsolodni a serverhez a 13-as porton, a
szerver bontja a kapcsolatot es visszakuldi a pontos idot.
Ez igy kellene mukodjon de sajnos nem megy. Nekem az oprendszerem
win2000. Regebben sokat buheraltam a halozati reszet mas ugyben es
akkor ment, most hogy ujbol telepitettem a windows most mar nem megy,
de nem megy win95, es win98-as gepen sem.
Valaki tudna nekem segiteni?
Elore is kosz szepen, es ha lehet maganba is.

> =======================================================
> Felado :  [Hungary]
> Temakor: Vallalkozoi adoszam ellenorzes ( 8 sor )
> Idopont: Tue Apr 17 08:03:14 CEST 2001 CODER #1150
> - - - - - - - - - - - - - - - - - - - - - - - - - - - -
> 
> Szevasztok!
Szia!
> 
> Ismeri valaki a vallalkozoi adoszam ellenorzesenek kepletet? A cd
> jogtarban idaig az ado azonosito jel, tajszam, szemelyi szam
> kepletet talaltam meg.

Az elso pozicio 1,2,4,5,6 es 7 lehet.
A kilencedik pozicio 1 es 2 lehet.
A tiz-tizenegy poicio 01 - 44 es 51 lehet.

Az elso pozicion levo szamjegyet 9-el,
a masodikon levot 7-el, a 3. at 3-al, a 4. 1-el,
az 5. 9-el, a 6. 7-el, a 7. 3-al megszorzod. A
szorzatokat osszeadod, elosztod 10-el, a maradekot
kivonod 10-bol es ennek kell lennie a 8. pozicion. 


Pelda:

adosz.    szorzo     szorzat
  2          9          18
  8          7          56
  6          3          18
  9          1           9
  9          9          81
  6          7          42
  8          3          24
  2                    ----
  4                    248
  1

248 mod 10 = 8   10-8= 2 


Remelem erthetoen irtam.

Ez 1996-ban igy volt. Lehet, hogy valtozott azota valami, tehat azert
nezz meg utana!


Udv! kg

Ps.:Ugy emlekszem, hogy en is a jogtarban (Complex) talaltam ra anno.

Hello!

Ha jol tudom, szimulalnod kell a keverest, kulonben nem biztos, hogy
kirakhato lesz.

foster

Function AdoSzamEll(Szam)

  Local Tomb:={9,7,3,1,9,7,3}
  Local I,Sz

  Ok:=(Left(Szam,1)$'12457') .And. (SubStr(Szam,9,1)$'12') .And.;
      (((Right(Szam,2)>='01') .And. (Right(Szam,2)<='40')) .Or.;
      (Right(Szam,2)=='51'))
  If Ok
    Sz:=0
    For I:=1 To 7
      Sz+=Val(SubStr(Szam,I,1))*Tomb[I]
    EndFor
    Ok:=(Val(SubStr(Szam,8,1))==(10-(Sz % 10))%10)
  EndIf
  If .Not. Ok
    Msg('Hibas adoszam')
  EndIf
  Return Ok

Clipperben ezt az algoritmust hasznaltam, nem kaptam visszajelzest,
hogy nem minden esetben jo. Ha megsem, bocs.

Toth Peter

Sziasztok!

Valoban nem lehet mindig kirakni, azonban a legegyszerubb, ha paros
szamu cseret vegzel az elemek kozott, persze ugyelve arra, hogy ket
elem tobbszor ne csereljen helyet. Ekkor mindig olyan kombinaciot
fogsz kapni, ami kirakhato.
Udv:
-sz-

Sziasztok,

Koszonet mindenkinek aki ragalt a keresre. 
Kulonosen aoknak akik olyan gyorsan voltak. :)

Kicsit kestem a koszonettel, le voltam maradva a levelk olvasasaval.
Kicsit megontottek parezer levellel.

Tovabbi jo munkat.
-- 
Alex.
E-mail: mailto:
PGP fingerprint: 8788 A44C 6257 5927 DDDC  C97C 5A43 58DB 8F15 49C8