Ú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
- PROHARDVER! feedback: bugok, problémák, ötletek
- Autós topik
- Audi, Cupra, Seat, Skoda, Volkswagen topik
- Kormányok / autós szimulátorok topikja
- Megjelent a Poco F7, eurós ára is van már
- Milyen videókártyát?
- WoW avagy World of Warcraft -=MMORPG=-
- sh4d0w: Palpatine - A Terv
- Eurós árlista a Google Pixel 10 telefonokhoz
- Kerékpárosok, bringások ide!
- További aktív témák...
- ÁRGARANCIA!Épített KomPhone Ryzen 5 5600X 16/32/64GB RAM RX 9060 XT 8GB GAMER PC termékbeszámítással
- Telefon felvásárlás!! iPhone 16/iPhone 16 Plus/iPhone 16 Pro/iPhone 16 Pro Max
- ÁRGARANCIA!Épített KomPhone i5 13400F 16/32/64GB RAM RTX 5070 12GB GAMER PC termékbeszámítással
- BESZÁMÍTÁS! Asus B760M i7 12700KF 32GB DDR4 512GB SSD RX 6800 16GB Rampage SHIVA FSP 700W
- BESZÁMÍTÁS! MSI B450 R5 5500 16GB DDR4 512GB SSD RTX 2060 Super 8GB SilentiumPC Signum SG1V TT 500W
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest