Gcol1 = (picCredits.ForeColor And vbGreen) / 256 Bcol1 = (picCredits.ForeColor And vbBlue) / 65536 Rcol2 = picCredits.BackColor Mod 256 ReDim CreditLeft(TotalLines - 1) For i = 0 To TotalLines - 1 Select Case AlignText Case 1ĬreditLeft(i) = (picCredits.Width - picCredits.TextWidth(CreditLine(i))) / 2 Case 3ĬreditLeft(i) = picCredits.Width - picCredits.TextWidth(CreditLine(i)) - 100 End Select Private Sub Command1_Click() If no_antri_panggil 0 ThenįadeOut = ((picCredits.Height / 100) * PercentFade) - CharHeight FadeIn = (picCredits.Height - FadeOut) - CharHeight - CharHeight Else FadeIn = picCredits.Height FadeOut = 0 - CharHeight End If ColText = picCredits.ForeColorĬDiff1 = (picCredits.Height - (CharHeight - 10)) - FadeIn cDiff2 = 100 / cDiff1 Tampilan Menu Jumlah Antrian Yang Akan Dimasukkanĭim no_antri, no_antri_panggil As Integer Dim Sounds(16) As StringĪrrJumlahKarakterSpasi = Split(txtTerbilang.Text, " ")Ĭall sndPlaySound(App.Path & "\Sounds\nomor-urut.wav", SND_NOSTOP) For i = LBound(arrJumlahKarakterSpasi) To UBound(arrJumlahKarakterSpasi)Ĭall sndPlaySound(App.Path & "\Sounds\" & arrJumlahKarakterSpasi(i) & ".wav", SND_NOSTOP)Ĭall sndPlaySound(App.Path & "\Sounds\loket.wav", SND_NOSTOP) Call sndPlaySound(App.Path & "\Sounds\satu.wav", SND_NOSTOP) End Sub
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |