19/05/2023: A causa di un errore sono stati cancellati, insieme ad account creati da bot, alcuni account legittimi. Si prega di leggere qui: https://www.gambas-it.org/smf/index.php?topic=9733.0
Visualizza post
Questa sezione ti permette di visualizzare tutti i post inviati da questo utente. N.B: puoi vedere solo i post relativi alle aree dove hai l'accesso.
eyeD3 -v /mnt/PRS/Music/CreativeCommons/Greg_Atkinson_-_7_Gifts/Greg_Atkinson_-_01_-_7_Gifts.mp3
...ommons/Greg_Atkinson_-_7_Gifts/Greg_Atkinson_-_01_-_7_Gifts.mp3 [ 8.97 MB ]
-------------------------------------------------------------------------------
Time: 03:55 MPEG1, Layer III [ 320 kb/s @ 44100 Hz - Joint stereo ]
-------------------------------------------------------------------------------
ID3 v2.4:
title: 7 Gifts
artist: Greg Atkinson
album: 7 Gifts
album artist: Greg Atkinson
recording date: 2016-06-22T14:52:24
eyed3.id3:WARNING: Non standard genre name: Free-Folk
track: 1 genre: Free-Folk (id None)
Comment: [Description: ] [Lang: eng]
URL: http://freemusicarchive.org/music/Greg_Atkinson/7_Gifts/Greg_Atkinson_-_01_-_7_Gifts
Comments: http://freemusicarchive.org/
Curator: ccCommunity
Copyright: Attribution: http://creativecommons.org/licenses/by/4.0/
-------------------------------------------------------------------------------
10 ID3 Frames:
TCOP (68 bytes)
TDAT (31 bytes)
TDRC (31 bytes)
TIT2 (19 bytes)
TRCK (13 bytes)
TPE2 (25 bytes)
TPE1 (25 bytes)
TALB (19 bytes)
COMM (236 bytes)
TCON (21 bytes)
536 bytes unused (padding)
-------------------------------------------------------------------------------
"\x1B[1m\x1B[32m...ommons/Greg_Atkinson_-_7_Gifts/Greg_Atkinson_-_01_-_7_Gifts.mp3\x1B[39m\x1B[22m\x1B[32m [ 8.97 MB ]\x1B[39m\n-------------------------------------------------------------------------------\n\x1B[1mTime: \x1B[22m03:55\tMPEG1, Layer III\t[ 320 kb/s @ 44100 Hz - Joint stereo ]\n-------------------------------------------------------------------------------\nID3 v2.4:\n\x1B[1mtitle\x1B[22m: 7 Gifts\n\x1B[1martist\x1B[22m: Greg Atkinson\n\x1B[1malbum\x1B[22m: 7 Gifts\n\x1B[1malbum artist\x1B[22m: Greg Atkinson\n\x1B[1mrecording date\x1B[22m: 2016-06-22T14:52:24\n\x1B[1mtrack\x1B[22m: 1\t\t\x1B[1mgenre\x1B[22m: Free-Folk (id None)\n\x1B[1mComment\x1B[22m: [Description: ] [Lang: eng]\nURL: http://freemusicarchive.org/music/Greg_Atkinson/7_Gifts/Greg_Atkinson_-_01_-_7_Gifts\r\nComments: http://freemusicarchive.org/\r\nCurator: ccCommunity\r\nCopyright: Attribution: http://creativecommons.org/licenses/by/4.0/\n-------------------------------------------------------------------------------\n10 ID3 Frames:\nTCOP (68 bytes)\nTDAT (31 bytes)\nTDRC (31 bytes)\nTIT2 (19 bytes)\nTRCK (13 bytes)\nTPE2 (25 bytes)\nTPE1 (25 bytes)\nTALB (19 bytes)\nCOMM (236 bytes)\nTCON (21 bytes)\n536 bytes unused (padding)\n-------------------------------------------------------------------------------\n"Public Sub Button_SavePlaylist_Click()
Dim vConnessione As New Connection
Dim vPercorso As String ' variabile per il percorso in cui creare il db
Dim vDatabase As String ' variabile per il nome che diamo al database
Dim vTabella As Table
Dim vTabellaUno As String ' variabile per la creazione della tabella UNO e dei campi
Dim vTabellaDue As String ' variabile per la creazione della tabella DUE e dei campi
Dim vRisultato As Result
Dim I As Integer
If GridView_Media.Rows.Count = 0 Then Return
Dialog.Path = "Playlist_" & Format(Now, "yyyymmdd-hhnnss") & ".sqlite3"
Dialog.Filter = ["*.sqlite;*.sqlite3", "sqlite format database files"]
If Dialog.SaveFile() Then
Return
Endif
'se siamo qui' allora abbiamo deciso di creare un nuovo file per la playlist
If File.Ext(Dialog.Path) = "" Then
Dialog.Path = Dialog.Path & ".sqlite3"
Endif
vPercorso = File.Dir(Dialog.Path) ' definisce il percorso del database
vDatabase = File.Name(Dialog.Path) ' definisce il nome del database
vTabellaUno = "CREATE TABLE 'PlaylistContent'" & ' nome della tabella e dei campi che si andrà a creare
"('id' INTEGER PRIMARY KEY," & ' chiave primaria
"'Time' VARCHAR(8) Default Null," & 'nome del campo, tipo e valore predefinito
"'Path' VARCHAR(55) Default Null," &
"'MediaType' VARCHAR(20) Default Null," & 'STATUS e' una proprieta' locale che viene definita al caricamento
"'lenght' VARCHAR(20) Default Null," &
"'WARN' VARCHAR(55) Default Null);" 'MEDIA e' una proprieta' locale che viene definita al caricamento
With vConnessione
.Type = "sqlite3" ' indicazione del tipo di database da utilizzare
.Host = vPercorso
.Login = ""
.Password = ""
End With
If Exist(Dialog.Path) Then ' esiste il file della playlist, chiedo se cancellarlo o meno
Select Case Message.Question("Do you want to overwrite playlist file?", "YES", "NO", "CANCEL")
Case 2
Return
Case 3 'in ogni altro caso esco dalla procedura (verificare se devo comunque riscrivere STOP
Return
End Select
End If
'se siamo qui' vogliamo scrivere il file della playlist
vConnessione.Open() ' apre la connessione
If Not vConnessione.Databases.Exist(vDatabase) Then ' verifica che il db non esista giÃ
vConnessione.Databases.Add(vDatabase) ' crea il database
vConnessione.Close() ' chiude la connessione
vConnessione.Name = vDatabase ' alla connessione assegna il nome del database
vConnessione.Open() ' riapre la connessione
vRisultato = vConnessione.Exec(vTabellaUno) ' aggiunge al database la tabella con i campi, come sopra definito
Wait 1
For i = 0 To GridView_Media.Rows.Count - 1
'inserisci un nuovo record per ogni riga
vRisultato = vConnessione.Create("PlaylistContent")
vRisultato["id"] = i
vRisultato["Time"] = GridView_Media[i, 0].Text
vRisultato["Path"] = GridView_Media[i, 1].Text
vRisultato["MediaType"] = GridView_Media[i, 2].Text
vRisultato["lenght"] = GridView_Media[i, 4].Text
vRisultato["WARN"] = GridView_Media[i, 5].Text
vRisultato.Update
vConnessione.Commit
Next
Endif
vConnessione.Close() 'chiude la connessione
Message.Info("Playlist file created in:" & gb.crlf & Dialog.Path, "ok")
EndDialog.Filter = ["*.sqlite;*.sqlite3", "sqlite format database files"]
If Dialog.SaveFile() Then
Return
Endif/dev/tty /dev/tty23 /dev/tty39 /dev/tty54 /dev/ttyS10 /dev/ttyS26
/dev/tty0 /dev/tty24 /dev/tty4 /dev/tty55 /dev/ttyS11 /dev/ttyS27
/dev/tty1 /dev/tty25 /dev/tty40 /dev/tty56 /dev/ttyS12 /dev/ttyS28
/dev/tty10 /dev/tty26 /dev/tty41 /dev/tty57 /dev/ttyS13 /dev/ttyS29
/dev/tty11 /dev/tty27 /dev/tty42 /dev/tty58 /dev/ttyS14 /dev/ttyS3
/dev/tty12 /dev/tty28 /dev/tty43 /dev/tty59 /dev/ttyS15 /dev/ttyS30
/dev/tty13 /dev/tty29 /dev/tty44 /dev/tty6 /dev/ttyS16 /dev/ttyS31
/dev/tty14 /dev/tty3 /dev/tty45 /dev/tty60 /dev/ttyS17 /dev/ttyS4
/dev/tty15 /dev/tty30 /dev/tty46 /dev/tty61 /dev/ttyS18 /dev/ttyS5
/dev/tty16 /dev/tty31 /dev/tty47 /dev/tty62 /dev/ttyS19 /dev/ttyS6
/dev/tty17 /dev/tty32 /dev/tty48 /dev/tty63 /dev/ttyS2 /dev/ttyS7
/dev/tty18 /dev/tty33 /dev/tty49 /dev/tty7 /dev/ttyS20 /dev/ttyS8
/dev/tty19 /dev/tty34 /dev/tty5 /dev/tty8 /dev/ttyS21 /dev/ttyS9
/dev/tty2 /dev/tty35 /dev/tty50 /dev/tty9 /dev/ttyS22
/dev/tty20 /dev/tty36 /dev/tty51 /dev/ttyprintk /dev/ttyS23
/dev/tty21 /dev/tty37 /dev/tty52 /dev/ttyS0 /dev/ttyS24
/dev/tty22 /dev/tty38 /dev/tty53 /dev/ttyS1 /dev/ttyS25
[ 0.000000] console [tty0] enabled
[ 0.733800] 00:05: ttyS0 at I/O 0x3f8 (irq = 4, base_baud = 115200) is a 16550A
Public Sub GridView_Media_DblClick()
Print GridView_Media.Column & "X" & GridView_Media.Row
End
Public Timer_check As New Timer
Public XML_Menu_Structure As New XmlDocument
Public MenuNavigator As New XmlExplorer
Const Righe As Integer = 2
Const Colonne As Integer = 16
Public Sub Main()
LoadMenuStructure(User.Home & "/menu.xml")
Timer_check.Delay = 1000
Timer_check.Enabled = True
' Print "Ethernet address"
' Messaggio[0] = "Ethernet address"
'
'
' EthernetInterface = getActiveNetworkInterface()
' ip = DetectIP(EthernetInterface)
'
'
' Print ip
' Messaggio[1] = ip
'
' Shell "echo " & Messaggio[0] & Messaggio[1] & " > /dev/ttyUSB0"
Do
Wait
Loop
End
Public Sub Timer_check_timer()
'update ip address information
EthernetInterface = getActiveNetworkInterface()
ip = DetectIP(EthernetInterface)
End