Programmazione

Programmazione su vari linguaggi e Tool

[VB6] funzione Sleep

0
1099 giorni
by in Visual basic 6
1
2
3
4
5
6
7
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub Form_Load()
Sleep 1000
MsgBox ":D"

End Sub

Riprodurre suoni midi, wave, mp3, avi, mpeg

0
1099 giorni
by in Programmazione, Visual basic 6

Componenti > Controlli > Microsoft Multimedia Controll

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
'Mpeg e MP3:
Private Sub Form_Load()
With MMControl1
.Notify = False
.Wait = True
.Visible = False ' se non si vuole far visualizzare il controllo
.DeviceType = "MPEGvideo"
.TimeFormat = mciFormatMilliseconds
.FileName = "C:\CartellaSuoni\Test.Mpeg" ' o Test.Mp3
.Command = "seek"
.Command = "Open" 'apri
.Command = "Play" 'auto start
End With
End Sub

'File Wave:
Private Sub Form_Load()
With MMControl1
.Notify = False
.Wait = True
.Visible = False
.DeviceType = "WaveAudio"
.TimeFormat = mciFormatMilliseconds
.FileName = "C:\CartellaSuoni\Test.wav"
.Command = "seek"
.Command = "Open"
.Command = "Play"
End With
End Sub

'Midi:
Private Sub Form_Load()
With MMControl1
.Notify = False
.Wait = True
.Visible = False
.DeviceType = "Sequencer"
.TimeFormat = mciFormatMilliseconds
.FileName = "C:\CartellaSuoni\Test.mid"
.Command = "seek"
.Command = "Open"
.Command = "Play"
End With
End Sub

'File AVIVideo:
Private Sub Form_Load()
With MMControl1
.Notify = False
.Wait = True
.Visible = False
.DeviceType = "AVIVideo"
.TimeFormat = mciFormatMilliseconds
.FileName = "C:\CartellaSuoni\Test.avi"
.Command = "seek"
.Command = "Open"
.Command = "Play"
End With
End Sub

[VB6] Titolo scorrevole

1
1099 giorni
by in Visual basic 6

Ecco come far scorrere il titolo del form, può essere usato anche per texbox e label…

Richiamato con:

1
Call TitleScroll(Form1)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Sub TitleScroll(frm As Form)
Dim X As Integer
Dim current As Variant
Dim Y As String
Y = frm.Caption
frm.Caption = ""
frm.Show
For X = 0 To Len(Y)
If X = 0 Then
frm.Caption = ""
current = Timer
Do While Timer - current < 0.1
DoEvents
Loop
GoTo done
Else:
End If
frm.Caption = Left(Y, X)
current = Timer
Do While Timer - current < 0.05
DoEvents
Loop
done:
Next X

End Sub

[VB6] Textbox numerica

1
1099 giorni
by in Visual basic 6
1
2
3
4
5
6
7
Private Sub Text1_KeyPress(KeyAscii As Integer)
 If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then
  KeyAscii = 0
   Beep
End If

End Sub

[VB6] Split leggere le righe

0
1099 giorni
by in Visual basic 6

In questo modo il contenuto presente su ‘txt_MultiLine’ viene splittato su altri textbox.

1
2
3
4
5
6
7
8
9
10
11
12
Dim SettagiLetti as string
Dim Settaggi() as string

Private Sub Command1_Click()
SettaggiLetti = txt_MultiLine.text 'cambo testo multilinee con una frase/parola per riga
Settaggi() = Split(SettaggiLetti, vbCrLf)

text1.text = Settaggi(0)
text2.text = Settaggi(1)
text3.text = Settaggi(2)
text4.text = Settaggi(3)
End Sub

Prossima apertura sezione Visual Basic

0
1099 giorni
by in Utility & Varie, Visual basic 6

Tra poco tempo aprirò una sezione dedicata al vecchio visual basic.. Lascio un pò di memorie, tips, utility e poi penso che smetterò di usarlo.. per passare a qualcosa di più powa, come il C :P

Sezione visual-basic-6

Per qualche motivo i caratteri < & > non vengono visualizzati .-. vedrò di risolvere

I'm Not Idiot

1
1279 giorni
by in Projects, Rpg Maker

DITE NO alla CENSURA! CAZZO !

Questo è il mio immancabile gioco! Un rpg costruito mattone su mattone con il tool: Rpg maker XP (se vi interessa V1.02a, sinceramente era meglio la 1.01a).
Bene bene… questo piccolo giochino, diciamo con una 40ina di minuti di gioco, se si spompa e si controlla tutto anche 1 ora, ‘parla’ della storia del personaggio Jake.. Ma non posso dirvi di più sulla trama XD. Dal titolo si dovrebbe intuire tutto, cioè un gioco divertente programmato fino all’osso per farvi fare diverse risate! (continua…)

Pagina 4 di 41234
Go to Top