Τρίτη 13 Ιουλίου 2010

Πυροσβεστικο Σωμα απο twitter

Το Πυροσβεστικό είναι το δεύτερο Σώμα Ασφαλείας που χρησιμοποιεί twitter, μετά το πετυχημένο παράδειγμα της Ελληνικής Αστυνομίας.

Tο Πυροσβεστικό Σώμα, δημιούργησε το πρώτο επίσημο twitter account όπου θα δημοσιεύονται οι επίσημες ανακοινώσεις, αλλά και χρήσιμες πληροφορίες για τους πολίτες, όπως συμβουλές πυρασφάλειας, τρόποι κατάταξης εθελοντών κ.λπ.

Με την βοήθεια αυτού του δημοφιλούς site κοινωνικής δικτύωσης, η ενημέρωση των πολιτών για διάφορα περιστατικά σε όλη τη χώρα θα γίνεται με άμεσο, αξιόπιστο τρόπο και σε πραγματικό χρόνο.

Φυσικά η ενημέρωση αλλά και η διαχείριση του λογαριασμού είναι 24ωρη και διεκπεραιώνεται από ένα μέρος του Γραφείου Τύπου του Σώματος.

Έτσι για πιο αποτελεσματική διαχείριση των περιστατικών, οι πολίτες μπορούν να καλούν το 199 ή να μπαίνουν στο Twitter για να αναφέρουν πυρκαγιές, ενώ και με e-mail (press@fireservice.gr) μπορούν να κάνουν και τις παρατηρήσεις τους σχετικά με τη γενικότερη παρουσία του Πυροσβεστικού Σώματος στο Διαδίκτυο.

Πηγή:www.newsit.gr

Πέμπτη 1 Ιουλίου 2010

Facebook απο τη Google

Μια νέα υπηρεσία κοινωνικής δικτύωσης που στόχο έχει να «χτυπήσει» το Facebook ετοιμάζει η Google, σύμφωνα με πληροφορίες. Πρώην στελέχη του Facebook και παράγοντες της διαδικτυακής αγοράς υποστηρίζουν ότι η Google πρόκειται σύντομα να δημιουργήσει ένα νέο κοινωνικό δίκτυο, με το όνομα «Google Me».

Η νέα ιστοσελίδα χαρακτηρίζεται ως «αντι-Facebook» και έχει στόχο να εκθρονίσει τον σημερινό παγκόσμιο κολοσσό της κοινωνικής δικτύωσης και να πάρει τη θέση του στην αγορά, όπως αναφέρουν οι διακινητές των επίμαχων φημών, που υποστηρίζουν ότι έχουν «εσωτερική ενημέρωση» για τις κινήσεις της Google.

Η οργιώδης φημολογία ξέσπασε έπειτα από μια ανάρτηση που έκανε στο Twitter ο Κέβιν Ρόουζ, ιδρυτής της ιστοσελίδας Digg. «Ιδού μια τεράστια φήμη: σύμφωνα με μια ιδιαίτερα αξιόπιστη πηγή, η Google ετοιμάζει πολύ σύντομα τον ανταγωνιστή του Facebook, με το όνομα Google Me».

Η Google αρνήθηκε να σχολιάσει την ανάρτηση. Ωστόσο, μέσα σε λίγες ώρες το νέο είχε εξαπλωθεί παντού. Η «επιβεβαίωσή» του δεν άργησε να έρθει. Ένα πρώην ανώτερο στέλεχος του Facebook υποστήριξε ότι η πληροφορία δεν αποτελεί φήμη, αλλά πραγματικότητα.

Ο Άνταμ Ντ’ Άντζελο, πρώην διευθυντής του τομέα τεχνολογίας του Facebook, έγραψε στην ιστοσελίδα Quora.com, την οποία έχει ιδρύσει: «Από αξιόπιστες πηγές έχω μάθει ότι δεν πρόκειται για φήμη, αλλά για αληθινό σχέδιο, για την υλοποίηση του οποίου εργάζεται ένας μεγάλος αριθμός ανθρώπων. Είμαι απόλυτα βέβαιος γι’ αυτό που σας λέω».

«Συνειδητοποίησαν ότι έπρεπε να χτίσουν μια πλήρη υπηρεσία κοινωνικής δικτύωσης ‘’πρώτης γραμμής’’. Έχουν αρχίσει να την κατασκευάζουν στα πρότυπα του Facebook», πρόσθεσε ο Ντ’ Άντζελο, σημειώνοντας ότι «σε αντίθεση με προηγούμενες απόπειρες της εταιρείας, το Google Me θεωρείται έργο υψηλής προτεραιότητας για τη Google».

Ο Νταν Ολντς, αναλυτής της εταιρείας Gabriel Consulting Group, ενίσχυσε τη φημολογία με τις δηλώσεις του. «Αν κάποιος έχει τα φόντα και τα μέσα να γίνει ισχυρός ανταγωνιστής του Facebook, αυτός είναι η Google. Έχουν την τεχνική δυνατότητα και τον εξοπλισμό που τους επιτρέπει να χτίσουν άμεσα μια δυνατή μηχανή» είπε, προσθέτοντας χαρακτηριστικά ότι «η Google θα προσελκύσει έναν μεγάλο αριθμό χρηστών αμέσως, μόνο και μόνο επειδή είναι η Google».

Πάντως, σύμφωνα με αναλυτές της διαδικτυακής αγοράς, η φημολογία έχει βάση, αν κρίνει κανείς από τον «πρότερο βίο» της Google, η οποία έχει αποδείξει ότι δεν αρκείται στις υπηρεσίες αναζήτησης, αλλά αναπτύσσει διαρκώς νέες λειτουργίες και εφαρμογές.

Το περασμένο καλοκαίρι, η εταιρεία ανακοίνωσε ότι θα δημιουργήσει το Chrome OS, ένα νέο λειτουργικό σύστημα ανοικτού κώδικα, που αναμένεται το Φθινόπωρο. Τον περασμένο Σεπτέμβριο η Google κυκλοφόρησε την εφαρμογή Google Wave, μπαίνοντας, παράλληλα, στην «αρένα» της κινητής τηλεφωνίας, με το λανσάρισμα του λειτουργικού συστήματος Android και του smartphone κινητού Nexus One.

Πηγη:www.tanea.gr

Σάββατο 26 Ιουνίου 2010

VB.NET-DVDPlayer

Public Class Form1
Private Sub ExitProgram(ByVal caption As String, ByVal text As String)
Try
Dim answer As DialogResult
answer = MessageBox.Show(text, caption, MessageBoxButtons.OKCancel)
If (answer = Windows.Forms.DialogResult.OK) Then
Application.Exit()
End If
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Try
DVDPlayer.Dock = DockStyle.Fill
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub

Private Sub AboutToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AboutToolStripMenuItem.Click
Dim about As New AboutBox1
about.Visible = True
End Sub

Private Sub ΠλήρηςΠροβολήToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ΠλήρηςΠροβολήToolStripMenuItem.Click
Try
Me.WindowState = FormWindowState.Maximized
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub

Private Sub ΠροβολήΕμφάνισηςToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ΠροβολήΕμφάνισηςToolStripMenuItem.Click
Try
Me.WindowState = FormWindowState.Normal
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try

End Sub

Private Sub ΕξοδοςToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ΕξοδοςToolStripMenuItem.Click
ExitProgram("Εξοδος στο Λειτουργικό Σύστημα", "Είσαι σίγουρος ?")
End Sub

Private Sub ΠροηγούμενοToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ΠροηγούμενοToolStripMenuItem.Click
Try
DVDPlayer.Ctlcontrols.previous()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub

Private Sub ΕπόμενοToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ΕπόμενοToolStripMenuItem.Click
Try
DVDPlayer.Ctlcontrols.next()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try

End Sub

Private Sub ΕπαναφοράToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ΕπαναφοράToolStripMenuItem.Click
Try
DVDPlayer.dvd.resume()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try

End Sub

Private Sub ΓρήγορηΠροώθησηToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ΓρήγορηΠροώθησηToolStripMenuItem.Click
Try
DVDPlayer.Ctlcontrols.fastForward()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try

End Sub

Private Sub ΑναπαραγωγήToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ΑναπαραγωγήToolStripMenuItem.Click
Try
DVDPlayer.Ctlcontrols.play()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try

End Sub

Private Sub ΔιακοπήToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ΔιακοπήToolStripMenuItem.Click
Try
DVDPlayer.Ctlcontrols.stop()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try

End Sub

Private Sub ΑύξησηToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ΑύξησηToolStripMenuItem.Click
Try
DVDPlayer.settings.volume = DVDPlayer.settings.volume + 10
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try

End Sub

Private Sub ΜείωσηToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ΜείωσηToolStripMenuItem.Click
Try
DVDPlayer.settings.volume = DVDPlayer.settings.volume - 10
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try

End Sub

Private Sub ΣίγασηToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ΣίγασηToolStripMenuItem.Click
Try
DVDPlayer.settings.mute = True
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try

End Sub

Private Sub ΑνοιγμαToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ΑνοιγμαToolStripMenuItem.Click
Try
OpenFileDialog1.FileName = "*.vob"
OpenFileDialog1.Filter = "VOB Files|*.vob|All Files|*.*"
Dim dlg As DialogResult = OpenFileDialog1.ShowDialog()
If (dlg = Windows.Forms.DialogResult.OK) Then
DVDPlayer.URL = OpenFileDialog1.FileName
End If
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
End Class

Κυριακή 14 Μαρτίου 2010

Fedora / Enable - Disable SELinux

One way to temporarily disable SELinux in Fedora is to write in a terminal the following command.
echo 0> / selinux / enforce

Also if you want to turn it back then write the following command

echo 1> / selinux / enforfce