hajani

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)

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

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

A kiszolgáló nem található-nál profibb az biztos

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

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)

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

valami ilyesmi módon lehetne:

kep = New Bitmap("C:\\kep2.jpg")
Form1.Refresh()

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

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).

ha például az index.php itt található:

http://oldalad.hu/honlap/index.php

és ezen az oldalon vagy:

http://oldalad.hu/honlap/kategoria1/kategoria.php

akkor egy ilyen linket kell raknod:

<a href="../index.php">
egy szinttel fel az index.php-hoz!
</a>

(remélem jól értettem a kérdést )

pl. gombra kattintáskor:

new aboutbox1().Show();

tud valaki olyat, hogy a hardveres hang gyorsítást kikapcsolja?

(erre gondolok:

vezérlőpult -> hangok és audioeszközök -> audió -> hanglejátszás résznél: speciális... -> teljesítmény fül -> hardvergyorsítás -> nincs)

(lehet, hogy ezt csak simán registry módosítással meg lehet csinálni?)

ha valakinek van erre ötlete és leírja azt megköszönném

de az Olly Debugger nem hex editor, hanem debugger

http://en.wikipedia.org/wiki/OllyDbg

Public Class Form1
    Private Sub kijeloltekTorlese()
        For i As Integer = ListBox1.SelectedIndices.Count - 1 To 0 Step -1
            ListBox1.Items.RemoveAt(ListBox1.SelectedIndices.Item(i))
        Next
    End Sub

    Private Sub ListBox1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles ListBox1.KeyUp
        If (e.KeyCode = Keys.Delete) Then
            kijeloltekTorlese()
        End If
    End Sub
End Class

Üdv!

Szerintetek melyiket lenne érdemes megvenni? (nem muszáj ezek közül de ár az kb 70-80e, nem lenne rossz benne bluetooth, wifi, (gps), 2-3 vagy több megapixeles kamera (fényképező ))

Ilyenekre gondolok: (symbian-os vagy windows mobile-s nem lenne rossz, nem tudom mi a vélemény róla)

Samsung GT-S8000, Samsung SGH-I900, (Sony Ericsson W960i), Samsung SGH-i8510, (SonyEricsson XPERIA X1)

Nem tudom, erre gondoltál-e, de:

Public Class Form1
    Private Sub panelBitmapba()
        Dim panelBitmap As New Bitmap(Panel1.Width, Panel1.Height)
        Panel1.DrawToBitmap(panelBitmap, New Rectangle(0, 0, Panel1.Width, Panel1.Height))
        panelBitmap.Save("C:\\fajlnev.png")
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        panelBitmapba()
    End Sub
End Class

Public Class Form1
    Private Sub LoadFile()
        Dim reader As New IO.StreamReader("c:\szovegfile.txt")
        Dim sor As String = ""
        Dim sorok As Integer = 0
        ListBox1.Items.Clear()
        Do
            sor = reader.ReadLine()
            If Not sor Is Nothing Then
                ListBox1.Items.Add(sor)
                sorok = sorok + 1
            End If
        Loop Until sor Is Nothing
        ListBox1.Items.Add("Összesen ez " & ListBox1.Items.Count & " ami ugyanannyi mint " & sorok)
        reader.Close()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        LoadFile()
    End Sub
End Class

Üdv!

Azt szeretném kérdezni, hogy hogyan lehetne a lehető legegyszerűbben fájlt beolvasni pascal-ban?

Pl. szöveges fájlban számok szóközzel elválasztva...

Én úgy csinálnám, hogy beolvasom soronként és val-lal meg copy-val számokká alakítom.

De ez elég hosszadalmas, nincs erre valami egyszerűbb módszer? :S

a php.net -en néztem a header leírását, ott írnak egy ilyen scriptet:

<?php
$file = 'http://aprojectoldala.hu/Lost.S05E15.HDTV.XviD-NoTV---linkelte_jozsii_a_pirateclub.hu_szamara';
header('Content-Description: File Transfer');
header('Content-Type: application/octet-stream');
header('Content-Disposition: attachment; filename='.basename($file));
header('Content-Transfer-Encoding: binary');
header('Expires: 0');
header('Cache-Control: must-revalidate, post-check=0, pre-check=0');
header('Pragma: public');
header('Content-Length: unknown');
ob_clean();
flush();
readfile($file);
exit;
?>

de nem tudom mennyire célszerű ezt alkalmazni, hogy minden esetben használható-e a redfile és hogy hogyan lehetne meghatározni a fájl méretét a fájl letöltése nélkül

<html>
<head>
<script>
function checkLogin() {
if (document.getElementById('id').value === 'Admin' && 
	document.getElementById('pass').value === '1234' ) {
	alert('logged in');
} else {
	alert('failed');
}
}
</script>
</head>
<body>
<form onsubmit="checkLogin(); return false;">
<p>Username: <input id="id" name="id" type="text"></p>
<p>Password: <input id="pass" name="pass" type="password"></p>
<p><input type="submit" value="Login"></p>
</form>
</body>
</html>

Köszi! Pont ilyenekre gondoltam!

Nagyobbak jöhetnek még

Valaki tudna készíteni/belinkelni/feltölteni olyan képet (vagy inkább animációt) ami olyan mint pl.: a winamp/media player képi megjelenítése (az ami zenére mozog).

Esetleg olyat amin olyan csíkok ugrálnak.

(Természetesen nem úgy hogy egy adott zenére kell megcsinálni )

Előre is köszi!

1x 500GB és 2x 150GB

$feher = imagecolorallocate($image,0,0,0);

Ez fekete lesz