Emulator Librarys

Anwendungen, Tools, Userlibs und anderes nützliches.
Antworten
Benutzeravatar
WinSysCompany
Beiträge: 93
Registriert: 17.10.2010 17:43
Computerausstattung: KNOPPIX 8.1.0 & PureBasic (x68) 32Bit Vollversion
Wohnort: Berlin

Re: Emulator Librarys

Beitrag von WinSysCompany »

ein Programm um für "My LCD Board OS" Bilder zu erstellen ( für "DRAW" )
http://hosting.alexander-n.de/!=NjY2LjEzMTg2MTI3MTk=
PB-Workstation > PureBasic ( win32 Ver. 5.62 ) über Wine 3.0.2
KNOPPIX 8.0.0 ( GNU/Linux-Debian 9 ), 8GB-RAM, AMD-Athlon(tm) II X4 630, AMD Radeon HD 6850


Nichts ist einfacher als das Komplizierteste

Press Any Key to Continue
ich finde aber keine Any Key Taste auf meiner Tastertur

Was steht den auf ihrem Bildschirm
Na eine Blumenvase ...
Nach oben
Benutzeravatar
WinSysCompany
Beiträge: 93
Registriert: 17.10.2010 17:43
Computerausstattung: KNOPPIX 8.1.0 & PureBasic (x68) 32Bit Vollversion
Wohnort: Berlin

Re: Emulator Librarys

Beitrag 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
PB-Workstation > PureBasic ( win32 Ver. 5.62 ) über Wine 3.0.2
KNOPPIX 8.0.0 ( GNU/Linux-Debian 9 ), 8GB-RAM, AMD-Athlon(tm) II X4 630, AMD Radeon HD 6850


Nichts ist einfacher als das Komplizierteste

Press Any Key to Continue
ich finde aber keine Any Key Taste auf meiner Tastertur

Was steht den auf ihrem Bildschirm
Na eine Blumenvase ...
Nach oben
Benutzeravatar
WinSysCompany
Beiträge: 93
Registriert: 17.10.2010 17:43
Computerausstattung: KNOPPIX 8.1.0 & PureBasic (x68) 32Bit Vollversion
Wohnort: Berlin

Re: Emulator Librarys

Beitrag 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=
PB-Workstation > PureBasic ( win32 Ver. 5.62 ) über Wine 3.0.2
KNOPPIX 8.0.0 ( GNU/Linux-Debian 9 ), 8GB-RAM, AMD-Athlon(tm) II X4 630, AMD Radeon HD 6850


Nichts ist einfacher als das Komplizierteste

Press Any Key to Continue
ich finde aber keine Any Key Taste auf meiner Tastertur

Was steht den auf ihrem Bildschirm
Na eine Blumenvase ...
Nach oben
c4s
Beiträge: 1235
Registriert: 19.09.2007 22:18

Re: Emulator Librarys

Beitrag von c4s »

...Und jetzt alles nochmal in einem Post und in einem Archive. <)
"Menschenskinder, das Niveau dieses Forums singt schon wieder!" — GronkhLP ||| "ich hogffe ihr könnt den fehle endecken" — Marvin133 ||| "Ideoten gibts ..." — computerfreak ||| "Jup, danke. Gruss" — funkheld
Nach oben
Benutzeravatar
WinSysCompany
Beiträge: 93
Registriert: 17.10.2010 17:43
Computerausstattung: KNOPPIX 8.1.0 & PureBasic (x68) 32Bit Vollversion
Wohnort: Berlin

Re: Emulator Librarys

Beitrag von WinSysCompany »

c4s hat geschrieben:...Und jetzt alles nochmal in einem Post und in einem Archive. <)
WAS !?! :shock:

Muss das sein ? :|
PB-Workstation > PureBasic ( win32 Ver. 5.62 ) über Wine 3.0.2
KNOPPIX 8.0.0 ( GNU/Linux-Debian 9 ), 8GB-RAM, AMD-Athlon(tm) II X4 630, AMD Radeon HD 6850


Nichts ist einfacher als das Komplizierteste

Press Any Key to Continue
ich finde aber keine Any Key Taste auf meiner Tastertur

Was steht den auf ihrem Bildschirm
Na eine Blumenvase ...
Nach oben
Benutzeravatar
WinSysCompany
Beiträge: 93
Registriert: 17.10.2010 17:43
Computerausstattung: KNOPPIX 8.1.0 & PureBasic (x68) 32Bit Vollversion
Wohnort: Berlin

Re: Emulator Librarys

Beitrag von WinSysCompany »

c4s hat geschrieben:...Und jetzt alles nochmal in einem Post und in einem Archive. <)
Bitte : http://hosting.alexander-n.de/!=NjY5LjEzMTg2Mjg2MTI=
PB-Workstation > PureBasic ( win32 Ver. 5.62 ) über Wine 3.0.2
KNOPPIX 8.0.0 ( GNU/Linux-Debian 9 ), 8GB-RAM, AMD-Athlon(tm) II X4 630, AMD Radeon HD 6850


Nichts ist einfacher als das Komplizierteste

Press Any Key to Continue
ich finde aber keine Any Key Taste auf meiner Tastertur

Was steht den auf ihrem Bildschirm
Na eine Blumenvase ...
Nach oben
Benutzeravatar
WinSysCompany
Beiträge: 93
Registriert: 17.10.2010 17:43
Computerausstattung: KNOPPIX 8.1.0 & PureBasic (x68) 32Bit Vollversion
Wohnort: Berlin

Re: Emulator Librarys

Beitrag 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:
PB-Workstation > PureBasic ( win32 Ver. 5.62 ) über Wine 3.0.2
KNOPPIX 8.0.0 ( GNU/Linux-Debian 9 ), 8GB-RAM, AMD-Athlon(tm) II X4 630, AMD Radeon HD 6850


Nichts ist einfacher als das Komplizierteste

Press Any Key to Continue
ich finde aber keine Any Key Taste auf meiner Tastertur

Was steht den auf ihrem Bildschirm
Na eine Blumenvase ...
Nach oben
Ramihyn_
Beiträge: 61
Registriert: 20.06.2007 10:56

Re: Emulator Librarys

Beitrag 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.
Nach oben
NoUser

Re: Emulator Librarys

Beitrag von NoUser »

.
Zuletzt geändert von NoUser am 01.09.2012 07:38, insgesamt 1-mal geändert.
Nach oben
Benutzeravatar
WinSysCompany
Beiträge: 93
Registriert: 17.10.2010 17:43
Computerausstattung: KNOPPIX 8.1.0 & PureBasic (x68) 32Bit Vollversion
Wohnort: Berlin

Re: Emulator Librarys

Beitrag 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 !!!
PB-Workstation > PureBasic ( win32 Ver. 5.62 ) über Wine 3.0.2
KNOPPIX 8.0.0 ( GNU/Linux-Debian 9 ), 8GB-RAM, AMD-Athlon(tm) II X4 630, AMD Radeon HD 6850


Nichts ist einfacher als das Komplizierteste

Press Any Key to Continue
ich finde aber keine Any Key Taste auf meiner Tastertur

Was steht den auf ihrem Bildschirm
Na eine Blumenvase ...
Nach oben
Antworten

Zurück zu „Feedback - Anwendungen“