PureBoard

Das deutsche PureBasic-Forum
https://www.purebasic.fr/german/

Emulator Librarys

https://www.purebasic.fr/german/viewtopic.php?t=24877

Seite 2 von 2

Re: Emulator Librarys

Verfasst: 14.10.2011 19:19
von WinSysCompany
ein Programm um für "My LCD Board OS" Bilder zu erstellen ( für "DRAW" )
http://hosting.alexander-n.de/!=NjY2LjEzMTg2MTI3MTk=

Re: Emulator Librarys

Verfasst: 14.10.2011 19:25
von WinSysCompany
Quellcode für "AudioCD Player v1.00"

AudioCD Player v1.00.pb

Code: Alles auswählen

Global CountOfAudioCDs = InitAudioCD()
Global Dim Display(128,64)

Procedure UpdateDisplay()
	Command$ = "ClearMatrixArray"
	CallFunction(0,"setcommand",@Command$)
	For x = 0 To 127
		For y = 0 To 63
			If Display(x,y)
				Command$ = "SetArrayPixel	"+Str(x)+"	"+Str(y)+"	1"
				CallFunction(0,"setcommand",@Command$)
			EndIf
		Next
	Next
	Command$ = "UpdateMatrixBoard"
	CallFunction(0,"setcommand",@Command$)
EndProcedure

Procedure ClearDisplay()
	For x = 0 To 127
		For y = 0 To 63
			Display(x,y) = 0
		Next
	Next
EndProcedure

IncludeFile "AudioCD Player v1.00.pbi"

Procedure WriteText(x,y,text$,c=1)
	x2 = x
	For temp = 1 To Len(text$)
		If Asc(Mid(text$,temp,1)) = 13
			y + 8
		ElseIf Asc(Mid(text$,temp,1)) = 10
			x = x2
		Else
			WriteAscii(x,y,Asc(LCase(Mid(text$,temp,1))),c)
			x + 6
		EndIf
	Next
EndProcedure

Procedure ZoomDisplay()
	For y = 31 To 0 Step -1
		For x = 63 To 0 Step -1
			Display(x*2,y*2) = Display(x,y)
			Display(x*2,y*2+1) = Display(x,y)
			Display(x*2+1,y*2) = Display(x,y)
			Display(x*2+1,y*2+1) = Display(x,y)
		Next
	Next
EndProcedure

Procedure DrawBox(x,y,w,h,c)
	For a = x To x+w-1
		For b = y To y+h-1
			Display(a,b) = c
		Next
	Next
EndProcedure

Procedure WriteTextN(x,y,text$,c=1)
	WriteText(x,y,text$,c)
	UpdateDisplay()
EndProcedure

OpenWindow(0,0,280,513,50,"AudioCD Player v1.00")
ComboBoxGadget(0,0,0,453,20)
ButtonGadget(1,453,0,30,20,"Auf")
ButtonGadget(2,483,0,30,20,"Zu")
ButtonGadget(3,0,20,86,30,"Starten")
ButtonGadget(4,86,20,85,30,"Stopen")
ButtonGadget(5,171,20,86,30,"Neckster")
ButtonGadget(6,256,20,85,30,"Vorheriger")
ButtonGadget(7,342,20,86,30,"Pause")
ButtonGadget(8,427,20,85,30,"Weiter")
If CountOfAudioCDs
	For AudioCD = 1 To CountOfAudioCDs
		UseAudioCD(AudioCD-1)
		AddGadgetItem(0,-1,AudioCDName())
	Next
	If OpenLibrary(0,"LCD Board.dll")
		If StringField(PeekS(CallFunction(0,"init")),7,"	") = "13516878"
			If StringField(PeekS(CallFunction(0,"start",0,0)),1,"	") = "ready"
				Delay(500)
				ClearDisplay()
				DrawBox(0,0,128,64,1)
				DrawBox(2,2,124,60,0)
				UpdateDisplay()
				Repeat
					Select WaitWindowEvent(1)
						Case #PB_Event_Gadget
							Select EventGadget()
								Case 0
									IfPlay = 0
									IfPause = 0
									Track = 0
									IfAudioCD = 0
									StopAudioCD()
									DrawBox(2,53,124,8,0)
									WriteTextN(3,54,"Stop Drive "+AudioCDName())
									UseAudioCD(GetGadgetState(0))
									DrawBox(2,53,124,8,0)
									WriteTextN(3,54,"Use Drive "+AudioCDName())
									If AudioCDTracks()
										IfAudioCD = 1
										Track = 1
									EndIf
								Case 1
									IfPlay = 0
									IfPause = 0
									Track = 0
									IfAudioCD = 0
									StopAudioCD()
									DrawBox(2,53,124,8,0)
									WriteTextN(3,54,"Stop Drive "+AudioCDName())
									EjectAudioCD(1)
									DrawBox(2,53,124,8,0)
									WriteTextN(3,54,"Eject Drive "+AudioCDName())
								Case 2
									IfPlay = 0
									IfPause = 0
									Track = 0
									IfAudioCD = 0
									StopAudioCD()
									DrawBox(2,53,124,8,0)
									WriteTextN(3,54,"Stop Drive "+AudioCDName())
									EjectAudioCD(0)
									DrawBox(2,53,124,8,0)
									WriteTextN(3,54,"Close Drive "+AudioCDName())
									If AudioCDTracks()
										IfAudioCD = 1
										Track = 1
									EndIf
								Case 3
									IfPause = 0
									IfPlay = 0
									If IfAudioCD
										If Track > AudioCDTracks() Or Track = 0
											Track = 1
										EndIf
										IfPlay = 1
										PlayAudioCD(Track,AudioCDTracks())
										DrawBox(2,53,124,8,0)
										WriteTextN(3,54,"Play Track "+Str(Track)+" / "+Str(AudioCDTracks()))
									Else
										DrawBox(2,53,124,8,0)
										WriteTextN(3,54,"Cannot Play "+AudioCDName())
									EndIf
								Case 4
									IfPlay = 0
									IfPause = 0
									Track = 0
									StopAudioCD()
									DrawBox(2,53,124,8,0)
									WriteTextN(3,54,"Stop Drive "+AudioCDName())
								Case 5
									If IfAudioCD
										If IfPlay
											If Not IfPause
												Track + 1
												If Track > AudioCDTracks() Or Track = 0
													Track = 1
												EndIf
												IfPlay = 1
												PlayAudioCD(Track,AudioCDTracks())
												DrawBox(2,53,124,8,0)
												WriteTextN(3,54,"Play Track "+Str(Track)+" / "+Str(AudioCDTracks()))
											EndIf
										EndIf
									EndIf
								Case 6
									If IfAudioCD
										If IfPlay
											If Not IfPause
												Track - 1
												If Track > AudioCDTracks() Or Track = 0
													Track = 1
												EndIf
												IfPlay = 1
												PlayAudioCD(Track,AudioCDTracks())
												DrawBox(2,53,124,8,0)
												WriteTextN(3,54,"Play Track "+Str(Track)+" / "+Str(AudioCDTracks()))
											EndIf
										EndIf
									EndIf
								Case 7
									If IfAudioCD
										If IfPlay
											If Not IfPause
												PauseAudioCD()
												IfPause = 1
											EndIf
										EndIf
									EndIf
								Case 8
									If IfAudioCD
										If IfPlay
											If IfPause
												ResumeAudioCD()
												IfPause = 0
											EndIf
										EndIf
									EndIf
							EndSelect
						Case #PB_Event_CloseWindow
							exit = 1
					EndSelect
					If IfPlay
						Select AudioCDStatus()
							Case -1
								IfPlay = 0
								IfPause = 0
								Track = 0
								StopAudioCD()
								DrawBox(2,53,124,8,0)
								WriteTextN(3,54,"Cannot Play "+AudioCDName())
							Case 0
								IfPlay = 0
								IfPause = 0
								Track = 0
								StopAudioCD()
								DrawBox(2,53,124,8,0)
								WriteTextN(3,54,"Stop Drive "+AudioCDName())
							Default
								DrawBox(2,4,124,8,0)
								WriteTextN(3,4,Str(AudioCDTrackSeconds())+" / "+Str(AudioCDTrackLength(AudioCDStatus()))+"   "+Str(AudioCDStatus())+" / "+Str(AudioCDTracks()))
						EndSelect
					EndIf
				Until exit = 1
				For AudioCD = 1 To CountOfAudioCDs
					StopAudioCD()
				Next
			Else
				MessageRequester("Fehler","Konnte LCD Board Library nicht starten"+#CRLF$+"Konnte Thread nicht starten",16)
			EndIf
		Else
			MessageRequester("Fehler","Konnte LCD Board Library nicht includieren"+#CRLF$+"Card-ID ist nicht '13516878'",16)
			End
		EndIf
	Else
		MessageRequester("Fehler","Konnte LCD Board Library nicht öffnen"+#CRLF$+"Datei nicht gefunden '.\LCD Board.dll'",16)
		End
	EndIf
Else
	MessageRequester("Fehler","Konnte AudioCD Player v1.00 nicht starten"+#CRLF$+"'InitAudioCD()' ist fehlgeschlagen",16)
	End
EndIf
AudioCD Player v1.00.pbi

Code: Alles auswählen

Procedure WriteAscii(x,y,ascii,c)
	If x < 0
		x = 0
	EndIf
	If y < 0
		y = 0
	EndIf
	If x > 123
		x = c23
	EndIf
	If y > 58
		y = 58
	EndIf
	Select ascii
		Case 'a'
			Display(x+0,y+3) = c
			Display(x+0,y+4) = c
			Display(x+0,y+5) = c
			Display(x+0,y+6) = c
			Display(x+4,y+6) = c
			Display(x+4,y+5) = c
			Display(x+4,y+4) = c
			Display(x+4,y+3) = c
			Display(x+1,y+3) = c
			Display(x+2,y+3) = c
			Display(x+3,y+3) = c
			Display(x+0,y+2) = c
			Display(x+1,y+1) = c
			Display(x+2,y+0) = c
			Display(x+3,y+1) = c
			Display(x+4,y+2) = c
		Case 'b'
			Display(x+0,y+0) = c
			Display(x+0,y+1) = c
			Display(x+0,y+2) = c
			Display(x+0,y+3) = c
			Display(x+0,y+4) = c
			Display(x+0,y+5) = c
			Display(x+0,y+6) = c
			Display(x+1,y+0) = c
			Display(x+2,y+0) = c
			Display(x+3,y+0) = c
			Display(x+1,y+3) = c
			Display(x+2,y+3) = c
			Display(x+3,y+3) = c
			Display(x+1,y+6) = c
			Display(x+2,y+6) = c
			Display(x+3,y+6) = c
			Display(x+4,y+1) = c
			Display(x+4,y+2) = c
			Display(x+4,y+4) = c
			Display(x+4,y+5) = c
		Case 'c'
			Display(x+0,y+1) = c
			Display(x+0,y+2) = c
			Display(x+0,y+3) = c
			Display(x+0,y+4) = c
			Display(x+0,y+5) = c
			Display(x+1,y+0) = c
			Display(x+2,y+0) = c
			Display(x+3,y+0) = c
			Display(x+1,y+6) = c
			Display(x+2,y+6) = c
			Display(x+3,y+6) = c
			Display(x+4,y+1) = c
			Display(x+4,y+5) = c
		Case 'd'
			Display(x+0,y+0) = c
			Display(x+0,y+1) = c
			Display(x+0,y+2) = c
			Display(x+0,y+3) = c
			Display(x+0,y+4) = c
			Display(x+0,y+5) = c
			Display(x+0,y+6) = c
			Display(x+1,y+0) = c
			Display(x+2,y+0) = c
			Display(x+3,y+0) = c
			Display(x+1,y+6) = c
			Display(x+2,y+6) = c
			Display(x+3,y+6) = c
			Display(x+4,y+1) = c
			Display(x+4,y+2) = c
			Display(x+4,y+3) = c
			Display(x+4,y+4) = c
			Display(x+4,y+5) = c
		Case 'e'
			Display(x+0,y+0) = c
			Display(x+0,y+1) = c
			Display(x+0,y+2) = c
			Display(x+0,y+3) = c
			Display(x+0,y+4) = c
			Display(x+0,y+5) = c
			Display(x+0,y+6) = c
			Display(x+1,y+0) = c
			Display(x+2,y+0) = c
			Display(x+3,y+0) = c
			Display(x+4,y+0) = c
			Display(x+1,y+3) = c
			Display(x+2,y+3) = c
			Display(x+3,y+3) = c
			Display(x+1,y+6) = c
			Display(x+2,y+6) = c
			Display(x+3,y+6) = c
			Display(x+4,y+6) = c
		Case 'f'
			Display(x+0,y+0) = c
			Display(x+0,y+1) = c
			Display(x+0,y+2) = c
			Display(x+0,y+3) = c
			Display(x+0,y+4) = c
			Display(x+0,y+5) = c
			Display(x+0,y+6) = c
			Display(x+1,y+0) = c
			Display(x+2,y+0) = c
			Display(x+3,y+0) = c
			Display(x+4,y+0) = c
			Display(x+1,y+3) = c
			Display(x+2,y+3) = c
			Display(x+3,y+3) = c
		Case 'g'
			Display(x+0,y+1) = c
			Display(x+0,y+2) = c
			Display(x+0,y+3) = c
			Display(x+0,y+4) = c
			Display(x+0,y+5) = c
			Display(x+1,y+0) = c
			Display(x+2,y+0) = c
			Display(x+3,y+0) = c
			Display(x+1,y+6) = c
			Display(x+2,y+6) = c
			Display(x+3,y+6) = c
			Display(x+4,y+3) = c
			Display(x+4,y+4) = c
			Display(x+4,y+5) = c
			Display(x+2,y+3) = c
			Display(x+3,y+3) = c
		Case 'h'
			Display(x+0,y+0) = c
			Display(x+0,y+1) = c
			Display(x+0,y+2) = c
			Display(x+0,y+3) = c
			Display(x+0,y+4) = c
			Display(x+0,y+5) = c
			Display(x+0,y+6) = c
			Display(x+4,y+0) = c
			Display(x+4,y+1) = c
			Display(x+4,y+2) = c
			Display(x+4,y+3) = c
			Display(x+4,y+4) = c
			Display(x+4,y+5) = c
			Display(x+4,y+6) = c
			Display(x+1,y+3) = c
			Display(x+2,y+3) = c
			Display(x+3,y+3) = c
		Case 'i'
			Display(x+2,y+0) = c
			Display(x+2,y+1) = c
			Display(x+2,y+2) = c
			Display(x+2,y+3) = c
			Display(x+2,y+4) = c
			Display(x+2,y+5) = c
			Display(x+2,y+6) = c
			Display(x+1,y+0) = c
			Display(x+3,y+0) = c
			Display(x+1,y+6) = c
			Display(x+3,y+6) = c
		Case 'j'
			Display(x+0,y+0) = c
			Display(x+1,y+0) = c
			Display(x+2,y+0) = c
			Display(x+3,y+0) = c
			Display(x+4,y+0) = c
			Display(x+4,y+1) = c
			Display(x+4,y+2) = c
			Display(x+4,y+3) = c
			Display(x+4,y+4) = c
			Display(x+4,y+5) = c
			Display(x+0,y+5) = c
			Display(x+1,y+6) = c
			Display(x+2,y+6) = c
			Display(x+3,y+6) = c
		Case 'k'
			Display(x+0,y+0) = c
			Display(x+0,y+1) = c
			Display(x+0,y+2) = c
			Display(x+0,y+3) = c
			Display(x+0,y+4) = c
			Display(x+0,y+5) = c
			Display(x+0,y+6) = c
			Display(x+4,y+0) = c
			Display(x+3,y+1) = c
			Display(x+2,y+2) = c
			Display(x+1,y+3) = c
			Display(x+2,y+4) = c
			Display(x+3,y+5) = c
			Display(x+4,y+6) = c
		Case 'l'
			Display(x+0,y+0) = c
			Display(x+0,y+1) = c
			Display(x+0,y+2) = c
			Display(x+0,y+3) = c
			Display(x+0,y+4) = c
			Display(x+0,y+5) = c
			Display(x+0,y+6) = c
			Display(x+1,y+6) = c
			Display(x+2,y+6) = c
			Display(x+3,y+6) = c
			Display(x+4,y+6) = c
		Case 'm'
			Display(x+0,y+0) = c
			Display(x+0,y+1) = c
			Display(x+0,y+2) = c
			Display(x+0,y+3) = c
			Display(x+0,y+4) = c
			Display(x+0,y+5) = c
			Display(x+0,y+6) = c
			Display(x+4,y+0) = c
			Display(x+4,y+1) = c
			Display(x+4,y+2) = c
			Display(x+4,y+3) = c
			Display(x+4,y+4) = c
			Display(x+4,y+5) = c
			Display(x+4,y+6) = c
			Display(x+1,y+1) = c
			Display(x+2,y+2) = c
			Display(x+2,y+3) = c
			Display(x+3,y+1) = c
		Case 'n'
			Display(x+0,y+0) = c
			Display(x+0,y+1) = c
			Display(x+0,y+2) = c
			Display(x+0,y+3) = c
			Display(x+0,y+4) = c
			Display(x+0,y+5) = c
			Display(x+0,y+6) = c
			Display(x+4,y+0) = c
			Display(x+4,y+1) = c
			Display(x+4,y+2) = c
			Display(x+4,y+3) = c
			Display(x+4,y+4) = c
			Display(x+4,y+5) = c
			Display(x+4,y+6) = c
			Display(x+1,y+1) = c
			Display(x+2,y+2) = c
			Display(x+2,y+3) = c
			Display(x+2,y+4) = c
			Display(x+3,y+5) = c
		Case 'o'
			Display(x+0,y+1) = c
			Display(x+0,y+2) = c
			Display(x+0,y+3) = c
			Display(x+0,y+4) = c
			Display(x+0,y+5) = c
			Display(x+4,y+1) = c
			Display(x+4,y+2) = c
			Display(x+4,y+3) = c
			Display(x+4,y+4) = c
			Display(x+4,y+5) = c
			Display(x+1,y+0) = c
			Display(x+2,y+0) = c
			Display(x+3,y+0) = c
			Display(x+1,y+6) = c
			Display(x+2,y+6) = c
			Display(x+3,y+6) = c
		Case 'p'
			Display(x+0,y+0) = c
			Display(x+0,y+1) = c
			Display(x+0,y+2) = c
			Display(x+0,y+3) = c
			Display(x+0,y+4) = c
			Display(x+0,y+5) = c
			Display(x+0,y+6) = c
			Display(x+1,y+0) = c
			Display(x+2,y+0) = c
			Display(x+3,y+0) = c
			Display(x+1,y+3) = c
			Display(x+2,y+3) = c
			Display(x+3,y+3) = c
			Display(x+4,y+1) = c
			Display(x+4,y+2) = c
		Case 'q'
			Display(x+0,y+1) = c
			Display(x+0,y+2) = c
			Display(x+0,y+3) = c
			Display(x+0,y+4) = c
			Display(x+0,y+5) = c
			Display(x+4,y+1) = c
			Display(x+4,y+2) = c
			Display(x+4,y+3) = c
			Display(x+4,y+4) = c
			Display(x+4,y+5) = c
			Display(x+1,y+0) = c
			Display(x+2,y+0) = c
			Display(x+3,y+0) = c
			Display(x+1,y+6) = c
			Display(x+2,y+6) = c
			Display(x+3,y+6) = c
			Display(x+3,y+5) = c
			Display(x+2,y+4) = c
		Case 'r'
			Display(x+0,y+0) = c
			Display(x+0,y+1) = c
			Display(x+0,y+2) = c
			Display(x+0,y+3) = c
			Display(x+0,y+4) = c
			Display(x+0,y+5) = c
			Display(x+0,y+6) = c
			Display(x+1,y+0) = c
			Display(x+2,y+0) = c
			Display(x+3,y+0) = c
			Display(x+1,y+3) = c
			Display(x+2,y+3) = c
			Display(x+3,y+3) = c
			Display(x+4,y+1) = c
			Display(x+4,y+2) = c
			Display(x+4,y+6) = c
			Display(x+3,y+5) = c
			Display(x+2,y+4) = c
		Case 's'
			Display(x+1,y+0) = c
			Display(x+2,y+0) = c
			Display(x+3,y+0) = c
			Display(x+1,y+3) = c
			Display(x+2,y+3) = c
			Display(x+3,y+3) = c
			Display(x+1,y+6) = c
			Display(x+2,y+6) = c
			Display(x+3,y+6) = c
			Display(x+0,y+1) = c
			Display(x+0,y+2) = c
			Display(x+0,y+5) = c
			Display(x+4,y+1) = c
			Display(x+4,y+4) = c
			Display(x+4,y+5) = c
		Case 't'
			Display(x+2,y+0) = c
			Display(x+2,y+1) = c
			Display(x+2,y+2) = c
			Display(x+2,y+3) = c
			Display(x+2,y+4) = c
			Display(x+2,y+5) = c
			Display(x+2,y+6) = c
			Display(x+0,y+0) = c
			Display(x+1,y+0) = c
			Display(x+3,y+0) = c
			Display(x+4,y+0) = c
		Case 'u'
			Display(x+0,y+0) = c
			Display(x+0,y+1) = c
			Display(x+0,y+2) = c
			Display(x+0,y+3) = c
			Display(x+0,y+4) = c
			Display(x+0,y+5) = c
			Display(x+4,y+0) = c
			Display(x+4,y+1) = c
			Display(x+4,y+2) = c
			Display(x+4,y+3) = c
			Display(x+4,y+4) = c
			Display(x+4,y+5) = c
			Display(x+1,y+6) = c
			Display(x+2,y+6) = c
			Display(x+3,y+6) = c
		Case 'v'
			Display(x+0,y+0) = c
			Display(x+0,y+1) = c
			Display(x+0,y+2) = c
			Display(x+0,y+3) = c
			Display(x+0,y+4) = c
			Display(x+4,y+0) = c
			Display(x+4,y+1) = c
			Display(x+4,y+2) = c
			Display(x+4,y+3) = c
			Display(x+4,y+4) = c
			Display(x+1,y+5) = c
			Display(x+2,y+6) = c
			Display(x+3,y+5) = c
		Case 'w'
			Display(x+0,y+0) = c
			Display(x+0,y+1) = c
			Display(x+0,y+2) = c
			Display(x+0,y+3) = c
			Display(x+0,y+4) = c
			Display(x+0,y+5) = c
			Display(x+4,y+0) = c
			Display(x+4,y+1) = c
			Display(x+4,y+2) = c
			Display(x+4,y+3) = c
			Display(x+4,y+4) = c
			Display(x+4,y+5) = c
			Display(x+1,y+6) = c
			Display(x+2,y+5) = c
			Display(x+2,y+4) = c
			Display(x+3,y+6) = c
		Case 'x'
			Display(x+0,y+0) = c
			Display(x+0,y+1) = c
			Display(x+0,y+5) = c
			Display(x+0,y+6) = c
			Display(x+4,y+0) = c
			Display(x+4,y+1) = c
			Display(x+4,y+5) = c
			Display(x+4,y+6) = c
			Display(x+1,y+2) = c
			Display(x+1,y+4) = c
			Display(x+2,y+3) = c
			Display(x+3,y+2) = c
			Display(x+3,y+4) = c
		Case 'y'
			Display(x+0,y+0) = c
			Display(x+0,y+1) = c
			Display(x+0,y+2) = c
			Display(x+4,y+0) = c
			Display(x+4,y+1) = c
			Display(x+4,y+2) = c
			Display(x+1,y+3) = c
			Display(x+2,y+3) = c
			Display(x+3,y+3) = c
			Display(x+3,y+3) = c
			Display(x+4,y+3) = c
			Display(x+4,y+4) = c
			Display(x+4,y+5) = c
			Display(x+0,y+5) = c
			Display(x+1,y+6) = c
			Display(x+2,y+6) = c
			Display(x+3,y+6) = c
		Case 'z'
			Display(x+0,y+0) = c
			Display(x+1,y+0) = c
			Display(x+2,y+0) = c
			Display(x+3,y+0) = c
			Display(x+4,y+0) = c
			Display(x+0,y+6) = c
			Display(x+1,y+6) = c
			Display(x+2,y+6) = c
			Display(x+3,y+6) = c
			Display(x+4,y+6) = c
			Display(x+4,y+1) = c
			Display(x+3,y+2) = c
			Display(x+2,y+3) = c
			Display(x+1,y+4) = c
			Display(x+0,y+5) = c
		Case '0'
			Display(x+0,y+1) = c
			Display(x+0,y+2) = c
			Display(x+0,y+3) = c
			Display(x+0,y+4) = c
			Display(x+0,y+5) = c
			Display(x+4,y+1) = c
			Display(x+4,y+2) = c
			Display(x+4,y+3) = c
			Display(x+4,y+4) = c
			Display(x+4,y+5) = c
			Display(x+1,y+0) = c
			Display(x+2,y+0) = c
			Display(x+3,y+0) = c
			Display(x+1,y+6) = c
			Display(x+2,y+6) = c
			Display(x+3,y+6) = c
			Display(x+1,y+4) = c
			Display(x+2,y+3) = c
			Display(x+3,y+2) = c
		Case '1'
			Display(x+2,y+0) = c
			Display(x+2,y+1) = c
			Display(x+2,y+2) = c
			Display(x+2,y+3) = c
			Display(x+2,y+4) = c
			Display(x+2,y+5) = c
			Display(x+2,y+6) = c
			Display(x+1,y+1) = c
			Display(x+1,y+6) = c
			Display(x+3,y+6) = c
		Case '2'
			Display(x+0,y+6) = c
			Display(x+1,y+6) = c
			Display(x+2,y+6) = c
			Display(x+3,y+6) = c
			Display(x+4,y+6) = c
			Display(x+0,y+5) = c
			Display(x+1,y+4) = c
			Display(x+2,y+3) = c
			Display(x+3,y+2) = c
			Display(x+4,y+1) = c
			Display(x+1,y+0) = c
			Display(x+2,y+0) = c
			Display(x+3,y+0) = c
			Display(x+0,y+1) = c
		Case '3'
			Display(x+0,y+1) = c
			Display(x+0,y+5) = c
			Display(x+1,y+0) = c
			Display(x+2,y+0) = c
			Display(x+3,y+0) = c
			Display(x+1,y+3) = c
			Display(x+2,y+3) = c
			Display(x+3,y+3) = c
			Display(x+1,y+6) = c
			Display(x+2,y+6) = c
			Display(x+3,y+6) = c
			Display(x+4,y+1) = c
			Display(x+4,y+2) = c
			Display(x+4,y+4) = c
			Display(x+4,y+5) = c
		Case '4'
			Display(x+0,y+0) = c
			Display(x+0,y+1) = c
			Display(x+0,y+2) = c
			Display(x+4,y+1) = c
			Display(x+4,y+2) = c
			Display(x+4,y+3) = c
			Display(x+4,y+4) = c
			Display(x+4,y+5) = c
			Display(x+4,y+6) = c
			Display(x+1,y+3) = c
			Display(x+2,y+3) = c
			Display(x+3,y+3) = c
		Case '5'
			Display(x+0,y+0) = c
			Display(x+0,y+1) = c
			Display(x+0,y+2) = c
			Display(x+0,y+3) = c
			Display(x+1,y+0) = c
			Display(x+2,y+0) = c
			Display(x+3,y+0) = c
			Display(x+4,y+0) = c
			Display(x+1,y+3) = c
			Display(x+2,y+3) = c
			Display(x+3,y+3) = c
			Display(x+4,y+4) = c
			Display(x+4,y+5) = c
			Display(x+0,y+5) = c
			Display(x+1,y+6) = c
			Display(x+2,y+6) = c
			Display(x+3,y+6) = c
		Case '6'
			Display(x+0,y+1) = c
			Display(x+0,y+2) = c
			Display(x+0,y+3) = c
			Display(x+0,y+4) = c
			Display(x+0,y+5) = c
			Display(x+1,y+0) = c
			Display(x+2,y+0) = c
			Display(x+3,y+0) = c
			Display(x+1,y+3) = c
			Display(x+2,y+3) = c
			Display(x+3,y+3) = c
			Display(x+1,y+6) = c
			Display(x+2,y+6) = c
			Display(x+3,y+6) = c
			Display(x+4,y+1) = c
			Display(x+4,y+4) = c
			Display(x+4,y+5) = c
		Case '7'
			Display(x+0,y+0) = c
			Display(x+1,y+0) = c
			Display(x+2,y+0) = c
			Display(x+3,y+0) = c
			Display(x+4,y+0) = c
			Display(x+0,y+1) = c
			Display(x+4,y+1) = c
			Display(x+3,y+2) = c
			Display(x+2,y+3) = c
			Display(x+1,y+4) = c
			Display(x+0,y+5) = c
			Display(x+0,y+6) = c
		Case '8'
			Display(x+0,y+1) = c
			Display(x+0,y+2) = c
			Display(x+0,y+4) = c
			Display(x+0,y+5) = c
			Display(x+4,y+1) = c
			Display(x+4,y+2) = c
			Display(x+4,y+4) = c
			Display(x+4,y+5) = c
			Display(x+1,y+0) = c
			Display(x+2,y+0) = c
			Display(x+3,y+0) = c
			Display(x+1,y+3) = c
			Display(x+2,y+3) = c
			Display(x+3,y+3) = c
			Display(x+1,y+6) = c
			Display(x+2,y+6) = c
			Display(x+3,y+6) = c
		Case '9'
			Display(x+1,y+0) = c
			Display(x+2,y+0) = c
			Display(x+3,y+0) = c
			Display(x+1,y+3) = c
			Display(x+2,y+3) = c
			Display(x+3,y+3) = c
			Display(x+1,y+6) = c
			Display(x+2,y+6) = c
			Display(x+3,y+6) = c
			Display(x+0,y+1) = c
			Display(x+0,y+2) = c
			Display(x+0,y+5) = c
			Display(x+4,y+1) = c
			Display(x+4,y+2) = c
			Display(x+4,y+3) = c
			Display(x+4,y+4) = c
			Display(x+4,y+5) = c
		Case 'ä'
			Display(x+0,y+6) = c
			Display(x+0,y+5) = c
			Display(x+0,y+4) = c
			Display(x+0,y+3) = c
			Display(x+4,y+6) = c
			Display(x+4,y+5) = c
			Display(x+4,y+4) = c
			Display(x+4,y+3) = c
			Display(x+1,y+5) = c
			Display(x+2,y+5) = c
			Display(x+3,y+5) = c
			Display(x+1,y+2) = c
			Display(x+2,y+1) = c
			Display(x+3,y+2) = c
			Display(x+0,y+0) = c
			Display(x+4,y+0) = c
		Case 'ö'
			Display(x+0,y+3) = c
			Display(x+0,y+4) = c
			Display(x+0,y+5) = c
			Display(x+4,y+3) = c
			Display(x+4,y+4) = c
			Display(x+4,y+5) = c
			Display(x+1,y+2) = c
			Display(x+2,y+2) = c
			Display(x+3,y+2) = c
			Display(x+1,y+6) = c
			Display(x+2,y+6) = c
			Display(x+3,y+6) = c
			Display(x+0,y+0) = c
			Display(x+4,y+0) = c
		Case 'ü'
			Display(x+0,y+2) = c
			Display(x+0,y+3) = c
			Display(x+0,y+4) = c
			Display(x+0,y+5) = c
			Display(x+1,y+6) = c
			Display(x+2,y+6) = c
			Display(x+3,y+6) = c
			Display(x+4,y+5) = c
			Display(x+4,y+4) = c
			Display(x+4,y+3) = c
			Display(x+4,y+2) = c
			Display(x+0,y+0) = c
			Display(x+4,y+0) = c
		Case '!'
			Display(x+2,y+0) = c
			Display(x+2,y+1) = c
			Display(x+2,y+2) = c
			Display(x+2,y+3) = c
			Display(x+2,y+4) = c
			Display(x+2,y+6) = c
		Case '?'
			Display(x+0,y+1) = c
			Display(x+1,y+0) = c
			Display(x+2,y+0) = c
			Display(x+3,y+0) = c
			Display(x+4,y+1) = c
			Display(x+4,y+2) = c
			Display(x+3,y+3) = c
			Display(x+2,y+4) = c
			Display(x+2,y+6) = c
		Case '#'
			Display(x+0,y+2) = c
			Display(x+1,y+2) = c
			Display(x+2,y+2) = c
			Display(x+3,y+2) = c
			Display(x+4,y+2) = c
			Display(x+0,y+4) = c
			Display(x+1,y+4) = c
			Display(x+2,y+4) = c
			Display(x+3,y+4) = c
			Display(x+4,y+4) = c
			Display(x+1,y+1) = c
			Display(x+1,y+3) = c
			Display(x+1,y+5) = c
			Display(x+3,y+1) = c
			Display(x+3,y+3) = c
			Display(x+3,y+5) = c
		Case '+'
			Display(x+0,y+3) = c
			Display(x+1,y+3) = c
			Display(x+2,y+3) = c
			Display(x+3,y+3) = c
			Display(x+4,y+3) = c
			Display(x+2,y+1) = c
			Display(x+2,y+2) = c
			Display(x+2,y+4) = c
			Display(x+2,y+5) = c
		Case '-'
			Display(x+0,y+3) = c
			Display(x+1,y+3) = c
			Display(x+2,y+3) = c
			Display(x+3,y+3) = c
			Display(x+4,y+3) = c
		Case ','
			Display(x+2,y+3) = c
			Display(x+2,y+4) = c
			Display(x+3,y+3) = c
			Display(x+3,y+4) = c
			Display(x+3,y+5) = c
			Display(x+2,y+6) = c
		Case '.'
			Display(x+2,y+5) = c
			Display(x+2,y+6) = c
			Display(x+3,y+5) = c
			Display(x+3,y+6) = c
		Case ';'
			Display(x+2,y+1) = c
			Display(x+2,y+2) = c
			Display(x+3,y+1) = c
			Display(x+3,y+2) = c
			Display(x+2,y+4) = c
			Display(x+3,y+4) = c
			Display(x+3,y+5) = c
			Display(x+2,y+6) = c
		Case ':'
			Display(x+2,y+1) = c
			Display(x+2,y+2) = c
			Display(x+3,y+1) = c
			Display(x+3,y+2) = c
			Display(x+2,y+4) = c
			Display(x+2,y+5) = c
			Display(x+3,y+4) = c
			Display(x+3,y+5) = c
		Case '_'
			Display(x+0,y+6) = c
			Display(x+1,y+6) = c
			Display(x+2,y+6) = c
			Display(x+3,y+6) = c
			Display(x+4,y+6) = c
		Case '%'
			Display(x+0,y+0) = c
			Display(x+0,y+1) = c
			Display(x+1,y+0) = c
			Display(x+1,y+1) = c
			Display(x+4,y+0) = c
			Display(x+4,y+1) = c
			Display(x+3,y+2) = c
			Display(x+2,y+3) = c
			Display(x+1,y+4) = c
			Display(x+0,y+5) = c
			Display(x+0,y+6) = c
			Display(x+3,y+5) = c
			Display(x+3,y+6) = c
			Display(x+4,y+5) = c
			Display(x+4,y+6) = c
		Case '/'
			Display(x+4,y+0) = c
			Display(x+4,y+1) = c
			Display(x+3,y+2) = c
			Display(x+2,y+3) = c
			Display(x+1,y+4) = c
			Display(x+0,y+5) = c
			Display(x+0,y+6) = c
		Case '"'
			Display(x+1,y+0) = c
			Display(x+1,y+1) = c
			Display(x+3,y+0) = c
			Display(x+3,y+1) = c
		Case '('
			Display(x+3,y+0) = c
			Display(x+2,y+1) = c
			Display(x+2,y+2) = c
			Display(x+2,y+3) = c
			Display(x+2,y+4) = c
			Display(x+2,y+5) = c
			Display(x+3,y+6) = c
		Case ')'
			Display(x+1,y+0) = c
			Display(x+2,y+1) = c
			Display(x+2,y+2) = c
			Display(x+2,y+3) = c
			Display(x+2,y+4) = c
			Display(x+2,y+5) = c
			Display(x+1,y+6) = c
		Case '['
			Display(x+3,y+0) = c
			Display(x+2,y+0) = c
			Display(x+2,y+1) = c
			Display(x+2,y+2) = c
			Display(x+2,y+3) = c
			Display(x+2,y+4) = c
			Display(x+2,y+5) = c
			Display(x+2,y+6) = c
			Display(x+3,y+6) = c
		Case ']'
			Display(x+1,y+0) = c
			Display(x+2,y+0) = c
			Display(x+2,y+1) = c
			Display(x+2,y+2) = c
			Display(x+2,y+3) = c
			Display(x+2,y+4) = c
			Display(x+2,y+5) = c
			Display(x+2,y+6) = c
			Display(x+1,y+6) = c
		Case '\'
			Display(x+0,y+0) = c
			Display(x+0,y+1) = c
			Display(x+1,y+2) = c
			Display(x+2,y+3) = c
			Display(x+3,y+4) = c
			Display(x+4,y+5) = c
			Display(x+4,y+6) = c
		Case '<'
			Display(x+3,y+1) = c
			Display(x+2,y+2) = c
			Display(x+1,y+3) = c
			Display(x+2,y+4) = c
			Display(x+3,y+5) = c
		Case '|'
			Display(x+2,y+1) = c
			Display(x+2,y+2) = c
			Display(x+2,y+3) = c
			Display(x+2,y+4) = c
			Display(x+2,y+5) = c
		Case '>'
			Display(x+1,y+1) = c
			Display(x+2,y+2) = c
			Display(x+3,y+3) = c
			Display(x+2,y+4) = c
			Display(x+1,y+5) = c
		Case '@'
			Display(x+0,y+4) = c
			Display(x+1,y+3) = c
			Display(x+2,y+2) = c
			Display(x+3,y+3) = c
			Display(x+4,y+4) = c
		Case '€'
			Display(x+0,y+2) = c
			Display(x+1,y+3) = c
			Display(x+2,y+4) = c
			Display(x+3,y+3) = c
			Display(x+4,y+2) = c
		Case '='
			Display(x+0,y+2) = c
			Display(x+1,y+2) = c
			Display(x+2,y+2) = c
			Display(x+3,y+2) = c
			Display(x+4,y+2) = c
			Display(x+0,y+4) = c
			Display(x+1,y+4) = c
			Display(x+2,y+4) = c
			Display(x+3,y+4) = c
			Display(x+4,y+4) = c
		Case '*'
			Display(x+0,y+2) = c
			Display(x+1,y+2) = c
			Display(x+2,y+2) = c
			Display(x+3,y+2) = c
			Display(x+4,y+2) = c
			Display(x+2,y+0) = c
			Display(x+2,y+1) = c
			Display(x+1,y+3) = c
			Display(x+0,y+4) = c
			Display(x+3,y+3) = c
			Display(x+4,y+4) = c
	EndSelect
EndProcedure

Re: Emulator Librarys

Verfasst: 14.10.2011 19:33
von WinSysCompany
WinSysCompany hat geschrieben:Quellcode für "AudioCD Player v1.00"

AudioCD Player v1.00.pb
AudioCD Player v1.00.pbi
und nochmal als Downloadlinks :
AudioCD Player v1.00.pb : http://hosting.alexander-n.de/!=NjY3LjEzMTg2MTM0MjA=
AudioCD Player v1.00.pbi : http://hosting.alexander-n.de/!=NjY4LjEzMTg2MTM0MzU=

Re: Emulator Librarys

Verfasst: 14.10.2011 21:33
von c4s
...Und jetzt alles nochmal in einem Post und in einem Archive. <)

Re: Emulator Librarys

Verfasst: 14.10.2011 22:01
von WinSysCompany
c4s hat geschrieben:...Und jetzt alles nochmal in einem Post und in einem Archive. <)
WAS !?! :shock:

Muss das sein ? :|

Re: Emulator Librarys

Verfasst: 14.10.2011 23:44
von WinSysCompany
c4s hat geschrieben:...Und jetzt alles nochmal in einem Post und in einem Archive. <)
Bitte : http://hosting.alexander-n.de/!=NjY5LjEzMTg2Mjg2MTI=

Re: Emulator Librarys

Verfasst: 15.10.2011 20:52
von WinSysCompany
WinSysCompany hat geschrieben:
nanu da kommt ja gar kein Feedback :?

Ist mein scheiss echt so scheisse :cry: ?

oder kommt immer ein " :bluescreen: " ?

nagut, ich trinke dann erstmal mein" :coderselixir: " und " :praise: " zu gott das irgendwahnmal " >_< " kommt :mrgreen:


PS : die smilies sind echt cool :mrgreen:

Re: Emulator Librarys

Verfasst: 15.10.2011 23:14
von Ramihyn_
Ich schätze mal, dass das Thema schlichtweg zu esoterisch ist :)
Die Schnittmenge von MyCpu und PureBasic Nutzern dürfte sehr gering sein.

Re: Emulator Librarys

Verfasst: 24.10.2011 01:55
von NoUser
.

Re: Emulator Librarys

Verfasst: 07.11.2011 09:54
von WinSysCompany
Sorry das ich nicht antworten konnte , unser internet spint zu zeit mächtig :cry:
marroh hat geschrieben:Du solltest also meiner bescheidenen Meinung nach im ersten Post auf Edit gehen und mal genau Erklären wozu die DLLs gut sind und welche genauen Funktionen sie bieten. :mrgreen:
das mache ich echt ungern weiel es dan bei anderen leute später zu leseflussstörungen kommen kann, wenn sie später kritik an ein bereits geänderten post lesen und nicht wissen was er mein ...
marroh hat geschrieben:Anhand der Beispiele die ich nun getestet habe kommt bei mir immerhin die Vermutung es könnte sich um eine virtuelles programmierbares LCD-Display handeln,
:o wow , er hatts entdeckt :mrgreen: :mrgreen: :mrgreen:
marroh hat geschrieben:ansonsten lutsche ich noch etwas an einem Weisheit Löffel um ev. noch raus zu kriegen was Du uns nun anpreist ;) Etwas Erleuchtung Bitte :praise:
5Irgendwo in Berlin gibt es hauffen weisse SCH-Lampen die bringen gut licht :mrgreen: :mrgreen: :mrgreen:
marroh hat geschrieben:Hoffe Du verstehst auf was ich hinaus will. ;)

Gruss
Martin
ähh [...]

aber mal eine andere frage ...
FUNCKTIONIERT DAS ECHT !?!
IST JA ABGEFAHREN <) <) <)

ich dachte es kommt sowas wie :
lack du lackaffe , watt´n dat´fürn scheiss bei mir ist erst :bluescreen: dann blackout und jetzt fähr die kisste nicht mehr hoch ( sitz grad am 386-Laptop von meiner Oma
ICH VERLANGE SCHADENSERSATZ , DU MENSCH DU DAHERGELAUFENDER !!!
Alle Zeiten sind UTC+02:00
Seite 2 von 2

Powered by phpBB® Forum Software © phpBB Limited

Deutsche Übersetzung durch phpBB.de