Jump to content
PirateClub.hu

hajani

Veterán
  • Pontszám

    366
  • Csatlakozott

  • Utoljára itt járt

Minden tőle: hajani

  1. hajani

    jelszó? generátor

    windows.h szagot érzek
  2. hajani

    A Nagy Hadronütköztető Téma

    mikor is indulsz másik bolygóra?
  3. hajani

    Tetszik az új PirateClub?

    Az idézetek szövege nagyon halvány, úgyhogy így nehéz a híreket olvasni.
  4. hajani

    for ciklus problémák

    az std::vector-ra gondoltam (hogy ne csak 100-ig működjön)
  5. hajani

    C# fájlkezelés

    mert a beolvasás után az n értéke több lesz egyel, mint a tömbben tárolt "értelmes" (olyan, aminek az adatai be lettek olvasva) rekordok száma, és csak ennek az egy elemnek számolja ki az értékét
  6. hajani

    Mysql c# csatlakozás

    az atw nem biztos, hogy külső kapcsolatokat is elfogad az adatbázisához
  7. nem, mert ennek már honlapja is van
  8. szerintem ez lenne a legkisebb probléma egy jó alapos egészségügyi, pszichológiai vizsgálattal meg lehetne oldani ha igaz amit írnak, a kiképzés is nagyon sokáig tart, tehát már valószínűleg ott kiderül, ha valakinek még sincs kedve
  9. hajani

    C# Internet böngésző

    azért írja ki, mert a C# WebBrowser a telepített internet explorer-t ágyazza be a programodba ha nem akarod, keress egy másik böngésző komponenst
  10. és ehhez képest mennyi ember és állat/növény? ez csak úgy lett volna érdekes, ha azt is mellérajzolják egy gömbbe de egyébként ez a víz nem megy sehova egy darabig, nem fog elvándorolni a holdra légkörnek vagy ilyesmi, ugye? szóval akkor pár millió évig infinite-water-:trollfész: ? feltéve persze, ha nem szennyezzük be, vagy nem sózzuk meg kb. 3,5 tömegszázalékig (mert ugye az már használhatatlan értelmes kulturált emberi lények számára)
  11. hajani

    Fogsz venni 3D TV-t?

    kép alapján valahogy nem az igazi :< illetve a jobb oldali talpas rudat is meg kell venni hozzá?
  12. hajani

    Szöveges állományok kezelése

    mindenképpen "igen", bármilyen szöveges állományra megoldható ez
  13. hajani

    for ciklus problémák

    C vagy C++ nyelvről van szó? C++nál lehet célszerűbb lenne akkor vector-ban tárolni a számokat, C-nél meg realloc-al újrafoglalni a területet, ha túllépjük az adott elemszámot)
  14. hajani

    segítség c-ben

    int szam; do { std::cin >> szam; } while (szam <= 4);
  15. Ezek szerint, egy url-t kell "megnyitni" VB-ben? Imports System.Net Imports System.Text Imports System.IO Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim request As HttpWebRequest = WebRequest.Create("http://www.honlap.com/szkript.php") request.Timeout = 10000 Dim response As HttpWebResponse = Nothing Try response = request.GetResponse() REM olvasás utf-8 kódolással Dim reader As StreamReader = New StreamReader(response.GetResponseStream(), Encoding.UTF8) MessageBox.Show("Válasz: " & reader.ReadToEnd()) reader.Close() Catch exception As WebException MessageBox.Show("Hiba! " & exception.Message) End Try End Sub End Class
  16. igen, de azt is meg kellene nézned, hogy az adat mikor kerül elküldésre (függ attól, hogy milyen gyors a kapcsolat). (azt viszont nem tudom, hogy a winsock küldés függvénye "blokkolja"-e a program futását, de valahogy meg kellene nézni, mikor sikerült elküldeni) (ez az UnixTimeNow függvény megadja az 1970 óta eltelt másodpercek számát. eltárolod ezt az értéket küldés előtt és amikor sikeresen elküldte, kivonod, és megkapod, hogy hány másodpercig tartott a küldés)
  17. ilyen funkció szerintem nincs a winsock-ban, (MS VB 2008 Express-em van, abban nem találtam winsock component-et, de) ha le akarod mérni, akkor szerintem valami olyasmi kéne, hogy küldéskor tárolod a küldés időpontját másodpercben, és a winsock SendComplete event-ben lekérdezett másodpercekből kivonod. az elküldött byte-ok számát elosztod a küldés és idejével megkapod hogy hány byte/sec a sebesség, (ha elosztod az így kapott eredményt 1024-el, megkapod a kb/sec-ben a sebességet) (vagy elindítasz egy időzítőt a küldéskor, amikor elküldte leállítod) Public Function UnixTimeNow() As Long Dim TimeSpan As TimeSpan = DirectCast((DateTime.UtcNow - New DateTime(1970, 1, 1, 0, 0, 0)), TimeSpan) Return CLng(TimeSpan.TotalSeconds) End Function
  18. Public Function VeletlenKaraktersorozat(ByVal darab) As String Dim random As Random = New Random() Dim str As String = "" For i As Integer = 1 To darab str &= Chr(random.Next(65, 91)) Next Return str End Function egy karakter ha egy byte (mint most itt), akkor ha egy másodperc alatt elküldesz 1024-et, akkor 1kb/sec. a sebesség
  19. Select Case Int(Rnd() * 3) Case 0 MsgBox("egyik szín") Case 1 MsgBox("másik szín") Case 2 MsgBox("harmadik szín") End Select
  20. A form-ra autoscroll true, a panel meg akkor mint a kép. (jah és most nem kell a Form1_Paint és a Form1_MouseClick)
  21. Hozzáadsz egy panelt a formhoz (ebben lesz a kép), a form-on beállítod, hogy AutoScroll legyen True. Public Class Form1 Dim kep As Bitmap Private Sub Panel1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel1.Paint e.Graphics.DrawImage(kep, New Rectangle(0, 0, kep.Width, kep.Height)) End Sub Private Sub Panel1_MouseClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Panel1.MouseClick If e.X >= 0 And e.Y >= 0 And e.X < kep.Width And e.Y < kep.Height Then Dim szin As Color = kep.GetPixel(e.X, e.Y) MsgBox(szin.R & " " & szin.G & " " & szin.B) End If End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load ChangePic("C:\\kep.jpg") End Sub Private Sub ChangePic(ByVal eleresiUtvonal As String) kep = New Bitmap(eleresiUtvonal) Panel1.Size = New Size(kep.Width, kep.Height) Me.Refresh() End Sub End Class
  22. valami ilyesmi módon lehetne: kep = New Bitmap("C:\\kep2.jpg") Form1.Refresh()
  23. Public Class Form1 Dim kep As New Bitmap("C:\\kep.jpg") Private Sub Form1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint e.Graphics.DrawImage(kep, New Rectangle(0, 0, kep.Width, kep.Height)) End Sub Private Sub Form1_MouseClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseClick If e.X >= 0 And e.Y >= 0 And e.X < kep.Width And e.Y < kep.Height Then Dim szin As Color = kep.GetPixel(e.X, e.Y) MsgBox("R: " & szin.R & ", G: " & szin.G & ", B: " & szin.B) End If End Sub End Class
  24. Config-nál a sound setup-ban lehet olyat megcsinálni, (output résznél) hogy a master a front kimenet (zöld) a fejhallgató meg a hátsó hangszóró kimenet (fekete).
×
×
  • Create New...