- D1Rect: Nagy "hülyétkapokazapróktól" topik
- lezso6: Nem látszik a kurzor Chrome alatt a beviteli mezőkben?
- vrob: Az IBM PC és a játékok a 80-as években
- eBay-es kütyük kis pénzért
- hdanesz: Elektromos autózás - első élmények
- Luck Dragon: Asszociációs játék. :)
- Lalikiraly: SÜNI energiaital.
- zebra_hun: Hűthető e kulturáltan a Raptor Lake léghűtővel a kánikulában?
- Gurulunk, WAZE?!
- sziku69: Fűzzük össze a szavakat :)
Új hozzászólás Aktív témák
-
#1081
[HUN]Zolee
őstag
[HUN]Zolee
#1080
[HUN]Zolee
őstag
válasz
[HUN]Zolee
#1080
üzenetére
Megoldottam. Hiba: Az átadást arra a formra kell írni amelyiken az átadást kezdeményező esemény található.
-
#1080
[HUN]Zolee
őstag
[HUN]Zolee
őstag
Meg tudja valaki mondani, miért nem viszi át a textbox tartalmát, csak amit alapértelmezetten írok be? [link]
-
#1079
[HUN]Zolee
őstag
[HUN]Zolee
őstag
Üdv.
hogy lehet egy új objektumnak aminek a nevét egy tömbbe tároljuk eseménykezelést csinálni?
-
#1004
[HUN]Zolee
őstag
KrAt
#1003
[HUN]Zolee
őstag
Azért nem jó ez így, mert egyik feltétel sem kapcsolódik a másikhoz.
If x2.TextLength = 0 or x.TextLength = 0 or cons.TextLength=0 Then
adathiany.Show()
else {
If x2.Text = 0 Then
x2biztos.Show()
x2igen.Show()
End If
If x.Text = 0 Then
xbiztos.Show()
xigen.Show()
End If
If cons.Text = 0 Then
consbiztos.Show()
consigen.Show()
End If
}
End IfValahogy így kellene kinézni, de én már régóta nem programoztam VB-ben
-
#919
[HUN]Zolee
őstag
[HUN]Zolee
őstag
Üdv.
Hogy tudok egy függvénynek megadni egy 2 dimenziós tömböt /egyszerre az egészet/ , majd a függvény értéke is egy tömb legyen?
Function fuggv (x(,)) As Array (,)
műveletek
End Function
Public Sub main()
Dim a(2,2) as Integer
a(,)=fuggv(a(,))
End Subvalami ilyesmi kellene hogy legyen, de nem tudom pontosan.
-
#843
[HUN]Zolee
őstag
KissTboy
#842
-
#840
[HUN]Zolee
őstag
KissTboy
#838
[HUN]Zolee
őstag
válasz
KissTboy
#838
üzenetére
nah elővettem a könyvet és találtam egy ilyen pédát pont erre, hogy csak számokat lehetsen beírni:
Private Sub TextBox1_KeyPress(ByVal sender As Object, _
ByVal e As System.Windows.Forms.KeyPressEventArgs) _
Handles TExtbox1.KeyPress
If (e.KeyChar < ''0'' Or e.KeyChar > ''9'') Then
e.Handled=True
End If
End Sub
Ha így nem íródna be, akkor meg az e.Handled=True -t cseréld ki erre TextBox1.Text=TextBox.Text+e.KeyChar
Remélem érthető volt
bár itt csak számokat lehet beírni! De kibővíteni nem olyan nehéz -
#836
[HUN]Zolee
őstag
sonar
#835
[HUN]Zolee
őstag
én meg még a pontal meg a deletével is kiegészíteném a tiedet, hogy teljes legyen a sor.
Amúgy 6-ba írtam számológépet. Ott asszem úgy csináltam, hogy zároltam a textboxot, és a gomb lenyomás eseméynre írtam meg az elágazást, hogy csak a megadott karaktereknél írja hozzá a karaktereket. Bár ez nem biztos hogy jó neki, de egy kipróbált módszer -
#798
[HUN]Zolee
őstag
Polyák
#794
[HUN]Zolee
őstag
úgy a legegyszerűbb megoldani, hogy letárolod az eddíg generált számokat, és mindíg amikor generálja az új számot, akkor megnézed, hogy volt-e már ilyen szám, ha volt akkor újrageneráltatsz vele egy számot, mindaddíg amíg olyan számot nem ad, ami még nem volt.
igaz ez rengeteg számolást igényel a gép részéről, de nem hiszem hogy olyan hosszú szavakat fogsz használni, ami észrevehetően lassan állítana elő.
amúgy a VB7 elég sokmindenbe kölünbözik, bár itt csak az elméletről beszélünk, szóval ha tudod a megfelelő parancsokat, akkor ugyan úgy megoldható abba is -
#793
[HUN]Zolee
őstag
Polyák
#792
[HUN]Zolee
őstag
-
#745
[HUN]Zolee
őstag
Polyák
#744
[HUN]Zolee
őstag
7 be így néz ki
Dim elemek(3) As Object
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
elemek(1) = Label1
elemek(2) = Button1
elemek(3) = TextBox1
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If elemek(1).text = ''AK'' Then
elemek(1).text = ''ASdf''
elemek(2).text = ''Gomb''
elemek(3).text = ''Doboz''
End If
End Sub
ez csak az hogy hogyan gondoltam, a ciklus meg a beolvasás nincs benne, de gondolom az menni fog
(7 be a label nek caption helyett text-je van már.)
[Szerkesztve] -
#743
[HUN]Zolee
őstag
Polyák
#742
[HUN]Zolee
őstag
Üdv. pl egy jó megoldás, ha minden egyes objektumot beleszórsz egy nagy tömbbe beleteszed az összes objektumot, és akkor a beolvasott fáljban lévő neveket könnyen át lehet állítani
objektumok : object
beolvasás :
nyelv(X,2) : szöveg
ciklus eof(file)
i+=1
nyelv(1,1)=cimkenév
nyelv(1,2)=magyar szöveg
ciklus vége
magyarítás:
for i=1 to X
for j=1 to X
ha objektumok(i)=nyelv(j,1) akkor
objektumok(i).text/value = nyelv(j,2)
elágazás vége
ciklus vége
ciklus vége
asszem ennyi az elméletem
remélem érted.
7 be működik, 6 om nincs fent
[Szerkesztve] -
#738
[HUN]Zolee
őstag
[HUN]Zolee
őstag
van egy ilyen típusu tömböm :
Structure ttipus
Dim id As Integer
Dim nev As String
Dim aber As Integer
Dim tber As Integer
Dim tszam As Integer
End Structure
ezt hogy tudom fáljba menteni, és visszaolvasni?
VB 7 be kell megoldani.
[Szerkesztve] -
#735
[HUN]Zolee
őstag
Polyák
#734
[HUN]Zolee
őstag
Ezt úgyoldottam meg, hogy egy poligont rajzoltatok ki mindíg ,csa hozzáveszem az új képpontot.
VB7 be kb így néz ki :
e = egér esemény
korivp1 = a pontokat tartalmazó tömb, amelynek elemszam nagyságú
Dim p As New Point(e.X, e.Y)
pont = p
korok()
ReDim Preserve korivp1(elemszam)
korivp1(elemszam) = p
elemszam += 1
g.DrawArc(pens.Red,
volt = True
If elemszam >= 2 Then
g.DrawLines(Pens.Red, korivp1)
End If -
#696
[HUN]Zolee
őstag
Apollo17hu
#695
[HUN]Zolee
őstag
válasz
Apollo17hu
#695
üzenetére
mi volt a hibaüzenet, és mi volt a feltételed?
-
#692
[HUN]Zolee
őstag
Apollo17hu
#691
[HUN]Zolee
őstag
válasz
Apollo17hu
#691
üzenetére
ha mindkét feltátelnek telejesülnie kell, akkor And el kapcsolod össze, ha csak az egyiknek akkor Or -al.
-
#565
[HUN]Zolee
őstag
sonar
#564
[HUN]Zolee
őstag
Azt megutdod csinálni, hogy a beírt szöveget az aktuális dátum legyen a neve? A betöltésnél meg egy openfiledialog-jönne fel ahol kiválaszthatnám hogy melyik file-t akarom megnyitni. Ha így nemmegy(mármint az openfiledialog, a dátumnév nem fontos), akkor írja mindíg felül az aktuális file-t.
-
#509
[HUN]Zolee
őstag
[HUN]Zolee
őstag
Ha valaki megírna nekem egy kis progit VB6 ban azt megköszönném, 7-be megírtam, megy is nálam, csak .NET kell hozzá, és akinek írtam nála nem lehetséges a telepítés. 367 soros a program ebből 122 a objektumok. Egy akasztófa programról van szó.
-
#492
[HUN]Zolee
őstag
Gh0sT
#491
-
#443
[HUN]Zolee
őstag
matekmatika
#441
[HUN]Zolee
őstag
válasz
matekmatika
#441
üzenetére
mingyárt megnézem neked ezt a fügvényt
vagyis amint megjöttem este a melóból
[Szerkesztve] -
#442
[HUN]Zolee
őstag
-Gábor-
#440
-
#394
[HUN]Zolee
őstag
[HUN]Zolee
őstag
hány oszlop :
Sub mennyi_van_kitoltve_a()
Worksheets(''Munka1'').Select
Db = 0
If [a1].Value = '''' Then
Db = 0
Else
If [a2].Value = '''' Then
Db = 1
Else
For Each cella In Range([a1], [a1].End(xlToRight))
Db = Db + 1
Next
End If
End If -
#393
[HUN]Zolee
őstag
MartinIsti
#392
[HUN]Zolee
őstag
válasz
MartinIsti
#392
üzenetére
az első kérdésre, mingyárt megírom a macrot
a második engem is érdekelne
Hány cella van egy oszlopba :
Sub mennyi_van_kitoltve()
Worksheets(''Munka1'').Select
Db = 0
If [A1].Value = '''' Then
Db = 0
Else
If [A2].Value = '''' Then
Db = 1
Else
For Each cella In Range([A1], [A1].End(xlDown))
Db = Db + 1
Next
End If
End If
ActiveCell.Value = Db
End Sub
[Szerkesztve] -
#377
[HUN]Zolee
őstag
[HUN]Zolee
őstag
Hogy lehet hexa kódvól szöveget csinálni?
-
#369
[HUN]Zolee
őstag
[HUN]Zolee
őstag
Hogy lehet új objektumot adni a VB . NET be kódbol ? ( most egy PictureBox-ot kéne hozzadni). Nem sikerült még rájönnöm
-
#319
[HUN]Zolee
őstag
Jester01
#318
[HUN]Zolee
őstag
-
#315
[HUN]Zolee
őstag
Jester01
#314
[HUN]Zolee
őstag
válasz
Jester01
#314
üzenetére
op(i) az a szakasz végpontjai, vagyis e közül kerül ki a kör középpontja.
alappont az a 0°os körívnél lévő pont![[kép]](http://vazsonykom.hu/~magasi/rajz4.JPG "[kép]")
fixp az a kezeti pont ahonnan indítjuk a köríavet
vp az a változó pont, ami mindíg az aktiális egérelmozdulási értéket kapja meg (ez még nincs kész)
és a i=kpont(fixp.X,fixp.Y) kell. töbszem többet lát
[Szerkesztve] -
#307
[HUN]Zolee
őstag
[HUN]Zolee
őstag
Segítséget kérnék a hiba mivoltáról.
Valami túlcsordul, csak nemtom mi :S
[link] -
#303
[HUN]Zolee
őstag
[HUN]Zolee
őstag
Hogy tom felvinni a cosinusztételt beírni VB.be, hogyha a szög az ismeretlen?
alfa = cos^ -1 (a^2+b^2-c^2)
nem 10 hanem 13 , de mindegy, ugaz én textboxnál ellenőriztem.
![[kép]](http://vazsonykom.hu/~magasi/rajz3.JPG "[kép]")
Új hozzászólás Aktív témák
Hirdetés
- Autós topik látogatók beszélgetős, offolós topikja
- Filmvilág
- Vegyszerek, permetezés, Élettani hatások
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- DUNE médialejátszók topicja
- Milyen routert?
- Path of Exile (ARPG)
- Hobby elektronika
- Audi, Cupra, Seat, Skoda, Volkswagen topik
- Spórolós topik
- További aktív témák...
- UF Lenovo Yoga 9i x360 Érintős Hajtogatós Laptop Tab 14" -60% i7-1360P 16/1TB Iris Xe 2,8K OLED 90Hz
- Lenovo Yoga 9i x360 Érintős Hajtogatós Laptop Tab 14" -60% i7-1260P 16/512 Iris Xe 2,8K OLED 90Hz
- Új DELL Inspiron 16 Fémházas Multimédiás Laptop 16" -40% Ryzen 7 8840U 8mag 16/1TB FHD+ IPS
- Új DELL Inspiron 16 Fémházas Multimédiás Laptop 16" -40% Ryzen 7 8840U 8mag 16/1TB FHD+ IPS
- Sony FE 28-70 mm F3.5-5.6 OSS
- Telefon felvásárlás!! Samsung Galaxy S23/Samsung Galaxy S23+/Samsung Galaxy S23 Ultra
- Samsung Galaxy A13 64GB, Kártyafüggetlen, 1 Év Garanciával
- Csere-Beszámítás! Asus Számítógép PC Játékra! R5 1600X / GTX 1080 8GB / 32GB DDR4 / 256SSD + 2TB HDD
- AKCIÓ! Gigabyte H610M i5 13600K 16GB DDR4 512GB SSD RTX 3060Ti 8GB Zalman S2 TG Seasonic 650W
- ÁRGARANCIA! Épített KomPhone i5 13400F 32/64GB RAM RX 7700 XT 12GB GAMER PC termékbeszámítással
Állásajánlatok
Cég: CAMERA-PRO Hungary Kft
Város: Budapest
Cég: Liszt Ferenc Zeneművészeti Egyetem
Város: Budapest