- Apple MacBook
- Harmadával megvághatja a Switch 2 gyártását a Nintendo
- AMD Ryzen 9 / 7 / 5 9***(X) "Zen 5" (AM5)
- Házimozi belépő szinten
- Milyen billentyűzetet vegyek?
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- Androidos tablet topic
- Imádja a gyors mozgásokat az új FidelityFX SDK
- Androidos fejegységek
- Bambu Lab 3D nyomtatók
Ú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
- Apple MacBook
- Mibe tegyem a megtakarításaimat?
- Visszatérhet a csepp notch és a 90 Hz
- Harmadával megvághatja a Switch 2 gyártását a Nintendo
- Tőzsde és gazdaság
- PlayStation 3
- Szeged és környéke adok-veszek-beszélgetek
- Crimson Desert
- BestBuy topik
- AMD Ryzen 9 / 7 / 5 9***(X) "Zen 5" (AM5)
- További aktív témák...
- HyperX Predator 2x8GB 3200mhz DDR4 ram CL 16 !!!! - RGB !!!!
- IdeaPad 3 15ARH05 15.6" FHD IPS Ryzen 5 4600H GTX 1650 16GB 512GB NVMe magyar vbill gar
- i7-8700K / ASUS Z370-E / GTX 1080 Ti komplett gép
- PNY GeForce RTX 4070 Ti SUPER 16GB XLR8 Gaming VERTO EPIC-X RGB
- Samsung Galaxy S25 eladó, független, garanciális (ses.hu, 2028 júniusig)
- Apple Watch Series 10 46mm GPS+Cellular Titanium, Újszerű, 1 Év Garanciával
- Telefon szerviz helyben - Gyors javítás, akár 30 perc alatt!
- Telefon felvásárlás!! iPhone 13 Mini/iPhone 13/iPhone 13 Pro/iPhone 13 Pro Max
- 16gb (2x8gb) Micron DDR5 SODIMM 4800 Mhz RAM
- Acer Predator Gamer PC! i7-14700F / RTX 4070 Super / 32GB DDR5 / 1TB NVMe!
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest