PureBoard

Code: Alles auswählen

Enumeration
#Window
	#Text_Basis1
	#InputBasis1
	#Text_Zahl1
	#InputZahl1
	#Text_Basis2
	#InputBasis2
	#Text_Zahl2
	#OutputZahl2
	#Start
EndEnumeration

Procedure.s DECf(Value$,Basis,NumberOfDecimals)
	Dezimal.f
	Vorz$=""
	If Mid(Value$,1,1)="-"
		Value$=Right(Value$,Len(Value$)-1)
		Vorz$="-"
	EndIf
	start:
	Length_Value=Len(Value$)
	Komma=FindString(Value$,".",1)
	If Komma=0
		Value$+"."
		Goto start
	EndIf
	Vorkomma:
	For Stelle=1 To Komma-1
		Ziffer$=UCase(Mid(Value$,Komma-Stelle,1))
			If Asc(Ziffer$)>64 And Asc(Ziffer$)<91
				Ziffer=Asc(Ziffer$)-55
			Else
				Ziffer=Val(Ziffer$)
			EndIf
		Dezimal+Ziffer*Pow(Basis,Stelle-1)
	Next Stelle
	Nachkomma:
	For Stelle=Komma+1 To Length_Value
		Ziffer$=UCase(Mid(Value$,Stelle,1))
			If Asc(Ziffer$)>64 And Asc(Ziffer$)<91
				Ziffer=Asc(Ziffer$)-55
			Else
				Ziffer=Val(Ziffer$)
			EndIf
		Dezimal+Ziffer*Pow(Basis,Komma-Stelle)
	Next Stelle
	Dezimal$=StrF(Dezimal,NumberOfDecimals)
	ProcedureReturn Vorz$+Dezimal$
EndProcedure

Procedure.s Nf(DecValue$,Basis,NumberOfDecimals)
	Vorz$=""
	If Mid(DecValue$,1,1)="-"
		DecValue$=Right(DecValue$,Len(DecValue$)-1)
		Vorz$="-"
	EndIf
	Value.f=ValF(DecValue$)
	HighestPot=Int(Log(Value)/Log(Basis))
	Pot=HighestPot
	Repeat
	Ziffer=Int(Value/Pow(Basis,Pot))
	Value-Ziffer*Pow(Basis,Pot)
	If Pot=-1
		Zahl$+"."
	EndIf
	If Ziffer<10
		Zahl$+Str(Ziffer)
	Else
		Zahl$+Chr(Ziffer+55)
	EndIf
	If Pot<0
		z+1
	EndIf
	Pot-1
	Until z=NumberOfDecimals And Pot<0
	ProcedureReturn Vorz$+Zahl$
EndProcedure

Procedure.s NN(Value$,OldBasis,NewBasis,NumberOfDecimals)
	ProcedureReturn Nf(DECf(Value$,OldBasis,NumberOfDecimals),NewBasis,NumberOfDecimals)
EndProcedure

OpenWindow(#Window,0,0,300,220,"Zahlensystem - Umwandler",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
	CreateGadgetList(WindowID(#Window))
		TextGadget(#Text_Basis1,10,10,280,20,"Basis des ersten Systems :")
		StringGadget(#InputBasis1,10,27,280,20,"",#PB_String_Numeric)
		TextGadget(#Text_Zahl1,10,50,280,20,"Erste Zahl :")
		StringGadget(#InputZahl1,10,67,280,20,"",#PB_String_UpperCase)
		TextGadget(#Text_Basis2,10,90,280,20,"Basis des zweiten Systems :")
		StringGadget(#InputBasis2,10,107,280,20,"",#PB_String_Numeric)
		TextGadget(#Text_Zahl2,10,130,280,20,"Zweite Zahl :")
		StringGadget(#OutputZahl2,10,147,280,20,"",#PB_String_ReadOnly)
		ButtonGadget(#Start,10,187,280,23,"Berechnen")
Repeat
	Event=WaitWindowEvent()
		Select Event
			Case #PB_Event_Gadget
				Select EventGadget()
					Case #Start
						OldBasis=Val(GetGadgetText(#InputBasis1))
							If OldBasis<2
								MessageRequester("ERROR","Basis1 < 2 !")
								E=1
							ElseIf OldBasis>36
								MessageRequester("ERROR","Basis1 > 36 !")
								E=1
							EndIf
						NewBasis=Val(GetGadgetText(#InputBasis2))
							If NewBasis<2
								MessageRequester("ERROR","Basis2 < 2 !")
								E=1
							ElseIf NewBasis>36
								MessageRequester("ERROR","Basis2 > 36 !")
								E=1
							EndIf
						Value$=GetGadgetText(#InputZahl1)
							For Wert=OldBasis To 35
								If Wert<10
									If FindString(Value$,Str(Wert),1)
										E=1
									EndIf
								Else
									If FindString(Value$,Chr(Wert+55),1)
										E=1
									EndIf
								EndIf
								If E=1
									MessageRequester("ERROR","Eine Ziffer ist grösser als Basis1 !")
									Break
								EndIf
							Next Wert
							If E=1
							E=0
								Continue
							EndIf
						SetGadgetText(#OutputZahl2,NN(Value$,OldBasis,NewBasis,8))
				EndSelect
		EndSelect
Until Event=#PB_Event_CloseWindow